![見出し画像](https://assets.st-note.com/production/uploads/images/34322253/rectangle_large_type_2_64bc1bd2b635c9cd4c18967d30df1d3c.png?width=1200)
1-ファイルを指定して開くボタン(エクセルマクロ)
セルにファイル名を入力してボタンを押すとファイルが開く!
皆さんこんにちは。
「マクロルーティン」シリーズは皆さんにマクロを知っていただくために「導入部~基本的なコード」の内容となっており、知っておいてほしいコードの書き方に絞って書いています。
今回は基本を少し超えた内容をご紹介します。
◆やりたいこと
C4セルに入力したファイル名のファイルが開くボタンを作りたい。
◆ボタンを押したときに動くマクロ
★書く場所は「マクロルーティン#0」でご紹介してます。
◆解説
・1行目 mypath = ThisWorkbook.Path
mypath ➡ 変数です
ThisWorkbook.Path ➡ ThisWorkbookとはマクロを書いているファイルをさしています。Pathは直前に書かれているThisWorkbookのパスのこと。
★よって、このマクロファイルが置いてあるフォルダのパスを変数mypathに入れています。
・2行目
myfile = Range("C4").Value
これは大丈夫ですね。myfileという変数にC4の値をいれています。
・3行目
Workbooks.Open mypath & "¥" & myfile
「Workbooks.Open ファイルのフルパス」でファイルが開きます。
「mypath & "¥" & myfile」←ここがファイルのフルパスですね。
<Point>
★mypath と myfile の間には”¥”を忘れずに”&”でつなげます。
★ファイル名は拡張子まで指定します。
皆さんお気づきのとおり、この書き方だとC4に書くファイル名はマクロを書いたファイルが置いてある同じ場所にあるファイルでないといけません。
ただ、今回は Workbooks.Open をご紹介したかったのです。
★次の図のようにC4にフルパスを記入するという決まりにするのなら、
次のマクロのように2行で済むことになります。
◆ボタンの作り方は大丈夫ですか?
図形を挿入したら右クリックでマクロの登録をします。
今回は以上となります。
最後までご覧いただきありがとうございました!