Question

我一直试图在Excel中提出VBA代码，这样我就可以从一个工作簿中提取值并将它们粘贴到另一个工作簿中。有两个工作簿：一个是数据源（有多个选项卡），另一个是我想从源文件中粘贴值。

数据源工作簿（wb1），希望你能看到下面的图片

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

所以我的决赛桌看起来像这样：

Port1 2.78 2.11

Port2 .... ....

Port3 .... ....

Port4 .... ....

等等。我希望有人能够善待我，帮助解决我的问题。

先谢谢你。

Answer 1

到目前为止，这是我的代码：

Sub 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

End Sub

在工作簿

1 个答案: