Excel VBA質問箱 IV

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

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


38899 / 76738 ←次へ | 前へ→

【42965】Re:複数のテキストファイルを読み込んで特定の行だけ表示させるには
回答  だるま WEB  - 06/9/28(木) 10:14 -

引用なし
パスワード
   こんな感じでいかがでしょうか。^d^

Sub ReadTextFile()
  Dim myPath As String
  Dim Fname As String
  Dim N As Integer
  Dim D As String
  Dim rngDest As Range
  
  Set rngDest = Workbooks.Add.Worksheets(1).Range("A1")
  
  myPath = ThisWorkbook.Path & "\横浜\"
  Fname = Dir(myPath & "*.*")
  
  Do Until Fname = ""
    N = FreeFile
    Open myPath & Fname For Input As #N
    Line Input #N, D
    rngDest.Value = D
    Set rngDest = rngDest.Offset(1)
    
    Do Until EOF(N)
      Line Input #N, D
      If Left$(D, 1) = "D" Then
        rngDest.Value = D
        Set rngDest = rngDest.Offset(1)
      End If
    Loop
    
    Close #N
    Fname = Dir()
  Loop
  
  rngDest.Offset(-1).CurrentRegion.TextToColumns , xlDelimited, comma:=True, Space:=True
  
End Sub

なお、このコードは
>1列目が「D」(1文字だけです)になっている行すべて
ではなく一行の一文字目が「D」の行を抽出しています。

0 hits

【42960】複数のテキストファイルを読み込んで特定の行だけ表示させるには ターキー 06/9/28(木) 0:46 質問
【42962】Re:複数のテキストファイルを読み込んで... ハチ 06/9/28(木) 9:24 発言
【42996】Re:複数のテキストファイルを読み込んで... ターキー 06/9/28(木) 21:29 お礼
【42965】Re:複数のテキストファイルを読み込んで特... だるま 06/9/28(木) 10:14 回答
【42998】Re:複数のテキストファイルを読み込んで特... ターキー 06/9/28(木) 21:34 お礼
【43010】Re:複数のテキストファイルを読み込んで特... だるま 06/9/29(金) 9:02 回答
【43040】Re:複数のテキストファイルを読み込んで特... ターキー 06/9/30(土) 0:22 お礼
【43059】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/1(日) 2:30 質問
【43098】Re:複数のテキストファイルを読み込んで特... ハチ 06/10/2(月) 11:30 発言
【43120】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/2(月) 22:10 お礼
【43111】Re:複数のテキストファイルを読み込んで特... だるま 06/10/2(月) 16:00 回答
【43122】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/2(月) 22:25 質問
【43140】Re:複数のテキストファイルを読み込んで特... りん@昼休憩 06/10/3(火) 12:25 回答
【43153】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/3(火) 21:31 お礼
【43154】Re:複数のテキストファイルを読み込んで特... ターキー 06/10/3(火) 21:37 お礼

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