ファイル名= "xx"の場合にのみ実行するVBA

Question

ファイルパスの場所のファイル名が "xx"の場合にのみ、以下を実行します。現在のところ、ファイル「<」>「xx」を開きます。私はここで何が欠けていますか？

Sub UpdateMasterLog() 
Dim MyFile As String 
Dim LastRow As Long 
Dim erow1 
Dim Filepath1 

If FileName = "XX" Then 

Filepath1 = "Z:\test folder" 
MyFile = Dir(Filepath1) 

    Workbooks.Open (Filepath1 & MyFile) 
    ActiveWorkbook.Worksheets("sheet1").Activate 
    LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    Range("A2:P" & LastRow).Copy 
    ActiveWorkbook.Close 

    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Offset(1, -2) 

End If 

End Sub 

Answer 1

これを試してみてください：

Filepath1 = "Z:\test folder" 
Do While fileName <> "" 

    If filename = "xx" then 
      Workbooks.Open (Filepath1 & MyFile) 
      ActiveWorkbook.Worksheets("sheet1").Activate 
      LastRow = Cells.Find("*", SearchOrder:=xlByRows,     
      SearchDirection:=xlPrevious).Row 
      Range("A2:P" & LastRow).Copy 
      ActiveWorkbook.Close 
      ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Offset(1, -2) 
    End If 

    Filepath1 = Dir() 
Loop 

は/今のところこれを使用し、何が起こるかを教えてください。ベスト！