Excel VBA質問箱 IV

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

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


13412 / 76738 ←次へ | 前へ→

【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 質問
【68811】Re:txtファイルを連続処理したい UO3 11/4/20(水) 11:48 発言
【68814】Re:txtファイルを連続処理したい すいか 11/4/20(水) 13:24 質問
【68816】Re:txtファイルを連続処理したい UO3 11/4/20(水) 15:43 発言
【68818】Re:txtファイルを連続処理したい すいか 11/4/20(水) 16:37 質問
【68820】Re:txtファイルを連続処理したい UO3 11/4/20(水) 17:13 回答
【68822】Re:txtファイルを連続処理したい すいか 11/4/20(水) 17:36 質問
【68826】Re:txtファイルを連続処理したい UO3 11/4/21(木) 6:04 発言
【68828】Re:txtファイルを連続処理したい すいか 11/4/21(木) 10:00 質問
【68829】Re:txtファイルを連続処理したい UO3 11/4/21(木) 11:11 発言
【68830】Re:txtファイルを連続処理したい すいか 11/4/21(木) 13:05 発言
【68831】Re:txtファイルを連続処理したい neptune 11/4/21(木) 14:37 発言
【68832】Re:txtファイルを連続処理したい neptune 11/4/21(木) 14:40 発言
【68837】Re:txtファイルを連続処理したい すいか 11/4/21(木) 23:43 発言
【68838】Re:txtファイルを連続処理したい すいか 11/4/22(金) 0:39 質問
【68839】Re:txtファイルを連続処理したい UO3 11/4/22(金) 5:58 発言
【68840】Re:txtファイルを連続処理したい すいか 11/4/22(金) 14:08 質問
【68841】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 14:43 質問
【68843】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 15:01 発言
【68845】Re:txtファイルを連続処理したい すいか 11/4/22(金) 15:31 質問
【68847】Re:txtファイルを連続処理したい neptune 11/4/22(金) 15:40 発言
【68851】Re:txtファイルを連続処理したい すいか 11/4/23(土) 6:42 質問
【68850】Re:txtファイルを連続処理したい kanabun 11/4/22(金) 18:14 発言
【68852】Re:txtファイルを連続処理したい すいか 11/4/23(土) 6:53 質問
【68854】Re:txtファイルを連続処理したい kanabun 11/4/23(土) 11:30 発言
【68872】Re:txtファイルを連続処理したい すいか 11/4/23(土) 20:33 発言
【68896】Re:txtファイルを連続処理したい neptune 11/4/24(日) 22:21 発言
【68842】Re:txtファイルを連続処理したい UO3 11/4/22(金) 14:52 発言
【68846】Re:txtファイルを連続処理したい すいか 11/4/22(金) 15:39 質問
【68849】Re:txtファイルを連続処理したい UO3 11/4/22(金) 17:34 発言
【68853】Re:txtファイルを連続処理したい すいか 11/4/23(土) 7:16 質問
【68902】Re:txtファイルを連続処理したい SK63 11/4/26(火) 8:25 発言
【68817】Re:txtファイルを連続処理したい neptune 11/4/20(水) 16:35 発言

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