Excel 将源工作表复制到源工作表名称更改的其他工作簿

我正在尝试将工作簿2中的第二张工作表复制到工作簿1（运行宏的打开工作簿）

第二张图纸的名称会不时更改

代码复制第二页，前提是该名称从未更改

Dim wb1 As Workbook
Set wb1 = ActiveWorkbook

Dim wb2 As Workbook
folder = Application.GetOpenFilename("Excel.xlsx (*.xlsx), *.xlsx," & "Excel.xls (*xls), *xls", 1, "select wb2")
Set wb2= Workbooks.Open(Filename:=folder)

Sheets("2nd sheet").Copy After:=wb1.Sheets(1)
ActiveSheet.Name = "renamed sheet 2"
wb2.Close SaveChanges:=False

在复制之前，我试图重命名wb2的第二页，但没有成功

'wb2.Sheets(2).Select
'ActiveSheet.Name = "2nd sheet"

---

我可能没有正确理解您的问题，但如果第二张纸的名称可能会发生更改，但您始终希望复制第二张纸，则以下内容可以实现此目的：

Dim wb1 As Workbook: Set wb1 = ThisWorkbook
Dim wb2 As Workbook
Path = Application.GetOpenFilename("Excel.xlsx (*.xlsx), *.xlsx," & "Excel.xls (*xls), *xls", 1, "select wb2")
Set wb2 = Workbooks.Open(fileName:=Path)

wb2.Sheets(2).Copy After:=wb1.Sheets(1)
ActiveSheet.Name = "renamed sheet 2"
wb2.Close SaveChanges:=False

---

请将

工作表（“第二张工作表”）

作为其Excel工作表名称（例如

工作表（1）

）。

如果名称可能会更改，但它始终是您要复制的第二张工作表，您不能简单地更改

工作表（“第二张工作表”）。复制后：=wb1.工作表（1）

到

工作表（2）。复制后：=wb1.工作表（1）

？@noobaccountant如果有帮助，请将我的回答标记为答案？谢谢：）