从另一个 excel 工作簿复制数据 - 而不是一个工作表，而是复制所有工作表

Question

我有几个要合并的 Excel 文件。每个文件有 17 张，分别命名为 00、01、02、03 等。 现在，我打开每个工作簿并尝试将数据复制到一个文件中，该文件也有 16 个工作表，在工作表 x 上我想从工作表 x 中获取所有其他工作簿的信息。

现在，我打开文件，每个文件都有以下代码：

For i = 0 To 16

  Workbooks(nazwaPliku).Activate
  zakladka = Right("0" & CStr(i), 2)
  Sheets(zakladka).Activate
  ileWierszy = Application.WorksheetFunction.Max(Sheets(zakladka).Range("B:B"))
  wierszMin = Application.WorksheetFunction.Match("1", Sheets(zakladka).Range("B:B"), 0)
  zakresDoKop = "A" & wierszMin + 1 & ":" & "I" & wierszMin + ileWierszy + 1 '1 wiecej dla bezpieczenstwa
  Sheets(zakladka).Range(zakresDoKop).Resize(ileWierszy, 1).Value = rok & "_" & czesc
  Sheets(zakladka).Range(zakresDoKop).Copy
  ThisWorkbook.Sheets(zakladka).Activate
  ThisWorkbook.Sheets(zakladka).Range("A" & wsk(i)).PasteSpecial

  wsk(i) = wsk(i) + ileWierszy + 2
Next i

对于第一个文件，一切都很好（所有工作表的 wsk = 2），但是当我打开下一个工作簿时，发生了一些奇怪的事情。例如，当 i=2 时，代码从工作表 02 - 16 复制数据并将它们粘贴到此工作簿中。更重要的是，我通过删除工作簿中的第 16 表进行了测试，当 i 16 时，发生错误（因为它缺少一张表）。我想也许我不太了解这里的循环？

有什么想法吗？我知道如何以不同的方式编写它，但由于我花了最后 4 个小时试图弄清楚事情，我真的很想知道为什么会发生这种情况。

Answer 1

试试这样的：

未经测试

Dim wb As Workbook
Dim ws As Worksheet
Dim desWs As Worksheet
Dim firstRow As Long
Dim lastRow As Long
Dim lastColumn As Long
Dim pasteRow As Long

'I'm assuming you're looping through your workbooks... so set each open workbook to _
'the wb variable once you've opened it/when you open it.

'This will loop through each sheet in the workbook you just opened and paste the _
'values in the corresponding ThisWorkbook sheet.
For Each ws In wb.Sheets
    'Since the sheet names in ThisWorkbook are the same as in the other wb, we can _
    'use the current worksheet name for the destination sheet. (ws.Name)
    set desWs = ThisWorkbook.Sheets(ws.Name)
    firstRow = ws.Range("B:B").Find("*", searchdirection:=xlNext).Row + 1
    lastRow = ws.Range("B:B").Find("*", searchdirection:=xlPrevious).Row
    lastColumn = ws.Rows("1:1").Find("*", searchdirection:=xlNext).Column
    pasteRow = desWs.Range("A:A").Find("*", searchdirection:=xlPrevious).Row + 1
    desWs.Range(desWs.Cells(pasteRow, 1).Resize(lastRow-firstRow, lastColumn) = _
        ws.Range(ws.Cells(firstRow, 1), ws.Cells(lastRow, lastColumn)).Value
Next ws

请记住，此方法只复制值，而不是格式化。