[[20181002135006]]　『VBAで「AutoCAD LT 2019」アクティブに出来ない』（ななな）　ページの最後に飛ぶ

『VBAで「AutoCAD LT 2019」アクティブに出来ない』（ななな）

VBA初心者です。「Windows7」で「AutoCAD LT 2007」の時に
パソコンに詳しい方に組んでいただいたVBAが
「Windows10」と「AutoCAD LT 2019」に新しく変わり作動しなくなりました。

Excelでスクリプトデータを作成し、AutoCADをアクティブ化して
SendKeysでスクリプト実行をして作図していました。

AppActivate "autocad"のところでエラーが起きます。

何と入力したらいいのでしょうか？
よろしくお願いいたします。
　

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

書き忘れてました

AppActivate "Autodesk AutoCAD LT 2019"
に書き換えた時、起動直後は作動してくれていたのですが
何回かしているうちに下記のエラーが表示されます。

実行時エラー '5
プロシージャの呼び出し、または引数が不正です。
（ななな） 2018/10/02(火) 16:50

＞何回かしているうちに下記のエラーが表示されます。
＞実行時エラー '5 プロシージャの呼び出し、または引数が不正です。

AutoCADってファイルを開くとタイトルが変化しませんか？
ファイルを開いたことで「"Autodesk AutoCAD LT 2019" 」という文字列を含むタイトルのウィンドウが見つからないからエラーが出ているのだと思います。
つまり長すぎるのです。

※AppActivateは同一のウィンドウが複数あるとエラーは出ないものの目的のウィンドウがアクティブになりませんので、短くすれば良いというものでもないです。

AutoCADを持っていないので代わりに検証してあげることは出来ないので、そちらで色々な場面におけるタイトルバーを控えて、共通する部分をAppActivateに指定すると良いと思います。

たぶん「autocad」→「AutoCAD」で動くんじゃないかなぁと思いますが・・・。
（名無し） 2018/10/02(火) 17:08

名無しさん、コメントありがとうございます！
試してみたのですがエラーが起きてしまいました。。。
とても手抜きな検証なので
これで試して良いのかわかりませんが、
試してみたものです↓↓↓

On Error Resume Next
AppActivate "Autodesk AutoCAD LT 2019"

On Error Resume Next
AppActivate "AutoCAD LT"

On Error Resume Next
AppActivate "acadlt"

On Error Resume Next
AppActivate "作図用データ"

On Error Resume Next
AppActivate "AutoCAD"

On Error Resume Next
AppActivate "Autocad LT 2019 - 日本語(Japanese)"

On Error GoTo myError
AppActivate "AutoCAD LT Application"

～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～

 Exit Sub
myError:                                        ''この行にジャンプします
MsgBox "エラーが発生しました", vbExclamation

で試してみるものの「エラーが発生しました」で終わってしまいます。。。

（ななな） 2018/10/02(火) 17:46

そのコードを実行したら、
AppActivate "Autocad LT 2019 - 日本語(Japanese)"
の部分でエラーになって当然だと思いますが・・・。

On Error Resume Next を消して通過出来たものがOKで、エラーになるものがNGです。
一度に調べるのではなく１つづつ調べたほうがいいと思います。

OKになった上で、ウィンドウがアクティブにならない場合は、同じ名称のウィンドウが２つ有る可能性を示していますので、あと一歩文字を追加出来ないか検討するか、AppActivate 以外のもっと難しいAPIを使う必要が出てきます。
（名無し） 2018/10/02(火) 18:25

＞＞一度に調べるのではなく１つづつ調べたほうがいいと思います。
そうですよね(^^;)1個ずつ丁寧に調べます！

調子のいい時（？）に、消しては試して、消しては試してみたところ
AppActivate "Autodesk Auto"
までは文字が消せて、作動してくれました！

そのあとは今のところエラーなしなのでなんとも言えないのですが、
エラーが起きた場合はAPIというものを使わないといけなくなるのかもしれないですね。。。
（ななな） 2018/10/04(木) 17:34

コメント返信：