VBA マクロを使用して呼び出したい VSTO で記述された COM アドインがあります。アドインを起動し、(自動的に) テキストを入力してから、アプリケーションを実行する必要があります。アドインはすべてプッシュ ボタン式で、コードの一部が暗号化されている (サード パーティ製) ため、コードに簡単にアクセスできません。残念ながら、このアドインをクリックしてもレコード機能は動作を検出せず、VBA の参照リストに追加できませんでした。私はこれを行ういくつかの方法を試しましたが、これまでのところうまくいきませんでした。
これは私のコードです。書かれているように、コードの最後から 2 行目で実行時エラー 91 コードをスローします。最後の行リストを括弧で囲むと、構文エラー (Expected:=) が発生します。問題が何であるかわかりませんか?
Sub Test()
Dim addIn As COMAddIn
Dim automationObject As Object
Dim SQL_CODE As String
Dim PW As String
Dim Name As String
Set addIn = Application.COMAddIns("Orion2010")
SQL_CODE = "SELECT startdatetime, tli, serialnumber, keyname FROM vmfgoperationdata WHERE serialnumber in ( '90102072B030H' , '90102072003BF') and operationname = 'Part Scanning')"
PW = "password"
Name = "na\npiotrowski"
Set automationObject = addIn.Object
automationObject.Utility.RefreshData Name, PW, SQL_CODE
End Sub