第25回「VBAでフォルダを開く！～ファイルパスの取得方法～」

はい！どうも！つのかぼちゃです！

今回はエクセルVBAでフォルダを開くやつのやり方を解説していきます！

（↓のやつです）

まずはプログラムから！

こんな感じです！

２行！！！

驚きの短さですね。

コードの意味を解説しますね！

Dim foldanonamae As String

→ VBAさん！foldanonamae は文字だよ！

foldanonamae = Application.GetOpenFilename

→エクスプローラーを開いて、フルパスを foldanonamae に代入してね！

ではでは実行してみましょう！

①エクスプローラーが開きましたね

②好きなファイルを選択！

すると～？

ちょっと待ってくださいね～！

・・・。

・・・・・・・・・・。

・・・・・・・・・・・・・・・。

何も起きず！！！

大丈夫です！

ちゃんと何か起こってますよ！！

先ほどのプログラムに

Call Msgbox(foldanonamae)

を追加しもう一度実行して好きなファイルを選択してみてください～！

すると・・・

ちゃんとフルパスが表示されました！

次回はこのプログラムを進化させて

好きなファイルをエクセルに挿入するプログラムを

作成していきましょう！

お楽しみに♪