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