データを雛形のエクセルを呼び出し、吐き出しているのですが、
別名でエクセルを保存する事ができません。

ご教授の方、宜しくお願いします。

    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 を終了する

> 別名でエクセルを保存する事ができません。

SaveAs メソッドです。

> > 別名でエクセルを保存する事ができません。
>
> SaveAs メソッドです。

ありがとございます。