我正在尝试编写一些由命令按钮控制的vba代码,以打开文件夹中的所有Excel文件,并将每个文件中的选择数据复制到主文件中。
我有文件搜索部分,我认为这将是最困难的部分。但由于某种原因,Cell()。副本无法正常运行。 (以下代码)
Private Sub Hot_Press_Update_Click()
'This file cannot be placed in the folder it is searching through
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Path = "C:\test\"
Filename = Dir(Path & "*.xls*")
thiswbk = ActiveWorkbook.Name
x = 0
Do While Len(Filename) > 0
Set wbk = Workbooks.Open(Path & Filename)
Windows(wbk.Name).Activate
wbk.Sheets(1).Select '''''this works in source workbook
Cells(54, 10).Copy '''this copies from master workbook
Windows(thiswbk).Activate ''everything else
Sheets(3).Select 'works perfectly
Cells(3 + x, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues
x = x + 1
wbk.Close True
Filename = Dir
Loop
End Sub
副本当前正在从主文件而不是源文件中复制单元格,而源文件前面的代码选择正确工作簿中的工作表。
我已经让朋友试过这个代码了,它实际上适合他。我从中提取数据的文件有一个短宏来填充带有日期的单元格。我不确定这与它有什么关系,但它是我的床单和朋友床单之间的唯一区别。
任何输入都将受到赞赏