Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


67106 / 76734 ←次へ | 前へ→

【14187】Re:FDのフォルダーとファイルについて
質問  YN61  - 04/5/22(土) 17:59 -

引用なし
パスワード
   ▼ryo さん:
>>'  Filename = "A:\平安\" & Cells(i, 2)・・・この部分のコードが分かりません
>>'  If Filename <> "" Then
>>'    MsgBox "「ファイルは既にあります」"
>>'    Exit Sub
>>'  End If
>ここを、
>   Filename = Dir("A:\平安\" & Cells(i, 2))
>と変えるだけで大丈夫です。存在したらFilenameにはファイル名が返ります。

ご返事ありがとうございます。ご指摘の通りコードを変えました。FDにファイルが存在した場合、MsgBoxも働かず、またExitもしません。上書き保存を聞いてきます。AディスクのCellになっているのかも知れません。Cell(i,2)をUドライブのパスにする方法が分かりません。こんなこと出来るのでしょうか。ご教授いただきたくお願いします。

3 hits

【14150】FDのフォルダーとファイルについて YN61 04/5/21(金) 21:18 質問
【14157】Re:FDのフォルダーとファイルについて ryo 04/5/22(土) 12:11 回答
【14187】Re:FDのフォルダーとファイルについて YN61 04/5/22(土) 17:59 質問
【14258】Re:FDのフォルダーとファイルについて YN61 04/5/24(月) 19:32 お礼

67106 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free