在工作簿之間復制選項卡標簽和值

Question

我一直試圖在Excel中提出VBA代碼，這將允許我從一個工作簿中提取值並將其粘貼到另一個工作簿中。 有兩本工作簿：一本是數據源（具有多個選項卡），另一本是我要從源文件粘貼值的地方。

數據源工作簿（wb1），希望您可以看到下圖

從wb1，我需要復制3件事：選項卡標簽，以及第11行中D和G列中的值，並將它們粘貼到wb2中同一行的工作表中。 我正在嘗試對wb1中的每個可用選項卡進行此操作，復制三個值（選項卡標簽，D11中的值1，G11中的值2）並將其粘貼到wb2中，以便它們堆疊成行。

所以我的決賽桌看起來像這樣：

端口1 2.78 2.11

Port2 .... ....

Port3 .... ....

Port4 .... ....

等等。 我希望有人會很友善，並幫助我解決我的問題。

提前謝謝您。

Answer 1

到目前為止，這是我的代碼：

子Import（）

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

結束子