将多个.CSV导入启用macros的工作表

我有一个文件夹中的多个（5确切）.csv的，我想要一个macros，让我select文件夹中的csv文件，并将其导入到一个macros启用空白文件。 这是我想要做的一步一步：

1. 打开main.xlsm
2. 按下工具栏中的“导入CSV”的macrosbutton
3. 这将自动打开一个浏览器窗口，让你findCSV的地方
4. 按下OK和BOOM！ 就像所有的csv都被导出为xlsm一样，并且是当前空白表单中的单独表单

我尝试了许多不同的方法来做这件事，但我认为我没有走上正确的道路。 这里是一个：

Sub convert_to_macro() 'This first line is crap though. It only lets you export it to a certain place ChDir "C:\Users\pal\Documents\CMSe\Lucys Computer" With Application.FileDialog(msoFileDialogFilePicker) .Show If .SelectedItems.Count = 0 Then MsgBox "Cancel Selected" Exit Sub End If something = .SelectedItems(1) End With ActiveWorkbook.SaveAs Filename:= _ "something.xltm", _ FileFormat:=xlOpenXMLTemplateMacroEnabled, Password:="", WriteResPassword _ :="", ReadOnlyRecommended:=False, CreateBackup:=False End Sub 

感谢您给予的任何帮助

Answer 1

像这样的东西，它将所有的csvs添加到单个文件。

 Sub convert_to_macro() Dim Wb As Workbook Dim Wb1 As Workbook Dim fd As FileDialog Dim strWB Set fd = Application.FileDialog(msoFileDialogFilePicker) With fd 'set initial directory to search .InitialFileName = "c:\temp" .Filters.Clear .Filters.Add "csv files", "*.csv" .Show If .SelectedItems.Count = 0 Then MsgBox "No selection, exiting" Exit Sub End If End With With Application .ScreenUpdating = False .EnableEvents = False .DisplayAlerts = False End With Set Wb = Workbooks.Add(1) For Each strWB In fd.SelectedItems Set Wb1 = Workbooks.Open(strWB) Wb1.Sheets(1).Copy after:=Wb.Sheets(Wb.Sheets.Count) Wb1.Close False Next Wb.Sheets(1).Delete With Application .ScreenUpdating = True .EnableEvents = True .DisplayAlerts = True End With End Sub