エクセルでボタンを押すとセル名のPDFファイルが開くマクロを作る方法

エクセル

2023.08.142024.03.20

あなたはエクセルからPDFファイルを開けたら便利なのに、と思ったことはありませんか？

よく使うPDFや、資料作成の元になるPDFをエクセルから開けたら便利ですよね。

エクセルのマクロを使えば、PDFのファイルも一発で開けます。

今回は「エクセルでボタンを押すとセル名のPDFファイルが開くマクロを作る方法」を紹介します。

エクセルでボタンを押すとセル名のPDFファイルが開くマクロを作る方法
実際の使用例
まとめ

エクセルでボタンを押すとセル名のPDFファイルが開くマクロを作る方法

エクセルでボタンを押すとPDFファイルが開くマクロを作る方法です。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

下の画像のように、「A2セルに入れたファイル名」のPDFファイルを開く方法を例に紹介します。

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．新規作成をクリック

３．コードを入れる画面が出る

コードを入れる画面が出ます。

４．コードを入力

ここでは下記のように入力しています。

デスクトップの、仕事Aフォルダの、A2セルの名前のPDFファイルを開く、という意味です。

赤枠部のコードです。

    Dim desktopPath As String
    Dim desktopPath As String
    Dim folderName As String
    Dim filePath As String
    Dim fileName As String
    
    ' デスクトップのパスを取得
    desktopPath = Environ("USERPROFILE") & "\Desktop\"
    
    ' 開くファイルのフォルダ名を設定
    folderName = "仕事A"
    
    ' 開くファイルの名前をA2セルから取得
    fileName = ThisWorkbook.Sheets("Sheet45").Range("A2").Value
    
    ' ファイルのパスを生成
    filePath = desktopPath & folderName & "\" & fileName & ".pdf"
    
    ' Shell.Applicationを使用してファイルを開く
    CreateObject("Shell.Application").ShellExecute filePath

コードを入力したら、コードの入力画面を閉じて下さい。

５．ボタンができた