vba - 在文件名和行号中循环：将多个文件复制为一个

Question

我有数百个 excel 文件，其中的某些部分要逐行复制并粘贴到另一个 excel 文件中（从文件 k 中提取的信息粘贴在 k 行中）。已找到一个程序来完成除循环部分之外的任务。在代码中，使用了文件名和行号，例如：

        WorkbookName = "file 1"
        ...
        .Range("C1")=...

有人可以帮我吗？

我试过这个，它不起作用：

      k=0
      do while k<500
         WorkbookName = "file (1+k)"
         ...
         .Range("C(1+k)")=...
        ...
      Loop

Answer 1

这样的事情应该让你走上正确的轨道。

Dim k As Long
Dim WorkbookName As String
Dim thisWbk As Workbook
Dim wbk As Workbook

Set thisWbk = ActiveWorkbook

For k = 0 To 500
    WorkbookName = "file " & CStr(1 + k)
    Set wbk = Workbooks.Open("C:\mydir\" & WorkbookName & ".xls")

    thisWbk.Sheets("Sheet1").Range("C" & CStr(1 + k)) _
        = wbk.Sheets("Sheet1").Range("A5")

    wbk.Close
Next k