VBAでAutoCADのファイルを変換する方法

Question

前提・実現したいこと

VBAでdxfファイルをdwgファイルに変換したいのですが、エラーが発生してうまくいきません。

発生している問題・エラーメッセージ

エラーは下記のとおりです。
実行時エラー'91':
オブジェクト変数またはwithブロック変数が設定されていません。
該当エラー箇所：AppObj.Visible = True　'Excelアプリケーションを表示

該当のソースコード

Option Explicit

Private Sub DXFTEST()

On Error Resume Next

    Dim dxfFiles As Variant
    Dim fileName As Variant
    Dim savefname As String
    Dim AppObj As AcadApplication 'アプリケーションオブジェクト宣言
    Dim acadDocs As AcadDocument
    
    dxfFiles = Application.GetOpenFilename("DXFファイル(*.dxf),*.dxf", 0, "DXFファイル選択", , True)
    If TypeName(dxfFiles) = "Boolean" Then
        MsgBox "DXFファイルの選択を中止しました", vbOKOnly + vbExclamation, "お知らせ"
        Exit Sub
    End If
    '実行中のAutoCADアプリケーションオブジェクトの取得
    Set AppObj = GetObject(, "AutoCAD.Application.18")
    
    If Err Then
　　　　'新規AutoCADアプリケーションオブジェクトの作成(起動）
        Set AppObj = CreateObject("AutoCAD.Application.18")
    End If

On Error GoTo 0

    AppObj.Visible = True　'Excelアプリケーションを表示
    
    For Each fileName In dxfFiles
        Set acadDocs = AppObj.Documents.Open(fileName)　'選択したファイルを開く
　　　　'拡張子を除く
        savefname = Mid(fileName, 1, InStrRev(fileName, ".", -1, vbTextCompare) - 1)
        Call acadDocs.SaveAs(savefname, ac2007_dwg)　'ドキュメント保存
        acadDocs.Close '閉じる
    Next
    AppObj.Quit 'AutoCAD終了

End Sub

補足情報（FW/ツールのバージョンなど）

エラーの内容を調べたのですが、どこをどう直せばいいかわからず・・・
教えていただけると嬉しいです。

Answer 1

"AutoCAD.Application.18"が違うと思います。
お使いのAUTOCADのバージョンは何ですか？
バージョンに合わせて書き換えてください。

AUTOCADヘルプ
"AutoCAD.Application.23" の場合は AutoCAD 2019 が起動されます。
"AutoCAD.Application.22" の場合は AutoCAD 2018 が起動されます。
"AutoCAD.Application.21" の場合は AutoCAD 2017 が起動されます。
"AutoCAD.Application.20.1" の場合は AutoCAD 2016 が起動されます。
"AutoCAD.Application.20.0" の場合は AutoCAD 2015 が起動されます。
"AutoCAD.Application.20" の場合は AutoCAD 2015 または AutoCAD 2016 が起動されます。
"AutoCAD.Application.19.1" の場合は AutoCAD 2014 が起動されます。
"AutoCAD.Application.19.0" の場合は AutoCAD 2013 が起動されます。
"AutoCAD.Application.19" の場合は AutoCAD 2013 または AutoCAD 2014 が起動されます。

また、参照設定も必要です。

Answer 2

AppObj.Visible = True　'Excelアプリケーションを表示

AppObj というのはExcelアプリケーションではないため、エラーが出ています

これはなにか、というのを調べてみてはいかがでしょう