Excel VBA質問箱 IV

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

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


61672 / 76732 ←次へ | 前へ→

【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
0 hits

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

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