note

VBA 階層を指定してダイアログでファイルを開く

'最初に開くフォルダを指定 With CreateObject("WScript.Shell") .CurrentDirectory = ThisWorkbook.Path End With 'ファイルパスを取得 a = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx?") 'キャンセルの場合、終了 If a = False Then ...
note

PowerShell 実行するとき青い画面が一瞬出るのを止めたい

VBSファイルを用意します。 'このファイルと「同じファイル名.ps1」をウィンドウを開かずに実行する Dim psFilePath psFilePath = Replace(WScript.ScriptFullName, ".vbs", ".ps1") Set objShell = WScript.CreateObject("WScript.Shell") objShell.Run ...