EXCELマクロを VBScriptにしたい

以下のような EXCELマクロを VBScriptにしたいのです
理由はフォルダーウインドウを指定した場所指定した大きさで開くマクロ
ですが,いちいちエクセルを開かないで実行したいからです。
ここまではＷＥＢを参考にさせていただきながら作成しましたが
ＶＢスクリプトはほとんど分りません。お手数をかけますが
宜しくお願いいたします。


Sub Folder() ' ★ Folder 用
　　Dim FPath As Variant
　　Dim objW As Object
　　Dim i As Long

　　　　FPath = "G:\"
　　With CreateObject("Shell.Application")
　　　　.Open FPath
　　Application.Wait Now() + TimeValue("0:00:01")
　　　　For Each objW In .Windows
　　　　　　If InStr(TypeName(objW.document), "ShellFolder") > 1 Then
　　　　　　　　If objW.document.Folder.Items().Item.Path = FPath Then
　　　　　　　　　　objW.Top = 0
　　　　　　　　　　objW.Left = 642
　　　　　　　　　　objW.Height = 1036
　　　　　　　　　　objW.Width = 637
　　　　　　　　If
　　　　　　End If
　　　　Next
　　End With

End Sub

No.1 ベストアンサー 回答者： bonaron 回答日時： 2017/05/29 16:29

この辺りを参考にして、

http://www.whitire.com/vbs/tips0126.html
https://plaza.rakuten.co.jp/1nosuke/diary/200912 …


Option Explicit
On Error Resume Next

Dim FPath
Dim objW

FPath = "G:\"
With WScript.CreateObject("Shell.Application")
　.Open FPath
　WScript.Sleep 1000
　For Each objW In .Windows
　　If InStr(TypeName(objW.document), "ShellFolder") > 1 Then
　　　If objW.document.Folder.Items().Item.Path = FPath Then
　　　　objW.Top = 0
　　　　objW.Left = 642
　　　　objW.Height = 1036
　　　　objW.Width = 637
　　　End If
　　End If
　Next
End With

とか。

この回答へのお礼

ご回答ありがとうございました。
希望どうりのことが出来るようになり感謝です。
ありがとうございました。

お礼日時：2017/05/29 19:27