ファイル選択画面を表示してファイル選択する
うさこちゃん
このサンプルはファイル選択画面を表示します。
※選択したファイルPathを取得できます。
サンプルコード
うさこちゃん
サンプルコードではエクセルファイルのみを表示します。
Application.GetOpenFilename(“Microsoft Excelブック,*.xls?”)
Dim StrOpenFileName As String
Dim ObjWShell As Object
Dim StrDesktop As String
'オブジェクト生成
Set ObjWShell = CreateObject("WScript.Shell")
StrDesktop = ObjWShell.SpecialFolders("Desktop")
Set ObjWShell = Nothing
ChDir StrDesktop
'ファイル選択画面表示
StrOpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
If StrOpenFileName <> "False" Then
MsgBox StrOpenFileName '取得ファイルの表示
End If
ファイル選択画面（実行イメージ）
ExcelVBA逆引き大全 600の極意 Office365/2019/2016/2013/2010対応
ExcelVBAを仕事で使う際、「あれって、どうやるんだったっけ?」と困った時にサッと使うための逆引きテクニック集です。「コピペ使用に耐えうるサンプル」「スクショ画像を交えての丁寧な説明」「構文についてだけの情報もセットになっている」「関連するテクニックについての情報もすぐに引ける」という4つの条件を満たした情報をネットで探すのは非常に困難。デスクの片隅に常備したい1冊です。
できる大事典 Excel VBA 2019/2016/2013&Microsoft 365(サンプルファイル・無料電子版付)
VBAを使ってコードを記述するには、プログラミングの知識や基本構文の理解などが必要です。しかし、基本的な概念や仕組みだけを覚えても、VBAを使って柔軟にプログラムを記述するのはなかなか難しいもの。自分の思い通りにプログラムを記述するには、使用したい機能の構文や、構文を記述する際の設定項目なども知ることが必要です。
992ページという大ボリュームに、Excel VBAを使ったあらゆる操作を凝縮しました。この1冊をお持ちいただければどんな場面でもすぐに役立つはず。クラスモジュールを利用したプログラムの作成方法や、Webスクレイピングを実行するVBAの記述方法など、高度な内容も解説しているため、一歩先を進んだ応用的な操作をしてみたい中級者の方にもおすすめの1冊です。