投稿日 | : 2007/07/24(Tue) 20:20 |
投稿者 | : ぐりこ |
Eメール | : |
URL | : |
タイトル | : 別名で保存 |
データを雛形のエクセルを呼び出し、吐き出しているのですが、
別名でエクセルを保存する事ができません。
ご教授の方、宜しくお願いします。
Dim objExcel As Object
Dim objExcelBook As Object
Dim objExcelSheets As Object
Dim objSheet As Object
Set objExcel = CreateObject("Excel.Application")
Set objExcelBook = objExcel.Workbooks.Open(App.Path & "\\" & cstrExcelBasePath)
Set objExcelSheets = objExcelBook.Worksheets
Set objExcelSheet = objExcelBook.Sheets(strSheetName)
objExcel.Application.Visible = False
objExcelSheets(1).Name = lblSlipID.Caption
Call objExcelBook.Save ' Excel ブックを保存する
Call objExcel.Quit ' Microsoft Excel を終了する