VBAでExcelの再起動するには？（VBScript吐き出し) (ID:103213)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません。WSHについての理解が浅く、↑のコードは正しく動きませんでした。 上記コードを修正しました。 Sub SelfReset() mypath = ThisWorkbook.Path & "\" & ThisWorkbook.Name l1 = "Set ws = CreateObject(""WScript.Shell"")" l2 = "ws.AppActivate (""Excel"")" l3 = "WScript.Sleep 100" l4 = "ws.SendKeys ""^W""" l5 = "WScript.Sleep 1000" l6 = "ws.Run ""rundll32.exe url.dll , FileProtocolHandler " & mypath & """, vbNormalFocus, False" Open "C:\reset.vbs" For Output As #1 Print #1, l1 Print #1, l2 Print #1, l3 Print #1, l4 Print #1, l5 Print #1, l6 Close #1 Set objWShell = CreateObject("WScript.Shell") objWShell.Run "C:\reset.vbs", 1, 0 End Sub