Question

我想要在名为QA.xls的主文件中合并的xls文件，所有工作簿都具有相同的列。希望它在目录中查找特定文件，其名称为：的 1。 QA_ana 2. QA_carol 3. QA_vane 我找到了以下代码：

Sub LoopThroughDirectory()
Dim MyFile As String
Dim erow
Dim Filepath As String
Filepath = "C:\QA\"
MyFile = Dir(Filepath)
Do While Len(MyFile) > 0
    If MyFile = "QA.xlsm" Then
    Exit Sub
    End If

    Workbooks.Open (Filepath & MyFile)
    Range("A2:D2").Copy
    ActiveWorkbook.Close
    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 4))

    MyFile = Dir
Loop
End Sub

是否可以帮助我编辑该代码以使用特定目录中的文件特定文件名。

问候

Answer 1

如果您只想打开三个特定文件，我就不会在所有内容中循环。只需使用：

Dim wbkOne as workbook
Dim wbkTwo as workbook
etc

set wbkOne = workbooks.Open("C:\QA\QA_ana.xlsm")
set wbkTwo = workbooks.Open("C:\QA\QA_carol.xlsm")
etc

将3个工作簿合并到1个主工作簿Excel中

1 个答案: