VB6でのExcel.Applicationの定義？ (ID:142313)

名前

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

本文

次々に質問で申し訳ないのですが。

VB２００８で動く物をVB6に移植しようと思いますが、
Dim xlApp As Excel.Application
でユーザー定義型は定義されていませんとのエラー出力があります。

'Excel本体表示、マクロ実行、Excel本体残し
Private Sub Command1_Click()
        Dim er_f As Boolean
        Call Excel_exe(False, False, "c:\test.xls", "auto_open", False, er_f)
        MsgBox (er_f)
End Sub
'Excel本体非表示、マクロ実行、Excel本体消去
Private Sub Command2_Click()
        Dim er_f As Boolean
        Call Excel_exe(True, False, "c:\test.xls", "auto_open", True, er_f)
        MsgBox (er_f)
End Sub

'Excelを起動指定して起動する。
    '＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
    'hide=true Excel本体を隠すか？
    'err_f=true Excelの警告、メッセージ表示？
    'file_pn= "c:\tmp\*.xls 開くファイルパスとファイル名
    'exe_mn= "auto_open" 実行するマクロ名
    'Excel_end=true 最後にExcel本体を終了するか？
    'exe_err=true 実行結果のエラー返し
    Private Sub Excel_exe(ByVal hide_f As Boolean, ByVal err_f As Boolean, ByVal file_pn As String, ByVal exe_mn As String, ByVal Excel_end As Boolean, ByVal exe_err As Boolean)
        Dim xlApp As Excel.Application
        Dim xlbook As Excel.Workbook
        On Error GoTo Er1

' Excelのインスタンス作成
        xlApp = CreateObject("Excel.Application")

' Excelの表示有無
        If hide_f = True Then
            xlApp.Visible = False
        Else
            xlApp.Visible = True
        End If

' マクロの警告やメッセージを表示するか？
        If err_f = True Then
            xlApp.DisplayAlerts = True
        Else
            xlApp.DisplayAlerts = False
        End If

' 指定したExcelファイルを開く
        If file_pn <> "" Then
            xlbook = xlApp.Workbooks.Open(file_pn)
        Else
            'Excelを通常起動する。
            xlbook = CType(xlApp.Workbooks.Add, Excel.Workbook)
        End If

' マクロの実行
        If exe_mn <> "" Then
            xlApp.Run (exe_mn)
        End If

' Excelの終了
        If Excel_end = True Then
            xlApp.Quit()
        End If

' オブジェクトを解放
        xlbook = Nothing
        xlApp = Nothing
        exe_err = False
        Exit Sub
Er1:
        ' エラーメッセージを表示
        exe_err = True
    End Sub

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

戻る