[Excel VBA/備忘録] いろいろな特殊フォルダを開くマクロ

|
Sub OpenAnyFolder()
' ◆◆ いろいろなフォルダを開く ◆◆
    Dim strPath As String
    
    '***既定のファイルの場所(オプション>保存で設定)
    'strPath = Application.DefaultFilePath
    
    '***アドインフォルダ C:\Program Files\Microsoft Office\Office14\Library
    'strPath = Application.LibraryPath
    
    '***XLSTARTフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Excel\XLSTART
    'strPath = Application.StartupPath
    
    '***ユーザーのテンプレートフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\Templates
    'strPath = Application.TemplatesPath
    
    '***ユーザーのアドインフォルダ C:\Users\USERNAME\AppData\Roaming\Microsoft\AddIns
    'strPath = Application.UserLibraryPath
    
    '*** アクティブなブックが含まれているフォルダ
    'strPath = ActiveWorkbook.Path & "\"
    
    '*** 不明 ***
    'strPath = Application.AltStartupPath
    'strPath = Application.NetworkTemplatesPath
    
    'MsgBox strPath
    Shell "C:\Windows\Explorer.exe " & strPath, vbNormalFocus
End Sub

カスタム検索
Access Counter
Powered by Movable Type 4.22-ja

2016年9月

Sun Mon Tue Wed Thu Fri Sat
        1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30  

最近のブログ記事