Excel 在工作簿之间复制选项卡标签和值

我一直在尝试在Excel中编写VBA代码，允许我从一个工作簿中提取值并粘贴到另一个工作簿中。 有两个工作簿：一个是带有多个选项卡的数据源，另一个是我想从源文件粘贴值的地方

数据源工作簿wb1，希望您能看到下图

从wb1中，我需要复制3件东西：标签选项卡，以及第11行D列和G列中的值，并将它们粘贴到同一行wb2的工作表中。我正在尝试为wb1中的每个可用选项卡复制这三个值选项卡标签，D11中的值1，G11中的值2，并将它们粘贴到wb2中，以便它们成行堆叠

因此，我的最终表格如下所示：

端口1 2.78 2.11

端口2

端口3

端口4

等等。 我希望有人会很友善，帮助我解决我的问题

---

先谢谢你

以下是我目前的代码：

次级进口

Dim i As Integer, n As Integer, p As Integer
Dim wb As Workbook, wb2 As Workbook
Dim ws As Worksheet, ws2 As Worksheet

Application.ScreenUpdating = False

Set wb = ThisWorkbook
Set ws = wb.Sheets("Import")
ws1.Range("data_table").ClearContents

Set wb2 = Workbooks.Open("C:\Users\Data_Source.XLSX")

For Each ws2 In wb2.Worksheets
    i = i + 1
    n = n + 1
    p = p + 1
    ws.Range("B7:B" & i).Value = ws2.Name
    ws.Range("C7:C" & n).Value = ws2.Cells(11, d)
    ws.Range("D7:D" & p).Value = ws2.Cells(11, g)


Next ws2

---

End Sub

问一个特定的问题发布您编写的代码，以便我们可以帮助您在需要的地方进行调整Sub导入Dim i作为整数，n作为整数，p作为整数Dim wb作为工作簿，wb2作为工作簿Dim ws作为工作表，ws2作为工作表应用程序。屏幕更新=False Set wb=此工作簿集ws=wb.SheetsImport ws1.Rangedata\U table.ClearContents Set wb2=工作簿。OpenC:\Users\Data\U Source.XLSX用于wb2中的每个ws2。工作表i=i+1 n=n+1 p=p+1 ws.RangeB7:B&i.Value=ws2.Namews.RangeC7:C&n.Value=ws2.Cells11，d ws.RangeD7:d&p.Value=ws2.Cells11，g下一个ws2结束子节点