SAラン広域セン支の覚え書き

・ボダブレ辞書 ・各種日本語入力ソフトの辞書解説 ・実用Excel VBA

(VBScript) XLSTARTフォルダを開く

Excelで個人用マクロファイル(Personal.xlsb)を作るなど、XLSTARTフォルダを開かせる場合があると思いますが、ユーザープロファイルの奥なのでちょっとややこしいですよね。そこでVBScriptで開くようにしてみました。

'** XLSTARTフォルダを開く **
Dim WshShell
Dim objShell
Dim strFldr

Set WshShell = WScript.CreateObject("WScript.Shell")
Set objShell = WScript.CreateObject("Shell.Application")

strFldr = WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & _
			"\AppData\Roaming\Microsoft\Excel\XLSTART"
objShell.Explore strFldr

これをテキストエディタ(Notepadなど)に貼り付けて"適当な名前.vbs"で保存してダブルクリックすれば開きます。

スクリプトファイルのダウンロードはこちら→ OpenXLSTART.zip(XLSTARTを開く.vbs)