ファイルサーバー上にある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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
VB6 Dir関数で52エラー発生
Visual Basic(VBA)
-
-
4
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
5
全ての変数を一気にリセットする方法はありますか?
PowerPoint(パワーポイント)
-
6
VBAでの Replace関数で、ワイルドカードは使えないのでしょうか?
Visual Basic(VBA)
-
7
DATE型変数を初期化する方法
Visual Basic(VBA)
-
8
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
9
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
10
VBA ファイルを開くダイアログでの初期表示にファイルサーバーを指定
Excel(エクセル)
-
11
複数のパソコン間のDir関数について
Visual Basic(VBA)
-
12
エクセルVBAでマルチページの切り替え方法の件で
Excel(エクセル)
-
13
VBA プロシージャの名前の取得
その他(Microsoft Office)
-
14
エクセルvbaでの図形のカット(コピー)ペーストについて
Excel(エクセル)
-
15
マクロでネットワーク上のコンピューターへの接続
Excel(エクセル)
-
16
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
17
会社のネットワーク上のファイルを開けない こんにちわ 今大変困ってます 会社のネットワーク上のファイ
Visual Basic(VBA)
-
18
Vba Userformを前面に出すについて
Access(アクセス)
-
19
VBAでワークシートを引数としてサンプル関数に渡したい
Visual Basic(VBA)
-
20
worksheetFunctionクラスのVlookupプロパティを取得できません エラーへの対応
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで外部のファイルの場所を...
-
同名フォルダを作成し、そのフ...
-
拡張子をつくる
-
ExcelVBAでリンク先の対象のフ...
-
参照元Excelファイルをバックグ...
-
PCに保存していた写真を見られ...
-
aspのファイルからAccessを参照...
-
アプリケーションからLotus Not...
-
スマホでHTMLファイルを開いて...
-
Excel VBAでフォルダが何層にも...
-
Mac Excel VBAについて
-
VBScriptで、ローカルに存在す...
-
<a href="file:///フォルダ名/...
-
MkDir パス名が無効です
-
kboardの設置が出来ない
-
ファイルの作成日時について
-
C#のFileSystemWatcherでのファ...
-
Excelファイルの特定のシートを...
-
OpenFileDialogを使った後にも...
-
robocopyをすると隠し属性フォ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PCに保存していた写真を見られ...
-
拡張子をつくる
-
同名フォルダを作成し、そのフ...
-
Excelで外部のファイルの場所を...
-
MkDir パス名が無効です
-
<a href="file:///フォルダ名/...
-
OpenFileDialogを使った後にも...
-
ExcelVBAでリンク先の対象のフ...
-
参照元Excelファイルをバックグ...
-
Webページのリンクの貼り方を教...
-
EXCEL VBAのDir関数について
-
ファイルの作成日時について
-
Outlookで添付ファイルの貼り付...
-
Mac Excel VBAについて
-
エクセルVBAで、ファイルの情報...
-
秀丸のタグジャンプがうまくで...
-
「~$ファイル名.doc」というフ...
-
Git bashが開かなくなってしま...
-
VBSでメール送信
-
スマホでHTMLファイルを開いて...
おすすめ情報