RSSユーザー
UWSC上でエクセルの一つの条件時に２つのプログラムを実行させたいです。
いつもお世話になっております。
以前、UWSC上でエクセルのセル値が特定値でマクロ実行するプログラムを教えていただきました。以下の文です、G1=1(休日朝、株価セル値がリセットされていない)時、マクロ３(エクセル上書き保存後終了)実行というものです。
try
ExcelObj = GETACTIVEOLEOBJ("Excel.Application")
If ExcelObj.Sheets("データ").Range("G1").value = 1 Then
ExcelObj.Run("Macro3")
EndIf
except
exit
endtry
この条件の時にもう一つUWSCのスクリプト1を実行させたいのですが、どのように追加して書けばよいかお教えください。
スクリプト１.uws(開いている特定サイトを閉じるスクリプト)
2023年10月09日
アップロードされたファイルにはウイルスチェックを行っておりますが、未知のウイルス等に感染されている場合がありますので、アップロードされたファイルのご利用はご注意ください。
また、取引パスワード等の重要な情報を投稿内容に含めないようご注意ください。
なお、アップロードされたファイルの利用や投稿内容によって、投稿者自身や他の利用者が被った損害に対して当社は一切責任を負いません。
また、セキュリティの関係上、一部コマンド等を含む内容を送信するとエラー画面が表示され、投稿ができない場合がございます。何卒ご了承ください。
岡三RSS集いの広場では、複数の単語による検索が可能です。
例）関数 and サンプル
→AND検索となり、「関数」および「サンプル」を含む検索結果が表示されます。
例）関数 or サンプル
→OR検索となり、「関数」または「サンプル」を含む検索結果が表示されます。
例）関数 not サンプル
→NOT検索となり、「関数」を含むが「サンプル」は含まない検索結果が表示されます。
※and、or、notの前後は半角スペースで区切ってください。
※単語の間を半角スペースで区切るだけだと、OR検索となります。
大野 了
RSSユーザさん、こんにちは！！
UWSCで別のスクリプトを呼び出すには・・・
CALL スクリプト1のパス
で良いようです！！
2023年10月09日
RSSユーザー
大野様できますた！
try
ExcelObj = GETACTIVEOLEOBJ("Excel.Application")
If ExcelObj.Sheets("データ").Range("G1").value = 1 Then
ExcelObj.Run("Macro3")
CALL C:\Users\・・・・・\スクリプト１.uws
EndIf
except
exit
endtry
たったこれだけでいとも簡単にできました！涙がとまりません。
これで今日のような祝日もゆっくり休めます、ほんとありがとうございました。
2023年10月09日
大野 了
RSSユーザさん、こんにちは！！
他のスクリプト呼び出しが、問題なく動作したようで良かったですっ！！
また何かありましたら、ご質問いただけますと幸いです！！
2023年10月10日