あなたはエクセルからワードのファイルを開けたら便利なのに、と思ったことはありませんか？
エクセルのマクロを使えば、ワードのファイルも一発で開けます。
今回は「エクセルでボタンを押すとセル名のワードファイルが開くマクロを作る方法」を紹介します。
エクセルでボタンを押すとセル名のワードファイルが開くマクロを作る方法
エクセルでボタンを押すとワードファイルが開くマクロを作る方法です。
マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法
下の画像のように、「A2セルに入れたファイル名」のファイルを開く方法を例に紹介します。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．新規作成をクリック
３．コードを入れる画面が出る
コードを入れる画面が出ます。
４．コードを入力
ここでは下記のように入力しています。
デスクトップの、仕事Aフォルダの、A2セルの名前のファイルを開く、という意味です。
Sub ボタン4_Click()
End Sub
赤枠部のコードです。
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("Sheet43").Range("A2").Value
' ファイルのパスを生成
filePath = desktopPath & folderName & "\" & fileName & ".docx"
' Wordアプリケーションを起動してファイルを開く
Dim wordApp As Object
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
wordApp.Documents.Open filePathコードを入力したら、コードの入力画面を閉じて下さい。
５．ボタンができた
６．仕事Aのフォルダ内はこのようになっている
デスクトップの仕事Aのフォルダ内は下のようになっているとします。
７．A2セルにファイル名を入れる →ボタンをクリック
A2セルにファイル名を入れて、ボタンをクリックします。
８．ファイルが開く
A2セルのファイル名のワードファイルが開きました。
実際の使用例
実際の使用例です。
下の画像のように、仕事で使うフォルダ内は、IDや管理番号だけになっていることが多いですよね。
これを目視でファイルを探すなんて面倒です。
検索窓に番号を入れればいいのですが、そもそもこのフォルダを開きたくありません。
で、先程のマクロに「000001」を入れて、ファイルを開いてみます。
あれ、「1」になってしまいました。
普通に入力すると「000001」の「0」は表示されなくなってしまいますので、
右クリックメニューから、「セルの書式設定」で、設定を「文字列」に変更します。
「000001」と表示されました。
これでボタンを押せば、ファイルが開きます。
これならフォルダを開かなくていいし、ファイルを探す必要もないので、楽になりますね！
まとめ
エクセルでボタンを押すとセル名のワードファイルが開くマクロを作る方法のまとめです。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．新規作成をクリック
３．コードを入れる画面が出る
４．コードを入力
５．ボタンができる
６．A2セルにファイル名を入れる →ボタンをクリック
７．ファイルが開く
これでエクセルからワードのフォルダも、一発で開けるのでラクですね！
エクセルからパワーポイントもマクロで開けたら便利ですよね？
エクセルマクロでパワポを開く方法は、下のリンクからどうぞ。
コメント