ＶＢの処理結果をＥＸＣＥＬシートへ出力したい

質問

ＶＢ６で処理した結果を、ＥＸＣＥＬシートへ編集しプリンターへ出力する方法を教えて下さい。
(1)ＶＢからＥＸＣＥＬをどのようにして、起動させるのか。
(2)ＥＸＣＥＬファイルのオープンはどのようにするのか。
(3)ＢＶとＥＸＣＥＬ間の制御が分らない。

回答No.4

o_w_nakazaki · ベストアンサー

こんなかんじでしょうか。

Sub test()

Dim oXl As Object 'Excel
Dim FileNM As String 'ファイル名
Dim BookNM As String 'ブック名
Dim SheetNM As String 'シート名

FileNM = "c:\test.xls" 'ファイル名

Set oXl = CreateObject("Excel.Application") 'excel起動
oXl.Workbooks.Open (FileNM) 'ブックを開く
BookNM = oXl.ActiveWorkbook.Name 'ブック名を取得
SheetNM = oXl.ActiveSheet.Name 'シート名を取得

oXl.Workbooks(BookNM).Worksheets(SheetNM).Cells(1, 1).Value = "test" 'A1セルに「Test」をセット
oXl.Workbooks(BookNM).Save '保存
oXl.Visible = True '表示

'oXl.Workbooks(BookNM).Close '閉じる
'oXl.Quit '終了
'Set oXl = Nothing '解放

End Sub

回答No.3

tinu 2000（@tinu2000）

この辺りが参考になるようです。
http://www.bcap.co.jp/hanafusa/index.html

参考URL：

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

回答No.2

todo36

CreateObject("Excel.Application")

参考URL：

http://www.google.com/search?num=100&hl=ja&q=CreateObject+Excel.Application

回答No.1

123daa

的を得てないんですが、お困りのようなので昔の記憶をたどって・・・

参照設定でmicrosoft excel ?? object libを選択して、エクセルオブジェクトを作成する。使用方法はＭＳＤＮ？等見てください。私の場合は、ＳＱＬサーバーからデータとってアクセスの帳票ツールを使うために使用しました。

あらかじめエクセルにマクロを組んでおき、特定のフォルダにデータを落とし、ＶＢからエクセルをキックして印刷させる方法も見たことがあります。これならshell関数でキックできるんじゃないでしょうか？

ご参考までに・・・