.vbsで連続自動実行したい

質問

.vbsを複数回自動で実行させるプログラムを組みたいと考えているのですが、
初学者のため色々ググって見た知識の寄せ集めで取り敢えず以下のように作ったのですが上手く行きませんでした、、

---------------------------------------------------
Option Explicit

Dim i
For i = 1 To 5
Set i = CreateObject("WScript.Shell")
i.Run "C:\Users\ Desktop\練習\test.vbs"
Next

---------------------------------------------------

上記ご教授いただければ幸いです。
お手数をおかけしますが、何卒宜しくお願い致します。

回答No.2

luka3 · ベストアンサー

＞都度ポップアップが出ない)にはどうすれば良いか

WScript.Echo がポップアップの命令なので、この行を削除すればいいと思いますが。

お礼

ご回答ありがとうございます！
出来ました！
(こちらで確認してた時は消し方が良くなかったようで上手く行かなかったもので、、)

また不明点出たらご教授頂けますと幸いです。
大変助かりましたm(_ _)m

回答No.1

luka3

変数名に気をつけて下さい

Dim i, x
Set x = CreateObject("WScript.Shell")
For i = 1 To 5
x.Run "C:\Users\ Desktop\練習\test.vbs"
Next

お礼

早速のご回答ありがとうございます。
動作確認して出来ました！

ちなみに、ごめんさい、質問内容変わってしまうのですがそのまま質問させてください。
やりたかった事が数字をExcelに自動で出力させるというもので、
今回は練習がてらランダムで出力した数字をExcelに書き出すというプログラムが
色々いじってみて以下のように取り敢えず出来ました。
ただ、以下のプログラムだと都度ポップアップが表示され「OK」ボタンで閉じる操作が必要になってしまいます。
この操作を無くす(都度ポップアップが出ない)にはどうすれば良いか分かりますでしょうか…？
---------------------------------------------------------------------------------
Option Explicit
Randomize
Dim i, x, excel, sheet
For i = 1 To 5

Set x = WScript.CreateObject("Excel.Application")
Set excel = x.WorkBooks.Open("C:\Users\Desktop\練習\test.xlsx")
Set sheet = excel.WorkSheets.Item(1)
sheet.Cells(i, i) = test()
excel.Save
WScript.Echo sheet.Cells(i, i)
x.Quit()
Next

Function test()
Dim x
'１～１００の整数をランダムに選びたい
x = Int( Rnd(1) * 100 ) + 1
test = x
End Function

---------------------------------------------------------------------------------

ご面倒な質問で申し訳ありませんが何卒ご教授いただけますと幸いです。