Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13401 / 76738 ←次へ　｜　前へ→
【68842】Re:txtファイルを連続処理したい
発言  UO3  - 11/4/22(金) 14:52 -
引用なし
パスワード
   ▼すいか さん：

う〜ん・・・お役に立てず申し訳ありませんね。

エラートラップをかけましょうか。
読み込めないファイルがあれば、そこでメッセージを出して、そのファイルに関する
処理をスキップ。
でも、本当の問題解決にはなりませんけどね。

Sub Test()
　　Dim LOGDIR As String
　　Dim myFile As String
　　
　　LOGDIR = Cells(4, 4).Value + "\"
　　myFile = Dir(LOGDIR & "*.txt")
　
　　Do While myFile <> ""
　　　　
　　　　On Error Resume Next
　　　　Workbooks.OpenText Filename:=LOGDIR & myFile, StartRow:=1, _
　　　　　　DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
　　　　　　ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=False, _
　　　　　　Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 2)
　　　　If Err.Number <> 0 Then
　　　　　　MsgBox LOGDIR & myFile & "が読み込めません。処理をスキップします"
　　　　Else

　　　　　　'（編集処理をする）
　　　　　　Workbooks(myFile).Close savechanges:=False
　　　　
　　　　End If
　　　　On Error GoTo 0
　　　　
　　'２つめ以降のファイル名を格納する
　　myFile = Dir()

　　Loop

End Sub
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 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13401 / 76738 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free