VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 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 を終了する


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -