我在一个文件夹(Test01,Test02,Test03)中有许多相同结构的excel文件。Excel VBA:从另一个工作簿复制行并粘贴到主工作簿
我在同一个文件夹中创建另一个excel文件,需要从其他excel文件(结果)中提取信息。
每个测试文件中都有一个特定列需要复制并粘贴到结果文件的一行中。
我正在尝试创建一个工具或宏,它可以通过按下一个按钮,从每个文件中提取相同的列并将其粘贴到结果文件的新行中。
我无法更改测试文件中的任何内容,这应该在不打开每个文件的情况下自动完成。另外新的测试文件将被添加到文件夹(Test04,Test05等),因此该功能应该能够从新文件中提取。
我的代码不运行,而是,收到运行时错误:
Private Sub CommandButton1_Click()
'Dim info
'info = isWorkBookopen("C:\Users\Ridwan\Desktop\Test_Excel\Test01.xlsm")
'If info = False Then
Workbooks.Open Filename:="C:\Users\Ridwan\Desktop\Test_Excel\Test01.xlsm"
'End If
Worksheets(Sheet2).Activate 'This is giving me a runtime error
Range("C2:C10").Copy
'Need functions to paste into Results.xlsm
End Sub
在一个侧面说明,我isWorkBookopen功能不起作用,它不认识到它是一种功能。这就是我评论这些评论的原因。
工作表需要字符串值'工作表(”Sheet2“)。激活' – 2016-10-11 06:54:33