VBA CreateObject関数でフォルダーのショートカットを作成

CreateObject関数でフォルダーのショートカットを作成

Sub test()

　　' CreateObject関数でフォルダーのショートカットを作成

    Dim A, B As String
    A = ThisWorkbook.Path & "\Test1のショートカット.lnk"     '　ショートカットのファイルパス
    B = ThisWorkbook.Path & "\test1"    '　リンク先のフォルダパス
    
    With CreateObject("WScript.Shell").CreateShortcut(A)
      .TargetPath = B   '　リンク先のフォルダパス
      .Save     '　保存
    End With

End Sub

実行結果

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA データの操作　オートフィルター』

『VBA オートフィルター　データが絞り込んでいるか判断方法』

『VBA　フィルターで特定文字を含むデータを抽出』

『VBA 色で絞り込む方法』

『VBA 最終行・列の取得』

『VBA　セルに数式を入力・取得』

『VBA 連続データの作成　AutoFillメソッド』

『VBA セル選択範囲の変更 Resizeプロパティ』

『VBA セル入力規則の設定（Validation）』