Excel VBA質問箱 IV

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

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


46260 / 76732 ←次へ | 前へ→

【35446】Re:テキストの読み込みについて
発言  ponpon  - 06/3/4(土) 23:02 -

引用なし
パスワード
   こんばんは。

ここが参考になると思います。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110.html

あと「テキストファイル」で検索すると、
かなりの数ヒットします。

一応作ってみたのですが・・・・
マクロを記述したExcelファイルをtxtファイルのあるフォルダに保存して
開き直して実行してみてください。
うまくいかなかったらごめんなさい。

Sub test3()
  Dim myPath As String
  Dim myFile As String
  Dim NewSh As Worksheet
  Dim myNO As Integer
  Dim i As Long
  Dim myTxt As String
  
 
  myPath = ThisWorkbook.Path & "\"
  myFile = Dir(myPath & "*.txt")
  If myFile <> "" Then
   Do Until myFile = ""
     Set NewSh = Sheets.Add(after:=Sheets(Sheets.Count))
       NewSh.Name = Left$(myFile, Len(myFile) - 4)
     myNO = FreeFile
     With NewSh
      Open myPath & myFile _
          For Input As #myNO
   
      Do Until EOF(myNO)
        Line Input #myNO, myTxt
        i = i + 1
        .Cells(i, 1).Value = myTxt
      Loop
      Close #myNO
    End With
    myFile = Dir()
   Loop
  End If
End Sub
2 hits

【35433】テキストの読み込みについて ちび 06/3/4(土) 16:31 質問
【35446】Re:テキストの読み込みについて ponpon 06/3/4(土) 23:02 発言
【35450】Re:テキストの読み込みについて ちび 06/3/5(日) 0:13 お礼
【35448】Re:テキストの読み込みについて Hirofumi 06/3/5(日) 0:04 回答
【35449】Re:テキストの読み込みについて Hirofumi 06/3/5(日) 0:05 回答
【35451】Re:テキストの読み込みについて ちび 06/3/5(日) 0:24 お礼

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