如何使用 VBA 在 Excel 中一次导入多个 csv 文件

如何使用 VBA 在 Excel 中一次导入多个 csv 文件

我正在尝试使用 VBA 将同一目录中的多个 csv 文件导入我的 Excel 工作表。以下代码仅使用一个 csv 文件即可很好地运行。但我缺乏调整 VBA 脚本以将所有数据导入同一张 Excel 工作表的知识。如果有人能帮助我,我将不胜感激。下一个 csv 文件中的数据需要导入到同一张工作表的第一个空行。

    Sub loadDataFromCSV()
Const csvFile = "N:\Temp voor automatisering\*.csv"
Dim ws As Worksheet, csv As Workbook, cCount As Long, cName As String

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set ws = ThisWorkbook.Worksheets("NGSimport")
'Set ws = ThisWorkbook.ActiveSheet
Workbooks.Open csvFile
Set csv = ActiveWorkbook
cName = csv.Name
ActiveSheet.Columns("A:U").Copy
ws.Activate
ws.Range("A1:U1").PasteSpecial xlPasteValues
'cCount = Selection.Cells.Count
csv.Close

Application.DisplayAlerts = True
Application.ScreenUpdating = True

子目录结束

相关内容