如何解决VBA将数据编译到主工作簿
所以我有一个可以正常工作的VBA代码,但是我想添加一些东西。
它将打开指定路径中的文件,并将数据编译到Masterworkbook中。 但是,此代码要求您为每一列添加另一行代码。 我尝试了不同的循环,但仅收到错误消息等。
Sub getDataFromWbs()
Dim wb As Workbook,ws As Worksheet
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("C:\Users\")
y = ThisWorkbook.Sheets("sheet1").Cells(Rows.Count,1).End(xlUp).Row + 1
For Each wbFile In fldr.Files
If fso.GetExtensionName(wbFile.Name) = "xlsx" Then
Set wb = Workbooks.Open(wbFile.Path)
For Each ws In wb.Sheets
wsLR = ws.Cells(Rows.Count,1).End(xlUp).Row
For x = 2 To wsLR
ThisWorkbook.Sheets("sheet1").Cells(y,1) = ws.Cells(x,1) 'col 1
ThisWorkbook.Sheets("sheet1").Cells(y,2) = ws.Cells(x,2) 'col 2
y = y + 1
Next x
Next ws
wb.Close
End If
Next wbFile
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。