使用環境
- OS：Windows 10 Pro（バージョン：20H2）
- ソフト：Microsoft Excel VBA
経緯
VBAを使って、フォルダを作成し、その中にExcelファイルを保存するプログラムを作成していました。
当初は、格納するフォルダパスをプログラム内で固定していましたが、実際に運用してみると、格納先フォルダは毎回変わる場合があることに気づきました。
そこで、ユーザーが都度、格納先フォルダを選択できるようにするため、ダイアログボックスを使ったフォルダ選択方法を学びました。
解決方法：ダイアログボックスを使う
VBAには、フォルダ選択専用のダイアログボックスを表示するための機能が用意されています。
それが、**Application.FileDialog(msoFileDialogFolderPicker)**です。
コード例
Sub ダイアログボックスを使ってフォルダ選択()
Dim SelectFolder As String
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
SelectFolder = .SelectedItems(1)
MsgBox "選択したフォルダは " & SelectFolder & " です。"
End If
End With
End Sub
コード解説
- 1行目：マクロ名を定義します。わかりやすい名前であれば何でも問題ありません。
- 2行目：選択されたフォルダのパスを格納するための文字列型変数を宣言します。
- 3行目：
Withブロックを使い、フォルダ選択ダイアログを設定します。 - 4行目：ダイアログボックスを表示します。
.Show = Trueは「OK」が押された場合に進みます。 - 5行目：選択されたフォルダのパスを取得し、変数に格納します。
- 6行目：選択結果をメッセージボックスで表示します。
- 7行目：
If文を終了します。 - 8行目：
Withブロックを終了します。 - 9行目：マクロを終了します。
次の展開
このダイアログボックス選択機能を使えば、
ユーザーがその都度、格納するフォルダを自由に選べるようになります。
実際には、上記のコードの「選択後の処理」に
フォルダ作成やExcelファイルの保存処理を組み合わせていけば、さらに便利なプログラムに拡張できます。
まとめ
今回は、ダイアログボックスを使って格納先フォルダを選択する方法を学びました。
Application.FileDialog(msoFileDialogFolderPicker)を使えば、ユーザー操作で柔軟にフォルダを指定できるため、実用性が格段に向上します。
なお、FileDialogには他にも異なる引数が用意されており（例：ファイル選択用など）、用途に応じて使い分けることもできますので、併せて学んでいきたいと思います。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
