Excel VBA質問箱 IV

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

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


41817 / 76732 ←次へ | 前へ→

【39992】Re:フォルダ内のファイルをまとめて転記したいのですが。
発言  かみちゃん  - 06/7/4(火) 23:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>[Do while 〜Loopまで飛んでいる]ような気がします・・・
>(名前等は間違っていないようなので)
>すみません。
>[飛んでる]場合はどうしたらよいのでしょうか?

[#39978]でESMEYさんが提示されたコードではうまく動作するのでしょうか?
試しに、以下のようなコードでファイル名が表示されますか?

Sub test3()
 Dim FolderName As String
 Dim FileName As String
 
 FolderName = "\\C:test"
 FileName = Dir(FolderName & "\*.xls")
 Do While FileName <> ""
  MsgBox FolderName & "\" & FileName
  FileName = Dir()
 Loop
 MsgBox "終了しました"
End Sub

[#39981]でKeinさんのコードのうち、ファイル名の取得部分だけ抜粋すると、
以下のようなコードになります。
Sub test4()
 Dim FileName As String
 Const FolderName As String = "\\C:test\"

 FileName = Dir(FolderName & "*.xls")
 Do While FileName <> ""
  MsgBox FolderName & FileName
  FileName = Dir()
 Loop
 MsgBox "終了しました"
End Sub

test3、test4ともに動作しないのであれば、
 FolderName = "\\C:test"
は、合っているのでしょうか?

3 hits

【39895】フォルダ内のファイルをまとめて転記したいのですが。 ESMEY 06/7/3(月) 20:54 質問
【39896】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/3(月) 21:15 発言
【39978】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 20:50 発言
【39981】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 21:35 回答
【39985】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 22:12 発言
【39987】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 22:27 発言
【39991】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/4(火) 22:58 発言
【39992】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/4(火) 23:06 発言
【39993】Re:フォルダ内のファイルをまとめて転記し... Kein 06/7/4(火) 23:15 発言
【40040】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/5(水) 23:10 発言
【40042】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/5(水) 23:14 発言
【40047】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/6(木) 0:05 お礼
【40049】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/6(木) 0:20 発言
【40094】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/6(木) 21:15 お礼
【40105】Re:フォルダ内のファイルをまとめて転記し... かみちゃん 06/7/6(木) 22:33 発言
【40229】Re:フォルダ内のファイルをまとめて転記し... ESMEY 06/7/9(日) 22:25 お礼

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