正在将工作表从源文件复制到活动工作簿

Question

我已经编写了以下代码。

Sub copysheet()
Dim source_wb As Workbook
Set source_wb = Workbooks.Open("H:Q1Data.xlsx")
source_wb.Worksheets("Sheet1").Copy  Before:=ActiveWorkbook.Worksheets("Sheet1")
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub

我认为问题出在复制粘贴行。我找到了其他代码，但我不想为了这么简单的目的而使我的代码复杂化。感谢您的帮助。谢谢

Answer 1

如前所述，您也可以在下面尝试。HTH。

source_wb.Worksheets("Sheet1").Copy Before:=ThisWorkbook.Worksheets("Sheet1")

Answer 2

将ActiveWorkbook设置为变量，并在复印工作表过程中引用它

Dim current_wb as Workbook
Dim source_wb As Workbook
Set current_wb = ActiveWorkbook
Set source_wb = Workbooks.Open("H:Q1Data.xlsx")
source_wb.Worksheets("Sheet1").Copy Before:=current_wb.Worksheets("Sheet1")
current_wb.Save
current_wb.Close