Excel VBA質問箱 IV

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

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


38754 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   >すみません。文字化けはテキストファイルの文字コードをUnicode→ANSIで保存しなおすことで解決できました。
>
>1つ1つテキストファイルを開いて文字コードをANSIにして保存しなおす作業も
>大変なので、最初からANSIで読み込むことって可能でしょうか?

Unicodeテキストをそのまま読み込む、ということですね。
では、こんな感じでどうでしょうか。^d^

Sub ReadTextFile2()
  Dim myPath As String
  Dim Fname As String
  Dim N As Integer
  Dim D As String
  Dim VV As Variant
  Dim rngDest As Range
  Dim i As Integer
  
  Set rngDest = Workbooks.Add.Worksheets(1).Range("A1")
 
  myPath = ThisWorkbook.Path & "\横浜\"
  Fname = Dir(myPath & "*.*")
 
  Do Until Fname = ""
    N = FreeFile
    Open myPath & Fname For Binary Access Read As #N
    D = InputB(LOF(N), N)
    Close #N
    VV = Split(D, vbCrLf)
    
    rngDest.Value = VV(0)
    Set rngDest = rngDest.Offset(1)
    
    For i = 1 To UBound(VV)
      If Left$(VV(i), 1) = "D" Then
        rngDest.Value = VV(i)
        Set rngDest = rngDest.Offset(1)
      End If
    Next
  
    Fname = Dir()
  Loop
 
  rngDest.Offset(-1).CurrentRegion.TextToColumns , xlDelimited, comma:=True, Space:=True
 
End Sub

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 お礼

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