使用宏按钮一键在EXCEL表格中导入多个csv文件中固定单元格数据

lgb55200

请大神帮忙修改一下附件中代码，在EXCEL表格中导入csv文件中固定单元格G2:G5的数据，总共有几十个文件需要导入到表格中，用宏按键导入多个csv数据到表格中. 数据.zip (49.28 KB, 下载次数: 13)

2018-6-28 23:26 上传

点击文件名下载附件

abc123281

数据导入.rar (47.32 KB, 下载次数: 57)

2018-6-29 00:49 上传

点击文件名下载附件

lgb55200

abc123281 发表于 2018-6-29 00:49

可以改成导入的每个CSV文件数据横着排列吗？

jiminyanyan

Sub 提取数据()
Dim arr, brr(1 To 100, 1 To 200)
Dim wb As Workbook
Dim mypath$, myname$
Application.DisplayAlerts = False
Application.ScreenUpdating = False
mypath = ThisWorkbook.Path & "\数据\"
myname = Dir(mypath & "*.csv")
Do While myname <> ""
  Set wb = GetObject(mypath & myname)
  With wb
    With .Worksheets(1)
        r = .[a65536].End(3).Row
        arr = .Range("g2:g" & r)
        n = 0
        k = k + 1
        For i = 1 To UBound(arr)
           n = n + 1
           brr(n, k) = arr(i, 1)
        Next
    End With
   .Close False
  End With
  myname = Dir()
Loop
With ThisWorkbook.Worksheets("数据导入")
  .[b2].Resize(n, k) = brr
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "提取完成！", vbInformation
End Sub
Sub 清除()
With ThisWorkbook.Worksheets("数据导入")
  .UsedRange.Offset(1).ClearContents
End With
End Sub

jiminyanyan

lgb55200 发表于 2018-6-30 10:12
可以改成导入的每个CSV文件数据横着排列吗？

可以，在审核中，你等等。。

schliemann

自己锻炼思路用，如果有漏洞，欢迎指正。
目的：提取某文件夹下所有CSV文件中的前五行数据，将其录入到目标工作表中。
1）首先确定文件夹下面有多少个CSV文件，或者使用FSO对象对文件夹下面的文件进行遍历，直到找不到下一个文件位置
2) 如果文件夹为空，则跳出处理；
3）如果有文件，先将目标导入工作表上的记录清除
4）打开第一个文件，量取最后一行的位置，如果最后一行大于6，则使用循环，达到第6行时退出循环；如果小于6，则处理至最后一行。处理方式可以用数组？
5）开始下一个文件的处理，直至最后一个文件。

lgb55200

感谢各位高手的帮忙，谢谢

lgb55200

jiminyanyan 发表于 2018-6-30 10:18
Sub 提取数据()
Dim arr, brr(1 To 100, 1 To 200)
Dim wb As Workbook

若是这个代码能修改成框选多个CSV文件自动导入指定单元格位置往右单元格复制，哪位大神帮忙修改一下