将csv转换为xslx并使用macros添加列

我有一个CSV格式的约400个文件的列表，我想将它们转换成XLSX格式。 我也想在转换的同时在左边添加一个新的列，并且只想将文件名的前8个字符添加到新添加的列中。 假设文件名为“ TZ125250 April 26 2015.csv ”，则应该将TZ125250添加到第一列，直到电子表格中存在数据的最后一行，并保存为“ TZ125250 April 26 2015.xlsx ”，大多数CSV文件都有数据200000行。 我正在使用的代码是

 Sub CSVtoXls() Dim CSVfolder As String Dim XlsFolder As String Dim fname As String Dim wBook As Workbook CSVfolder = "C:\csvfolder\" XlsFolder = "C:\xlsFolder\" fname = Dir(CSVfolder & "*.csv") Do While fname <> "" Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",") Cells.Select Cells.EntireColumn.AutoFit Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat wBook.Close False fname = Dir Loop End Sub 

如果我删除此部分，此代码将CSV转换为XLSX

 Cells.Select Cells.EntireColumn.AutoFit Columns("A:A").Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 

Answer 1

将ThisWorkbook.FileFormat更改为xlWorkbookDefault