我有点不确定您想要的结构/格式是什么，但下面是打开另一个工作簿并复制该工作簿中的工作表的代码。

Sub CopySheet() 

Dim this_workbook As Workbook 'Declare variable of current workbook
Dim taget_workbook As Workbook 'Declare variable of the targeted workbook you want to open

Set this_workbook = ThisWorkbook

Set target_workbook = Workbooks.Open("T:\Excel\Files\Workbook2.xls") 'Opens the workbook you wish to copy data from 

target_workbook.Sheets("Sheet2").Copy After:=currentworkbook.Sheets("Sheet1") 'Your workbook is open, copy over the worksheet you want to copy over, in this case "Sheet2" will be copied and placed after "Sheet1"

target_workbook.Close 'Close targeted workbook

Set target_workbook = Nothing
Set this_workbook = Nothing

您可以将此工作表添加到工作簿Sheet 1工作表中，它将打开Excel工作簿Sheet 2并将该工作表复制到您的工作簿中。