EXCEL VBA フォルダー・ファイルのショートカット作成(アプリケーション・共有フォルダー・URLのショートカット)
EXCEL VBA フォルダーのショートカット作成・ファイルのショートカット作成(アプリケーション・共有フォルダー・URL)
●はじめに
今回説明するプログラムは、デスクトップ上にフォルダーのショートカットやファイルのショートカット・アプリケーション・URLのショートカットを作成するサンプルプログラムです。社内で複数のパソコンにファイルのショートカットやフォルダーのショートカットを作成する場合、個々に作成してもらうか、ショートカットをフォルダーに入れてZipファイルにしてメールの添付ファイルとして配布する方法がありますが、上記のやり方ですと、個々に作成してもらうと間違えて作成してしまったり、メールで添付ファイルとして送っても意図しない場所で解凍する事もあります。今回、EXCEL VBAを利用して手間なくデスクトップ上にショートカットファイルを配布する説明をいたします。
●書式の説明 (WshShortCutオブジェクト)
フォルダーやファイル等のショートカットの実体は、下図のプロパティの内容から作成されいます。あくまでもフォルダー・ファイル等本体では無いので、プロパティの設定でリンク先や作業フォルダー等を設定する必要があります。ショートカットのプロパティの内容については、下記の通りになります。
プロパティ | 説明 | 例 |
---|---|---|
TargetPath | リンク先のファイル名 | "C:\Users\akira\OneDrive\01_開発中” |
WorkingDirectory | 作業フォルダ | "C:\Users\akira\OneDrive\" |
Hotkey | キーボード・ショートカット | "Ctrl+Alt+Z" |
WindowStyle | 実行時の大きさ(ウィンドウのサイズ) | 1 '標準:1・最大化:3・最小化:7 |
Description | コメント(ショートカットの説明) | "ショートカットテストです。" |
IconLocation | ショートカットのアイコン | "%SystemRoot%\system32\SHELL32.dll, 41" 41は、木のアイコン |
Arguments | 実行ファイルに渡すパラメータ | |
FullName | (読み取り専用)ショートカットファイルのフルパス |
EXCEL VBA デスクトップ上にフォルダーのショートカットを作成
●プログラム説明 (サンプル①)
下記のサンプルプログラムは、デスクトップ上に指定したフォルダーのショートカットを作成するサンプルプログラムです。
【ショートカット】のプロパティについて
ショートカットを作成するにあたり、必須事項は、ショートカット名とリンク先(TargetPath)が必須事項となります。
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 31 32 33 34 35 36 37 |
' '******** AKIRA55.COM ******* https://akira55.com/shortcut/ ' Sub shortcut01() 'デスクトップ上にフォルダーのショートカットを作成する Dim WshShell As Object Dim DeskTopPath, ShortCutPath As String Set WshShell = CreateObject("WScript.Shell") 'WshShellオブジェクトを作成 DeskTopPath = WshShell.SpecialFolders("Desktop") 'デスクトップパスを取得する ShortCutPath = DeskTopPath & "\サンプルフォルダー" & ".lnk" 'ショートカット名の指定 With WshShell.CreateShortcut(ShortCutPath) .TargetPath = "C:\Users\akira\OneDrive\01_開発中\サンプルフォルダー" 'ショートカットのリンク先を設定 .WorkingDirectory = "C:\Users\akira\OneDrive\" '作業フォルダ .Hotkey = "Ctrl+Alt+Z" .WindowStyle = 1 '標準:1・最大化:3・最小化:7 .Description = "ショートカットテストです。" 'コメント欄の表記文字を設定 .IconLocation = "%SystemRoot%\system32\SHELL32.dll, 80" 'アイコンの設定 80番アイコン .Save 'ショートカットの保存実行 End With Set WshShell = Nothing End Sub ' |
●実行前~実行後 ※プログラム実行後、デスクトップ上に指定した「サンプルフォルダー」のショートカットが作成されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA ファイルのショートカット作成(自身のEXCELファイルのショートカット)
●プログラム説明 (サンプル②)
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 |
' '******** AKIRA55.COM ******* https://akira55.com/shortcut/ ' Sub shortcut02() 'デスクトップ上にファイルのショートカットを作成する Dim WshShell As Object Dim DeskTopPath, ShortCutPath As String Set WshShell = CreateObject("WScript.Shell") 'WshShellオブジェクトを作成 DeskTopPath = WshShell.SpecialFolders("Desktop") 'デスクトップパスを取得する ShortCutPath = DeskTopPath & "\" & ThisWorkbook.Name & ".lnk" 'ショートカット名の指定(このブックのショートカット名) With WshShell.CreateShortcut(ShortCutPath) .TargetPath = ThisWorkbook.FullName 'ショートカットのリンク先を設定(このブック) .Save 'ショートカットの保存実行 End With Set WshShell = Nothing End Sub ' |
●実行前~実行後 ※プログラムファイル実行後、自身のEXCELファイルのショートカットがデスクトップ上に作成されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA インターネットURLのショートカット作成
●プログラム説明 (サンプル3)
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 |
' '******** AKIRA55.COM ******* https://akira55.com/shortcut/ ' Sub shortcut03() 'デスクトップ上にインターネットURLのショートカットを作成する Dim WshShell As Object Dim DeskTopPath, ShortCutPath As String Set WshShell = CreateObject("WScript.Shell") 'WshShellオブジェクトを作成 DeskTopPath = WshShell.SpecialFolders("Desktop") 'デスクトップパスを取得する ShortCutPath = DeskTopPath & "\" & "Yahoo!JAPAN.URL" 'ショートカット名の指定(URLショートカット名) With WshShell.CreateShortcut(ShortCutPath) .TargetPath = "https://www.yahoo.co.jp/" 'ショートカットのリンク先を設定(YahooのURLを指定) .Save 'ショートカットの保存実行 End With Set WshShell = Nothing End Sub ' |
●実行前~実行後 ※プログラムファイル実行後、インターネットサイトYahoo!JapanのURLショートカットがデスクトップ上に作成されました。
(画面クリックして拡大)
(画面クリックして拡大)
EXCEL VBA アプリケーションソフト(ペイント)のショートカット作成
●プログラム説明 (サンプル④)
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 |
' '******** AKIRA55.COM ******* https://akira55.com/shortcut/ ' Sub shortcut04() 'デスクトップ上にペイント(アプリケーション)のショートカットを作成する Dim WshShell As Object Dim DeskTopPath, ShortCutPath As String Set WshShell = CreateObject("WScript.Shell") 'WshShellオブジェクトを作成 DeskTopPath = WshShell.SpecialFolders("Desktop") 'デスクトップパスを取得する ShortCutPath = DeskTopPath & "\" & "ペイント.lnk" 'ショートカット名の指定(ペイント) With WshShell.CreateShortcut(ShortCutPath) .TargetPath = "%windir%\system32\mspaint.exe" 'ショートカットのリンク先を設定(ペイントのEXEを指定) .Save 'ショートカットの保存実行 End With Set WshShell = Nothing End Sub ' |
●実行前~実行後 ※プログラム実行後、ペイント(アプリケーション)のショートカットがデスクトップ上に作成されました。
(画面クリックして拡大)
(画面クリックして拡大)
最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。