No.2
- 回答日時:
ちょっと他のことをしてたら、#1 のBLUEPIXYさんの内容と同じ方法でした。
>テキストなどの軽いデータで出力したいです
>(区切りはいりません)
区切りって、デリミタと呼びますが、何もなくても、やっぱりありますよね。
'第一案:
記録マクロで、Prn 出力してしまう方法ですね。
難しいことを考えないで、Prn 出力ではダメなのですか?
記録マクロの範疇です。
フォームボタンにでも、つけてください。
'第二案:
Sub Test_CreateText()
Dim Fname As String
Dim objFSO As Object
Dim objText As Object
Dim myPath As String
Dim buf As String
Dim i As Long
Const Delim As String = " " '区切りはは半角空白
Fname = "Test2.txt" '出力ファイル名
Set objFSO = CreateObject("Scripting.FilesystemObject") 'オブジェクト生成
myPath = ThisWorkbook.Path & Application.PathSeparator
Set objText = objFSO.CreateTextFile(myPath & Fname) 'ファイル生成
With objText
.WriteLine (Cells(1, 1))
For i = 5 To 500
buf = Cells(i, 1) & Delim & Cells(i, 2) & Delim & _
Cells(i, 3) & Delim & Cells(i, 4) & Delim & _
Cells(i, 5) & Delim & Cells(i, 6)
'一旦、配列に入れたほうが速いけれど、今回は、こうします。
.WriteLine (buf)
Next i
End With
Set objText = Nothing: Set objFSO = Nothing
MsgBox "終了しました。"
End Sub
No.1ベストアンサー
- 回答日時:
こんな感じ
'A1,A5:F100を出力
Private Sub CommandButton1_Click()
Dim fso, file, filename
Dim x As Range, line, i
filename = InputBox("出力ファイル名入力", "ファイル名入力")
Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.OpenTextFile(ThisWorkbook.Path & "\" & filename, 2, True) 'ファイルが既に在る時上書
file.WriteLine Range("A1").Value
For Each x In Range("A5:A100")
line = ""
For i = 0 To 5 'A~Fまでをつなぐ
line = line & x.Offset(0, i).Value
Next
file.WriteLine line
Next
file.Close
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
MMDでavi出力が出来ない
-
*を斜めに表示
-
4Kの外部モニターに出力すると...
-
VBAでテキスト出力時のスペース...
-
Anker社の充電器について。 Ank...
-
TV出力ポートをOFFにすれば良い...
-
コンセントの電力は入力と出力...
-
cout と cerrの違い
-
ACCESS クエリ→フォーム...
-
printfとputcharの違いは
-
画像のピクセル
-
テキストファイルから特定の文...
-
Aviutlの連番BMP出力方法
-
wsprintfで浮動小数を扱うには?
-
コマンドプロンプトについて。
-
リッチテキストをテキストに変換
-
excel vbaでテキストの文字検索
-
エクセルVBAにて アルファ...
-
データカウンター
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
MMDでavi出力が出来ない
-
プログラムについての質問です...
-
COBOLのMOVEで桁数が異なる場合
-
cout と cerrの違い
-
コンセントの電力は入力と出力...
-
スマホのバッテリー消費につい...
-
アクセスでエクセルに出力する...
-
PC電源は、出力DC12VとDC5Ⅴで...
-
Windows Formアプリからコンソ...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
printfの書式%.*s
-
無線とかアンテナに関しの質問...
-
【ExcelVBA】最終行の取得で困...
-
ACCESSからExcelへエクスポート...
-
Accessのテーブルからcsv出力す...
-
CRC16計算について
-
Excel VBAで値を変えながら、pd...
おすすめ情報