Excel VBA質問箱 IV

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

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


10825 / 13644 ツリー ←次へ | 前へ→

【19671】テキストファイルを作成し、そのテキストファイルに値を入力したいのですが。 中村秀一 04/11/13(土) 19:31 質問[未読]
【19674】Re:テキストファイルを作成し、そのテキストファイルに... Kein 04/11/13(土) 20:34 回答[未読]
【19699】Re:テキストファイルを作成し、そのテキストファイルに... 中村秀一 04/11/15(月) 13:42 お礼[未読]

【19671】テキストファイルを作成し、そのテキストファイルに値...
質問  中村秀一  - 04/11/13(土) 19:31 -

引用なし
パスワード
   お世話になっております。
初級者ですが、よろしくお願いいたします。
リストよりテキストファイルを作成し、個々のテキストファイルにB2:G2を次のように入力し、ループさせたいのですがどなたかよろしくお願いいたします。

ファイル名EC4711:1行目に0.25
       2行目に0
       3行目に0
       4行目に0.25
       5行目に-47000
       6行目に62250   


リストです。
テキスト   1行目  2行目  3行目    4行目  5行目    6行目
EC4711    0.25    0    0    -0.25    -47000    62250
EC4712    0.25    0    0    -0.25    -4800    63000
EC4713    0.25    0    0    -0.25    37400    63750
EC4714    0.25    0    0    -0.25    79600    64500
EC4721    0.25    0    0    -0.25    121800    65250
EC4722    0.25    0    0    -0.25    164000    66000
EC4723    0.25    0    0    -0.25    206200    66750
EC4724    0.25    0    0    -0.25    248400    67500
EC4731    0.25    0    0    -0.25    290600    68250
EC4732    0.25    0    0    -0.25    332800    69000
EC4733    0.25    0    0    -0.25    375000    69750
EC4734    0.25    0    0    -0.25    417200    70500

どなたか、助けてください。よろしくお願いいたします。

【19674】Re:テキストファイルを作成し、そのテキストファイル...
回答  Kein  - 04/11/13(土) 20:34 -

引用なし
パスワード
   リストが1行目から始まっているとして

Sub MyText()
  Dim C As Range, D As Range
  Dim Fnum As Integer
  Dim MyF As String, St As String
 
  For Each C In Range("A1", Range("A1").End(xlDown))
   MyF = ThisWorkbook.Path & "\" & C.Value & ".txt"
   St = ""
   For Each D In C.Offset(, 1).Resize(, 6)
     St = St & D.Text & vbCrLf
   Next
   Fnum = FreeFile()
   Open MyF For Output Access Write As #Fnum
   Print #Fnum, St
   Close #Fnum
  Next
End Sub

【19699】Re:テキストファイルを作成し、そのテキストファイル...
お礼  中村秀一  - 04/11/15(月) 13:42 -

引用なし
パスワード
   kein様へ
ありがとうございます。
思った通りのことができました。
数千のデータがあったのですが、あっという間に終わってしましまた。
ありがとうございました。

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