Excel VBA質問箱 IV

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

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


20225 / 76732 ←次へ | 前へ→

【61929】Re:テキストファイルの読み出し
発言  Yuki  - 09/6/12(金) 15:02 -

引用なし
パスワード
   ▼初心者です。 さん:
>⇒再確認したところ、正確には11〜32行目で固定になります。

こんにちは。
何通りかありますけどその内の一つで

Sub TEST2()
  Dim IO1   As Integer
  Dim IO2   As Integer
  Dim strDir As String
  Dim strFnm As String
  Dim expFnm As String
  Dim i    As Long
  Dim v    As Variant
  
  strDir = "D:\TEXT\"   ' 格納されているホルダー
  expFnm = "Save1.csv"   ' 出力用のファイル名
  
  strFnm = "*.txt"     ' 読込み用のファイルの拡張子
  strFnm = Dir(strDir & strFnm)
  IO1 = FreeFile
  Open strDir & expFnm For Output As #IO1 ' 出力用のファイルOpen
  
  Do While strFnm <> ""
    IO2 = FreeFile
    Open strDir & strFnm For Input As #IO2 ' 読込用のファイルOpen
      For i = 1 To 10
        Line Input #IO2, v  ' 最初の10行を読み飛ばし
      Next
      i = 0
      Do While Not EOF(IO2)
        i = i + 1
        If i > 22 Then Exit Do ' 33 行目になったら抜ける
        Line Input #IO2, v
        v = strFnm & " " & v  ' ファイル名をDataにくっつける
        v = Split(v)
        Print #IO1, Join(v, ",") ' CSV形式で書込み
      Loop
    Close #IO2  ' 読込用のファイルClose
    strFnm = Dir()
  Loop
  Print #IO1, vbCrLf
  Close #IO1 ' 出力用のファイルClose
  Workbooks.Open strDir & expFnm ' 編集したファイルを開く
End Sub
63 hits

【61837】テキストファイルの読み出し 初心者です。 09/6/9(火) 11:22 質問
【61848】Re:テキストファイルの読み出し イブX 09/6/9(火) 13:14 発言
【61916】Re:テキストファイルの読み出し 始めたばかりの初心者 09/6/12(金) 3:25 発言
【61928】Re:テキストファイルの読み出し 初心者です。 09/6/12(金) 13:48 質問
【61929】Re:テキストファイルの読み出し Yuki 09/6/12(金) 15:02 発言
【61933】Re:テキストファイルの読み出し kanabun 09/6/12(金) 17:00 発言

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