2

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
4

0 に答える 0