CSV形式で編集された(7項目,300行)をEXCELファイルへ編集し、印刷する方法を教えて下さい。簡単なサンプルがあれば助かります。
CSV形式のテキストは、以下のような内容です。
Dim Filenum As Integer
Dim i As Integer
Dim Datatable(7, 300) As Integer
Dim Maxrec As Integer
Const datafile As String = "c:\編集データ.txt"
Maxrec = 300
MsgBox "[" & datafile & "] で保存します。"
Filenum = FreeFile
Open datafile For Output As #Filenum
For i = 1 To Maxrec
Datatable(1, i) = i
Datatable(2, i) = 100 + i
Datatable(3, i) = 10 + i
Write #Filenum, Datatable(1, i), _
Val(Datatable(2, i)), _
Datatable(3, i), _
Val(Datatable(4, i)), _
Val(Datatable(5, i)), _
Val(Datatable(6, i)), _
Val(Datatable(7, i))
Next i
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
データでなく、どう見てもマクロファイルだと思うのですが。
。。テキストファイルからデータを読み込むマクロのようですが、マクロを実行させたいなら、コピーしてマクロファイルに貼り付ければマクロは実行できるようになると思います。
CSV型式のデータなら、エクセルに直接読み込めますが、何が問題なのでしょうか?
No.3
- 回答日時:
>CSV形式で編集された
「編集」とは何でしょうか。CSV形式で「作成された」
と言う意味でしょうか。言いかえると「CSV形式のファイルを」で良いのでしょうか。
それならファイル-開くのエクセル操作で出来ますが。
>EXCELファイルへ編集し
この「編集」もどう言う意味でしょうか。エクセルへ「読みこむ」とか、「インポートする」とか言われることですか。
エクセルへ読みこんで、印刷するまでに、なにかデータを加工するのはエクセルの機能でやれば良い。
>印刷する方法
エクセル操作で出来ますが、プログラムでやるのですか。
●(A)VBの世界から、エクセルVBAに入って処理する必要があるのか(B)エクセルVBAだけで処理できると思うが、それで良いのでしょうか、どちらでしょうか。
●上のプログラムだって、問題のための問題、練習問題のような感じがします。i.100+i,10+iのデータとは仮のデータですか。普通はデータを作るのに、エクセルに打ちこむ方が安定性・操作性がよいですよ。
●下記をご参考までに。7項目で、文字列項目には””で
囲んでない形式の場合の例です。
Sub test02()
i = 1
Open "c:\my documents\a13.csv" For Input As #1
p01:
If EOF(1) Then GoTo e01
Line Input #1, s
ss = Split(s, ",")
For j = 0 To 6
Cells(i, j + 1) = ss(j)
Next j
i = i + 1
GoTo p01
e01:
Close #1
Range("A1:G" & i).PrintOut
End Sub
この回答への補足
添付例は、CSV形式のテキストファイルを作るところのサンプルで添付しました。
質問内容は、CSV形式のテキストファイル作成後、
(1)VBからEXCELファイルを開いて
(2)上記テキストファイルをEXCELシートへ編集し
(3)VBから印刷プレビューを出し
(4)印刷指示することで
全て、VBから制御する内容を考えていました。
説明不足で失礼しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/15 15:48
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- その他(プログラミング・Web制作) ColabでのPytorchのエラー 1 2022/11/19 20:51
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) Excelの帳票形式をアクセスに取り込むため、 csvのデータ形式になるように、マクロを作成している 2 2022/06/12 22:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ページ読み込み時に自動的にsub...
-
EXCEL VBAでテキストファイルの...
-
DXFファイル用クラスライブラリ...
-
バッファとは何ですか
-
エラー:ストリームの終わりを...
-
バイナリファイル(画像等)デ...
-
【python】Excelファイルを読み...
-
バイナリエディタのつかいかた
-
ファイル読み込みエラーになる。
-
地熱発電などでいう「バイナリ...
-
エクセルVBA 2千万行のCSVファ...
-
ファイルをセーブする時のfopen...
-
バイナリファイルの検索について
-
C言語の質問です。バイナリ形...
-
VB5.0 SP3にてEXCE...
-
EXCEL VBAで、バイナリデータの...
-
画素値取得について
-
Paiza Cloudです。学籍番号と氏...
-
Paiza Cloudです。 どうやれば...
-
C言語初心者の質問失礼します。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッファとは何ですか
-
Microsoft VBAで2GBを超えるフ...
-
EXCEL VBAでテキストファイルの...
-
ページ読み込み時に自動的にsub...
-
エクセルVBA 2千万行のCSVファ...
-
VBA バイナリ―から文字列にす...
-
エラー:ストリームの終わりを...
-
入力ファイルをバイナリにする利点
-
バイナリエディタのつかいかた
-
MacからWinにファイルを添付す...
-
EOF
-
【python】Excelファイルを読み...
-
C言語の質問です。バイナリ形...
-
画像の保存方法。
-
テキストデータをSQLServerに取...
-
バイナリファイルの比較につい...
-
bitmap画像の保存がうまくいき...
-
なぜデータの整合性を確認する...
-
C言語とシリアル通信の送受信...
-
【Teraterm】filewritelnについて
おすすめ情報