Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13406 / 76732

←次へ　｜　前へ→


	【68831】Re:txtファイルを連続処理したい

neptune - 11/4/21(木) 14:37 -


	引用なし

	パスワード

▼すいかさん：
また、横から失礼。

UO3 さんのご指摘を判り易くテストコードにするとこんな感じです。
テストはしてませんけどコンパイルエラーは出ませんでした。

これがすいかさん
Sub t2()
　　Dim myfile　As String
　　Dim LOGDIR As String
　　LOGDIR = Cells(4, 4).Value + "\"
　　　　　　　'↑ここにパスが入力される
　　myfile = Dir(LOGDIR & "*.txt")
　　LOGDIR = LOGDIR & myfile
　
　　Do While myfile <> ""
　　　　Debug.Print LOGDIR
　　　　myfile = Dir()
　　Loop

End Sub

これがUO3 さんご指摘を修正
Sub t3()
　　Dim myfile　As String
　　Dim LOGDIR As String
　　LOGDIR = Cells(4, 4).Value + "\"
　　　　　　　'↑ここにパスが入力される
　　myfile = Dir(LOGDIR & "*.txt")
　　'LOGDIR = LOGDIR & myfile　'これは不要
　
　　Do While myfile <> ""
　　　　Debug.Print LOGDIR & myfile
　　　　myfile = Dir()
　　Loop

End Sub

慣れてない事をしようとする時は、単純化したテストコードでデバッグ
すると判り易いですよ。
デバッグなしのプログラミングってないですから。。。
以下のお好きな所で勉強して下さい。
ht tp://pcdn.int21.co.jp/pcdn/vb/noriolib/vbmag/0001/debug/
ht tp://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_030.html
ht tp://www.excel-excel.com/vbachair/step1-7.html
ht tp://homepage1.nifty.com/rucio/main/technique/teq_14.htm

#何故マルチポストが嫌われるか。
マルチポスト
ht tp://ja.wikipedia.org/wiki/%E3%83%9E%E3%83%AB%E3%83%81%E3%83%9D%E3%82%B9%E3%83%88
　＋
※好き嫌いの前に掲示板の運営者の定めたルールを守るのがマナー。

0 hits

▼

【68810】txtファイルを連続処理したい すいか 11/4/20(水) 11:06