Question

我有很多CSV格式的文档（大约100个不同的.csv文件）。我想将所有这些合并到一个.xls文档中。我希望每个CSV文档代表我的新xls文档中的工作表。因此，我的最终结果应该是一个xls工作簿，其中包含100个不同的工作表，这些工作表最初是.csv文档。

Answer 1

我使用的是脚本语言，例如vbs。它适用于Excel和其他MS应用程序，您可以从命令行运行它或双击该文件。

您需要为这两个参数或

添加值

如果你执行命令行，你可以传递srccsvfile和tgtxlsfile参数，如：

cscript nameoffile.vbs test.csv test.xls

以下是一些示例代码。保存为nameoffile.vbs：

srccsvfile = Wscript.Arguments(0)  
tgtxlsfile = Wscript.Arguments(1)  

'Create Spreadsheet
'Look for an existing Excel instance.
On Error Resume Next ' Turn on the error handling flag
Set objExcel = GetObject(,"Excel.Application")
'If not found, create a new instance.
If Err.Number = 429 Then  '> 0
  Set objExcel = CreateObject("Excel.Application")
End If

objExcel.Visible = false
objExcel.displayalerts=false

'Import CSV into Spreadsheet
Set objWorkbook = objExcel.Workbooks.open(srccsvfile)
Set objWorksheet1 = objWorkbook.Worksheets(1)

'Adjust width of columns
Set objRange = objWorksheet1.UsedRange
objRange.EntireColumn.Autofit()
'This code could be used to AutoFit a select number of  columns
'For intColumns = 1 To 17
'    objExcel.Columns(intColumns).AutoFit()
'Next

'Make Headings Bold
objExcel.Rows(1).Font.Bold = TRUE

'Freeze header row
With objExcel.ActiveWindow
 .SplitColumn = 0
 .SplitRow = 1
End With
objExcel.ActiveWindow.FreezePanes = True

'Add Data Filters to Heading Row
objExcel.Rows(1).AutoFilter

'set header row gray
objExcel.Rows(1).Interior.ColorIndex = 15
'-0.249977111117893


'Save Spreadsheet, 51 = Excel 2007-2010 
objWorksheet1.SaveAs tgtxlsfile, 51

'Release Lock on Spreadsheet
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing

许多不同的csv文档要转换为一个excel文档

1 个答案: