ファイルサーバー上にあるEXCELファイルのVBAで
新規にファイルを作成する際にDIR関数で
同名ファイルの有無チェックを作成したいと考えています。
しかし以下のような処理で行うとチェックするフォルダが
My documentsになってしまいファイルの有無チェックが
うまくいきません。どのように書けば良いのでしょうか?
ご教授ください。よろしくお願いします。
(情報不足でしたらご指摘ください。補足いたします)
ChDir "\\サーバー\フォルダ\サブフォルダ"
If(""=Dir(ファイル名))then '同名ファイル無
ファイルを保存する処理
Else
msgbox "同名ファイルがあります"
Endif
環境:
サーバー :WinNT4.0
クライアント:Win98SE or WinNT4.0
EXCEL2000
LAN接続(同一ドメイン)
No.2ベストアンサー
- 回答日時:
こんにちは。
maruru01です。チェックするフォルダも込みのフルパスで指定する方がいいと思いますよ。
チェックするフォルダは、常に同じなら定数化しておき、変更の可能性があるなら変数に代入して使用すればいいでしょう。
変数(または定数)は標準モジュールにでも宣言しておけばいいでしょう。
*****標準モジュール*****
Public FolderName As String
*****実際の処理*****
FolderName = "\\サーバー\フォルダ\サブフォルダ\"
If Dir(FolderName & "ファイル名") = "" Then '同名ファイル無
'ファイルを保存する処理
Else
MsgBox "同名ファイルがあります"
End If
ご回答ありがとうございます。
なるほど、フォルダを変数に代入しておけば
それの変更があった場合でも便利ですね。
勉強になりました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 集めたシートのシート名を変更したい。 下記のコードでサブフォルダにあるファイルのSheet3を集めて 6 2022/08/23 10:38
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) Excel VBA ファイル取得について フォルダの中に、ファイル名“会議“を含むファイルが1つまた 9 2022/10/12 01:18
- Visual Basic(VBA) あるフォルダーのファイルを違う親フォルダーのサブフォルダーに移したい 11 2023/02/15 19:00
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
VB6 Dir関数で52エラー発生
Visual Basic(VBA)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
6
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
7
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
8
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
9
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
-
10
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
11
VBA ファイルを開くダイアログでの初期表示にファイルサーバーを指定
Excel(エクセル)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
14
複数のパソコン間のDir関数について
Visual Basic(VBA)
-
15
エクセルマクロで、別のブックが開いているかを判定したいのですが。
その他(Microsoft Office)
-
16
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
17
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
18
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
19
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
20
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PCに保存していた写真を見られ...
-
ExcelVBAでリンク先の対象のフ...
-
Excelで外部のファイルの場所を...
-
OpenFileDialogを使った後にも...
-
スマホでHTMLファイルを開いて...
-
秀丸のタグジャンプがうまくで...
-
C#のFileSystemWatcherでのファ...
-
拡張子をつくる
-
外部ファイルにアクセス制限
-
URL直接指定禁止の自ムービーフ...
-
Outlookで添付ファイルの貼り付...
-
「~.css?数字」というファイル...
-
ファイルとフォルダのセキュリ...
-
「~$ファイル名.doc」というフ...
-
Git bashが開かなくなってしま...
-
VBSでメール送信
-
同名フォルダを作成し、そのフ...
-
OneDriveのドキュメントにある...
-
ファイルの作成日時について
-
EXCEL VBAのDir関数について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PCに保存していた写真を見られ...
-
Excelの関数について教えてくだ...
-
拡張子をつくる
-
Excelで外部のファイルの場所を...
-
同名フォルダを作成し、そのフ...
-
<a href="file:///フォルダ名/...
-
OpenFileDialogを使った後にも...
-
MkDir パス名が無効です
-
スマホでHTMLファイルを開いて...
-
参照元Excelファイルをバックグ...
-
ExcelVBAでリンク先の対象のフ...
-
VBSでメール送信
-
EXCEL VBAのDir関数について
-
ファイルの作成日時について
-
Mac Excel VBAについて
-
Webページのリンクの貼り方を教...
-
「~$ファイル名.doc」というフ...
-
秀丸のタグジャンプがうまくで...
-
Outlookで添付ファイルの貼り付...
-
OneDriveのドキュメントにある...
おすすめ情報