IIS経由で、ActiveXのDLLからEXCELを編集 (ID:101494)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

追記です。
ソースを記載いたします。
=====================================================================
Public Sub CreateExcel(ByRef rErrNum As Integer, ByRef rErrDes As String)

Dim xlsApp As Excel.Application            'EXCELアプリケーション
    Dim xlsBoks As Excel.Workbooks             'EXCELワークブックス
    Dim xlsBok As Excel.Workbook               'EXCELワークブック
    Dim fs As New Scripting.FileSystemObject   'ファイル操作

On Error GoTo ErrorTrap

'雛形ファイルをコピー
    fs.CopyFile "C:\temp\basefileExcel.xls", "C:\temp\newfileExcel.xls", True

'デバッグログ出力（サブルーチン化）
    Call subErrlog(sPrjID, "01", "STEP01 OK", "CreateEXCEL")

'EXCELオブジェクトを生成      ←←！！ここでエラーが発生したと思われる！！
    Set xlsApp = New Excel.Application

'デバッグログ出力（サブルーチン化）
    Call subErrlog(sPrjID, "02", "STEP02 OK", "CreateEXCEL")

'EXCEL非表示
    xlsApp.Visible = False

'デバッグログ出力（サブルーチン化）
    Call subErrlog(sPrjID, "03", "STEP03 OK", "CreateEXCEL")

'xlApplication から WorkBooks を取得する
    Set xlsBoks = xlsApp.Workbooks
    Set xlsBok = xlsBoks.Open("C:\temp\newfileExcel.xls")

'ブック保存し、EXLCEブックを閉じる
    xlsBok.Close saveChanges:=True
    Set xlsBok = Nothing
    xlsBoks.Close
    Set xlsBoks = Nothing

'Excel を終了する
    xlsApp.Quit
    Set xlsApp = Nothing

'オブジェクト開放
    Set fs = Nothing

Exit Sub

ErrorTrap:

If (rErrNum = 0) Then
        rErrNum = Err.Number
        rErrDes = Err.Description
    End If

End Sub
=====================================================================

←解決時は質問者本人がここをチェックしてください。

戻る