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 =====================================================================