怎样将近百个csv文件导入到ACCESS后汇总再导出到一张excel表中？
发布网友
共3个回答
热心网友
打开D:\下载内容暂存\csv文件汇总.xlsx文件，按ALT+F11，随便双击一个表，粘贴代码，最后如下图，回到EXCEL按ALT+F8运行这个宏即可。
Sub 宏1()
Dim P As String, F As String
P = "D:\下载内容暂存\" 'CSV文件所在文件夹，必须以\结尾
F = Dir(P & "*.CSV")
While F <> ""
With Workbooks.Open(P & F) '打开CSV文件
ActiveSheet.UsedRange.Copy Me.Cells(Me.UsedRange.Rows.Count + 1, 1)
.Close
End With
F = Dir '寻找下一个文件
Wend
End Sub
热心网友
在弹出框中可以设置导入数据每列的数据格式，也可以设置不导入某列，设置方法：鼠标左键点击下方数据预览中的列，点击后在上方列数据类型进行选择，然后点击完成
热心网友
写代码可以，但数据太多了的话，Excel也是装不下的
