VBA Excel宏2文件中读取

Question

我试着合并第三个内部2个Excel表格用下面的代码

`Sub CommandButton1_Click() 
Dim MyFile As String 
Dim Filepath As String 
Filepath = "C:\temp\" 
MyFile = Dir(Filepath) 
    'MyFile = "12_10_15_par.xlxs" 
    'If MyFile = "12_10_15_par.xlsx" Then 
    If MyFile = Cells(4, 2) Then 
     Workbooks.Open (Filepath & MyFile) 
     Worksheets("par").Range("A1:K1000").Copy 
     ActiveWorkbook.Close 
     ActiveSheet.Paste Destination:=Worksheets("match").Range("T1:AF1001") 
     'Application.CutCopyMode = False 
    End If 
    MyFile2 = Dir(Filepath) 
    If MyFile2 = Cells(5, 2) Then 
     Workbooks.Open (Filepath & MyFile2) 
     Worksheets("ops").Range("A1:K1000").Copy 
     ActiveWorkbook.Close 
     ActiveSheet.Paste Destination:=Worksheets("match").Range("D1:S1001") 
     'Application.CutCopyMode = False 
    End If 

End Sub` 

也许处理合并的错误，我所做的一切错误的，因为Myfile2保持第一值，而不是领新的...

Answer 1

这里是如何使用Dir()，注意在循环结尾MyFile = Dir()，它会在循环之前加载下一个文件名MyFile！

试试这个：

Sub CommandButton1_Click() 
Dim MyFile As String, _ 
    Filepath As String, _ 
    oWb As Workbook, _ 
    pWb As Workbook 

Filepath = "C:\temp\" 
Set pWb = ThisWorkbook 

MyFile = Dir(Filepath) 
Do While MyFile <> "" 
    If MyFile <> Cells(4, 2) And MyFile <> Cells(5, 2) Then 
    Else 
     Set oWb = Workbooks.Open(Filepath & MyFile) 
     If MyFile <> Cells(5, 2) Then 
      oWb.Worksheets("par").Range("A1:K1000").Copy Destination:=pWb.Worksheets("match").Range("T1:AF1001") '4 
     Else 
      oWb.Worksheets("ops").Range("A1:K1000").Copy Destination:=pWb.Worksheets("match").Range("D1:S1001") '5 
     End If 
     'Application.CutCopyMode = False 
     oWb.Close 
    End If 
    MyFile = Dir() 
Loop 

End Sub