[[20220113122424]]　『コマンドプロンプトの画面を表示しないでVbsファメx（ん-）　ページの最後に飛ぶ

『コマンドプロンプトの画面を表示しないでVbsファイルを実行』（ん-）

こんにちは
現在
コマンドプロンプトの画面を表示しないでVbsファイルを実行する方法を
試行中です。

ですがうまくいきませんのでご教授願います。

batファイルの内容は
ファイル名は部品照合.bat
Dim objExcel
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set Path = CreateObject("Scripting.FileSystemObject").GetFolder(".")
objExcel.Application.Visible = False
objExcel.Workbooks.Open Path & "\部品名Z軸検索 2ラインTRAY VBA??3.xlsm"
objExcel.worksheets("Sheet1").select
objExcel.Application.Run "test1"
Set objExcel = Nothing
という内容で
実行内容はvbsを使用して部品名Z軸検索 2ラインTRAY VBA??3のエクセルファイル開きtest1というマクロ(内容はユーザーフォームを開く)を実行します

次にネットなどを参考に
vbsコードを以下のように書きました
ファイル名は部品照合.vbs
Set ws = CreateObject(“Wscript.Shell”)
ws.run “cmd /c 部品照合.bat“, vbhide
この状態で
部品照合.batを実行すると
コマンドプロンプトの黒い画面でて
内部コマンドまたは外部コマンド、操作可能なプログラムまたはバッチファイルとして認識されていません」というエラーメッセージが表示されます。

どうしたらコマンドプロンプトの画面を非表示のまま実行されるでしょうか？
ご教授願います

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 バッチファイルって何かわかってますか？

 ファイル名(の拡張子)を 部品照合.bat から 部品照合.vbs に変更して、
 部品照合.vbs を直接実行(ダブルクリックなどで)したらどうなりますか？
（´・ω・`） 2022/01/13(木) 13:06

datファイルをvbsにすると問題なくできます。

最初に言えばよかったのですが、最終的にやりたいことは
アイコンの画像を変えたいと思っています。

ネットで調べたら
vbsファイルを
Dim objExcel
On Error Resume Next
Set objExcel = CreateObject("Excel.Application")
Set Path = CreateObject("Scripting.FileSystemObject").GetFolder(".")
objExcel.Application.Visible = False
objExcel.Workbooks.Open Path & "\部品名Z軸検索 2ラインTRAY VBA??3.xlsm"
objExcel.worksheets("Sheet1").select
objExcel.Application.Run "test1"
Set objExcel = Nothing
のショートカットを作成し
プロパティのリンク先の先頭に
cmd /c を入れ
コマンドのアイコンに変え
さらにコマンドのアイコンのプロパティのアイコン変更で
アイコンを変えました。
それてコマンドをダブルクリックすると、
vbsはうまくいくのですが
はじめにコマンドの黒い画面が出て
それからユーザーフォームが開きます。
これを、黒い画面を非表示にするにはどうしたらいいかをご教授願いたいです。
すみませんがお願いします。
（んー） 2022/01/13(木) 17:36

 >プロパティのリンク先の先頭に
 >cmd /c を入れ 
 cmd /c の代わりに、wscript.exe をいれてみてください。 
（´・ω・`） 2022/01/13(木) 17:46

（´・ω・`）さん
wscript.exeいれて
理想の動作ができました。
コマンドプロンプトを使わなくても出来るのですね。
大変勉強になりました。

ちなみに、コマンドプロンプトを使用して際でも
今回やりたかったことは出来るのでしょうか？

コマンドの黒い画面を非表示にして実行という内容です。

もし出来るのならご教授願います。
（んー） 2022/01/13(木) 21:19

度々すみません。
できるならご教授願います。

vbs起動時に(ユーザーフォーム呼び出しの前)スプラッシュ画面を表示する事は可能でしょうか？
（んー） 2022/01/14(金) 12:27

 >コマンドの黒い画面を非表示にして実行という内容です。 
 コマンドプロンプトを使用するにあたっては非表示にはできません。

（nm） 2022/01/14(金) 13:39

無理でしたか。
ありがとうございました。スプラッシュ画面の件は新たに質問させてもらうため、
この件は閉じさせてもらいます。
ありがとうございました。
（んー） 2022/01/14(金) 17:37

コメント返信：

[ 一覧(最新更新順) ]

[[20220113122424]] 『コマンドプロンプトの画面を表示しないでVbsファメx（ん-） ページの最後に飛ぶ

[[20220113122424]]　『コマンドプロンプトの画面を表示しないでVbsファメx（ん-）　ページの最後に飛ぶ