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