CSV形式で編集された項目をＶＢからＥＸＣＥＬシートへ編集し印刷

質問

ＣＳＶ形式で編集したテキスト項目（７項目，３００行）を、ＥＸＣＥＬファイルへ編集し、印刷する方法を教えて下さい。（ＶＢでＥＸＣＥＬシートへ編集し印刷したが、編集から印字までの処理時間が大きいため、帳票データをＣＳＶ形式化し、処理速度を高速化したい）簡単なサンプルがあれば助かります。
処理の概要は、以下の通り。
(1)ＶＢで、CSV形式のテキストファイル作成後、
(2)ＶＢからＥＸＣＥＬファイルを開いて
(3)CSVのテキストファイルをＥＸＣＥＬシートへ編集
(4)ＶＢから印刷プレビューを出し
(5)印刷指示することで
全て、ＶＢから制御する方法

回答No.1

imogasi · ベストアンサー

（２）以下の参考にしてください。
Ｆｏｒｍ１にコマンドボタンを１つ貼りつけ、そのクリックイベントプロセジュアに
Private Sub Command1_Click()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject("Excel.Application")
'エクセルのファイル名
Set xlBook = xlApp.Workbooks.Open("c:\My Documents\bbb.xls")
Set xlSheet = xlBook.worksheets("Sheet1")
xlApp.Visible = True
' Excel のセルに値を代入する。
xlSheet.Cells(1, 1).Value = "112"
xlSheet.Cells(2, 1).Value = "334"
' Formula プロパティを使ってセルに式を挿入。
xlSheet.Cells(3, 1).Formula = "=A1+A2" ' "=SUM(A1:A2)"
xlSheet.PageSetup.PrintArea = ""
With xlSheet.PageSetup
.LeftHeader = "XXX"
End With
' xlSheet.printpreview
xlSheet.range("a1:h20").printout
xlApp.DisplayAlerts = False
xlBook.Close SaveChanges:=False
Set xlSheet = Nothing
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing
End Sub

回答No.2

risky178

私も勉強中なので回答はできませんが、以下のサイトでEXCELの印刷について説明があります。
Word&Excelという項目など参考にしてみてはいかがでしょう？
回答でなくてすみません。

http://www.bcap.co.jp/hanafusa/index.html

参考URL：

http://www.bcap.co.jp/hanafusa/index.html