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
    
  '2つめ以降のファイル名を格納する
  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