LoopThrough関数がファイルをスキップする

Question

私はこのサイトには新規で、助けが必要です。 Excel内のマクロを作成して、フォルダ内のブック内の特定のセルから値を取り出し、その情報を統合します。コードが正常に機能しているように見えますが、それはフォルダ内のブックの約半分を引っ張っているだけです。誰でも知っていますなぜこれをやっていると私はそれを修正することができますか？あなたはファイル"maytt.xlsm"しかし、あなたが実際にそのファイルが到達した全部（Then Exit Sub）を停止されているのをスキップにしたいよう

Sub LoopThroughDirectory() 
    Dim MyFile As String 
    Dim erow 
    Dim Filepath As String 
    Filepath = "T:\Sales Orders\2017\May\" 
    MyFile = Dir("T:\Sales Orders\2017\May\") 

    Do While Len(MyFile) > 0 
    If MyFile = "maytt.xlsm" Then 
     Exit Sub 
    End If 

    Workbooks.Open ("T:\Sales Orders\2017\May\" & MyFile) 
    Range("F1:F7").Copy 
    ActiveWorkbook.Close 

    ecolumn = Sheet1.Cells(Columns.Count).End(xlToLeft).Offset(0, 1).Column 


    ActiveSheet.Paste Destination:=Worksheets("Summary").Range(Cells(1, ecolumn), Cells(7, ecolumn)) 

    MyFile = Dir 
    Loop 

End Sub 

Answer 1

は、それは見えます。ファイルをスキップして続行するには、コードに次の変更を行います。

1- myFile = Dir文の前に行ラベルを追加します。

NextFile: ' <---------Add this 
     MyFile = Dir 
    Loop 

2- Goto NextFileでExit Subを交換してください。