VB6でエクセルファイルを保存するには？

解決

ｘりこたんｘ 2006-10-26 03:10:35 No: 97027

はしめまして、
VB6からExcelを起動できることを知りました。
そこで、いろいろなホームページを頼りに既存のExcelファイル（c:\data.xls)を開いたり、保存させたりしたいのですが、保存のところが
よくわかりません。
作成したものは、フォームにコマンドボタンを二つ配置して、”開く"作業を行った後にExcelの内容を編集して”上書き保存”をさせたいと思っています。
こんなことをせずに直接エクセルファイルを編集したほうが早いのですが、とりあえずVBの練習と思い試しています。
******以下コード****
Option Explicit
Dim ExcelApp As Object 'Excel.Application

Private Sub Command_Close_Click()
Dim Book As Object      'Excel.Workbook
Dim Sheet As Object     'Excel.Worksheet
'同じ名前で保存する。
Set ExcelApp = CreateObject("Excel.Application")
Set Book = ExcelApp.Workbooks  'ここのメソッドもよくわかりません。
Book.SaveAs ("C:\data.xls")

'EXCELの開放
ExcelApp.Quit
Set ExcelApp = Nothing
End
End Sub

Private Sub Command_Open_Click()
Dim Book As Object 'Excel.Workbook
Dim Sheet As Object 'Excel.Worksheet

Set ExcelApp = CreateObject("Excel.Application")
Set Book = ExcelApp.Workbooks.Open("c:\data.xls")
Set Sheet = Book.Worksheets(1)
'エクセルの表示
ExcelApp.Visible = True

End Sub
どなたかご教授ください。

VBレスキュー(花ちゃん) URL 2006-10-26 20:28:43 No: 97028

下記を参考にしてみて下さい。
http://hanatyan.sakura.ne.jp/vbhlp/excelframe.htm

ｘりこたんｘ 2006-10-27 03:41:59 No: 97029

VBレスキュー(花ちゃん) さんありがとうございました。
参考になりました。
Closeの処理は
ExcelApp.Workbooks(1).Save
だけでよかったのですね。