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

回答No.3

imogasi

>ＣＳＶ形式で編集された
「編集」とは何でしょうか。ＣＳＶ形式で「作成された」
と言う意味でしょうか。言いかえると「ＣＳＶ形式のファイルを」で良いのでしょうか。
それならファイル－開くのエクセル操作で出来ますが。
＞ＥＸＣＥＬファイルへ編集し
この「編集」もどう言う意味でしょうか。エクセルへ「読みこむ」とか、「インポートする」とか言われることですか。
エクセルへ読みこんで、印刷するまでに、なにかデータを加工するのはエクセルの機能でやれば良い。
＞印刷する方法
エクセル操作で出来ますが、プログラムでやるのですか。
●（Ａ）ＶＢの世界から、エクセルＶＢＡに入って処理する必要があるのか（Ｂ）エクセルＶＢＡだけで処理できると思うが、それで良いのでしょうか、どちらでしょうか。
●上のプログラムだって、問題のための問題、練習問題のような感じがします。ｉ．１００＋ｉ，１０＋ｉのデータとは仮のデータですか。普通はデータを作るのに、エクセルに打ちこむ方が安定性・操作性がよいですよ。
●下記をご参考までに。７項目で、文字列項目には””で
囲んでない形式の場合の例です。
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)ＶＢからＥＸＣＥＬファイルを開いて
(2)上記テキストファイルをＥＸＣＥＬシートへ編集し
(3)ＶＢから印刷プレビューを出し
(4)印刷指示することで
全て、ＶＢから制御する内容を考えていました。
説明不足で失礼しました。

回答No.2

hana-hana3

データでなく、どう見てもマクロファイルだと思うのですが。。。

テキストファイルからデータを読み込むマクロのようですが、マクロを実行させたいなら、コピーしてマクロファイルに貼り付ければマクロは実行できるようになると思います。

ＣＳＶ型式のデータなら、エクセルに直接読み込めますが、何が問題なのでしょうか？

回答No.1

MovingWalk

何をなさりたいのかいまいちわかりません。
CSVファイルをExcelに読み込んで印刷すればいいんじゃないでしょうか？