Vba 将数据从关闭的工作簿传输到打开的工作簿,而不必指定文件路径,因为两者位于同一文件夹中

Vba 将数据从关闭的工作簿传输到打开的工作簿,而不必指定文件路径,因为两者位于同一文件夹中,vba,excel,Vba,Excel,我如何修改下面的代码才能做到这一点?我用这个workbook.Path试试运气。对于VB新手,任何帮助都将不胜感激 Private Sub CommandButton1_Click() Dim WB1 As Workbook Dim WB2 As Workbook Set WB1 = ActiveWorkbook Set WB2 = Workbooks.Open("C:\Users\joseph\Desktop\Required Files\Almost final\ RawData.xlsm

我如何修改下面的代码才能做到这一点?我用这个workbook.Path试试运气。对于VB新手,任何帮助都将不胜感激

Private Sub CommandButton1_Click()
Dim WB1 As Workbook
Dim WB2 As Workbook

Set WB1 = ActiveWorkbook
Set WB2 = Workbooks.Open("C:\Users\joseph\Desktop\Required Files\Almost final\ RawData.xlsm")

WB1.Sheets("CR Details").Columns("A:AW").Value = WB2.Sheets("sheet1").Columns("A:AW").Value

WB2.Close
End Sub
尝试:

如果WB2与WB1位于同一文件夹中

如果宏是从与WB2位于同一位置的第三个(单独)工作簿运行的,则:

Set WB2 = Workbooks.Open(ThisWorkbook.Path & "\RawData.xlsm")

代码在哪里运行?在WB1或其他工作簿WB1中,必须将WB2中的数据插入其中的工作簿。
Set WB2 = Workbooks.Open(ThisWorkbook.Path & "\RawData.xlsm")