問題タブ [scriptcontrol]

vbscript を使用してライブラリを作成し、scriptcontrol オブジェクトを使用してこれらのルーチンを vba から呼び出しています。以下のように、指定された sql をパラメーターとして使用して、レコードセットをルーチンとして作成しようとしています

このルーチンを以下のように呼び出します

しかし、vbscript 内で接続とレコードセットが作成されたにもかかわらず、私のレコードセットは何も返されません。
これで助けが必要です。

Delphi プログラムで JS スクリプトを実行する必要があります。

私を悩ませている問題があります。

js: OleVariant;Form1 のセクションに入れて、次のpublicコードを使用します。

その後、この JS コードは正常に動作します。

戻りますr。

しかし、このコード:

空を返します。

また、このチェック;

true を返します。

JSON オブジェクトがない場合も同様の状況が観察されるため、実行できませんでしJSON.parseた。しかし、私はこのコードを見つけました。これにより、実行後に JSON を使用できるようになりました。

プロジェクトで拡張子が .js のファイルにあるスクリプトを実行しようとすると、問題が発生します。私はそれを読み込んでjsファイルの関数を呼び出そうとしています。私が使用しているコードは次のとおりです。

しかし、構文エラーが発生します。問題は、File.ReadAllText を使用してファイルをロードしているときに、js.AddCode 行で構文エラーが発生し、javascript コードが適切にロードされていないことです (改行に \n を入れます)。誰か助けてくれませんか？

私の目標は、特定の変数セットに対して評価されるコードを含む文字列を生成することです。これらの質問でいくつかの同様の取り組みを見つけました。

1. 文字列内の VBA 実行コード
2. VBAで文字列をオブジェクトに評価するにはどうすればよいですか?

上記の (2) で提供されたコードにScriptControlは x64 での問題があるため、次の場所でこれに対するパッチを見つけました。

3. ScriptControl を Excel 2010 x64 で動作させる

残念ながら、いくつかの Windows パッチが原因で、GUID を発行できなかったため、さらに問題が発生しました。これsSignature = Left(CreateObject("Scriptlet.TypeLib").GUID, 38)により、権限が不足しているため、適切な GUID を返すことができませんでした。

これは、次の投稿で強調されました。

4. MS Access VBA エラー: 実行時エラー '70' アクセス許可が拒否されました
5. VBA 'set typelib = createobject("scriptlet.typelib")' アクセス許可が拒否されました

リファレンス (5) に基づいて、GUID を生成するコードを追加しました。

残念ながら、このコードはまだ機能しておらず、実行時にエラー コード 13 の「型の不一致」が引き続き発生しますoShellWnd.GetProperty(sSignature)。

注: cMSHTAx86Host のコードを変更して、無限ループを回避する必要があると思います (おそらく、無限ループを回避してプロセッサを独り占めするために、特定の回数の再試行とその間の短い一時停止のみを許可します)。

以下で使用したコードの下に投稿してください。

1. クラス cMSHTAx86Host ( cMSHTAx86Host.cls)

2. 以下に示すモジュール (oHost.eval の実行時に使用可能な変数を渡す方法がわからないことに注意してください)