Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10836 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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様へ
ありがとうございます。
思った通りのことができました。
数千のデータがあったのですが、あっという間に終わってしましまた。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10836 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free