特定のファイルタイプを除外するためのVBA構文

Question

ネットワークフォルダ内のすべてのExcelスプレッドシートをリストするマクロを作成しようとしていますが、スプレッドシートが開いている間にExcelが作成する一時ファイルは無視されます（〜$ filename.xlsx）下のコードは素晴らしいですが、これらの一時ファイルも取得します。

If (objFile) Like ("*.xlsx") Then 
      Do something here 
     End If 
     Next objFile 

私はIf Notステートメントを使用しようとしましたが、動作させるのに問題があります。私はVBAの初心者です。私の構文は単純にオフになっている可能性があります。一時的な〜$ *。xlsxファイルを無視して、すべての.xlsxファイルを指定する方法はありますか？

Answer 1

ちょうどあなたのLike文で~で始まる文字列を除外する：

If (objFile) Like ("[!~]*.xlsx") Then 
    'Do something here 
End If 

Answer 2

私は最も簡単な方法は、ちょうどIfステートメントに余分な句を追加することであると思う：

If objFile Like "*.xlsx" And Left(objFile, 2) <> "~$" Then 
     Do something here 
    End If 
Next objFile 

Answer 3

あなたがこれを行うことができます以下のコードを使用してください：

私はコレクションにファイル名を格納しますが、明らかに、あなたは配列に格納したり、ニーズに合ったものは何でも最高でした。..

よろしく、 TheSilkCode