循环文件名和行号：将多个文件复制到一个文件中

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