vba - 如何编写宏来打开 Excel 文件并将数据粘贴到包含宏的文件中？

Question

我有两个 Excel 文件。其中之一包含一个宏。另一个是共享工作簿。我已经写了一些代码。它打开共享工作簿文件，并选择指定选项卡上的所有数据。

唯一的问题是我不确定如何编写代码来使用宏自动将此数据粘贴到文件中？

Sub ImportData_Click()

' open the source workbook and select the source sheet
Workbooks.Open Filename:="Test.xlsm"
Sheets("Make").Select

' copy the source range
Sheets("Make").Range("A1:Z630").Select
Selection.Copy

' select current workbook and paste the values starting at U4
Sheets("Make").Select
Sheets("Make").Range("A1:Z630").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

' close the source workbook
Windows("Test.xlsm").Activate
ActiveWorkbook.Close

End Sub

Answer 1

ThisWorkbook.Activate

应该可以解决问题。根据您的宏判断，将其粘贴到“选择当前工作簿并粘贴从 U4 开始的值”注释之后。