VBAにてフォルダ内のファイルチェックをして複数あれば処理を終了。
1つなら実行する。という使用に指定のですがなかなかうまくいきません。
どなたかご教示いただけないでしょうか?
下記記述だとファイルが1つでもチェックが入ってしまいます。
以上、宜しくお願いします。
If Dir(ThisWorkbook.Path & "\" & "*.csv*") <> "" Then
MsgBox "ファイル名 :【 *.CSV* FILE 】が複数存在しています。" & Chr(13) & Chr(13) & _
"フォルダ内から不要なCSVファイルを [削除] して下さい。"
Exit Sub
End If
No.1ベストアンサー
- 回答日時:
If Dir(ThisWorkbook.Path & "\" & "*.csv*") <> "" Then
If Dir() <> "" Then
MsgBox "ファイル名 :【 *.CSV* FILE 】が複数存在しています。" & vbCr & vbCr _
& "フォルダ内から不要なCSVファイルを [削除] して下さい。"
Exit Sub
End If
' 1つなら実行する
End If
No.2
- 回答日時:
Dim FName As String
Dim i As Long
FName = Dir(ThisWorkbook.Path & "\" & "*.csv")
Do While FName <> ""
i = i + 1
FName = Dir
Loop
If i > 1 Then
MsgBox "ファイル名 :【 *.CSV FILE 】が" & i & "個存在しています。" & vbCr & vbCr & _
"フォルダ内から不要なCSVファイルを [削除] して下さい。"
End If
元の数が少なければ、これでも良いかと。
WindFaller様
出来ました。ありがとうございました。
ベストアンサーに選びたかったのですが、記述の少ない よろずやkinchan様
のほうが簡単に編集できたので今回はすみません。
今後の参考にさせて頂きます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
error RC2104について
-
C#でCSVファイルをリストビュー...
-
拡張子のアイコンを取得
-
隠されたファイル
-
サブフォルダ内のファイルを全...
-
リストボックスに表示されたフ...
-
Thunderbird 振り分けされなく...
-
大量のフォルダへのハイパーリ...
-
Tera Termでのコマンド流し込み...
-
コマンドの戻り値が「130」
-
C:\\Documents and Settingsが...
-
【Ciscoコマンド】interface As...
-
NetBTエラーとbrowserエラーが多発
-
MODE関数を文字でできる関数は...
-
ブラウザにIPアドレスを直打ち...
-
I386フォルダの役目とは
-
フォルダのサムネイル画像
-
元のフォルダに矢印キーで帰りたい
-
大文字はできるだけ使わない方...
-
撮影後、SDカードに作成される...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
EXCELのSheetを自動更新できな...
-
C#でCSVファイルをリストビュー...
-
error RC2104について
-
指定したフォルダ直下のファイ...
-
VBA Bookの表示、非表示
-
日付を指定しファイルを削除す...
-
fgetsのfはどういう意味でしょ...
-
リストボックスに表示されたフ...
-
ExcelからAccessのマクロを呼び...
-
音をならしたい・・・
-
サクラエディタに使用できるvbs...
-
バッチファイルでフォルダとフ...
-
隠されたファイル
-
意味不明のアイコンとプログラ...
-
エクセル古いバージョンに戻す
-
顧客から返ってきたExcel Sheet...
-
エクセルVBAとJavaの関係は?
-
ネットワークドライブ先のファ...
-
エクセルデータをweb上にアップ...
おすすめ情報