－ちょっと使えるネタを紹介－
Excel VBAで、フォルダを選択して開くには、「.Run」と「Application.FileDialog(4)」を使うとできます。VBAで、フォルダ操作を自動化していきましょう。
この記事では、フォルダを選択して開く方法について、ご紹介します。
フォルダを開くには、フォルダパスを指定して、「.Run」を使うとできます。
フォルダを選択したい場合は、「Application.FileDialog(4)」を使います。
「.Run」と「Application.FileDialog(4)」を組み合わせれば、フォルダを選択して、開くことができます。
VBAで、フォルダ操作を自動化していきましょう。
では、フォルダを選択して開く方法について、解説していきます。
この記事を読むメリット
目次から見たい項目へ移動すると便利ですよ。
目次
VBAを使ってフォルダを開いてみます。
フォルダを開くには、「.Run」を使うとできます。
Sub TEST1()
'フォルダを開く
CreateObject("WScript.Shell").Run "C:\Users\User\Desktop\TEST"
End Sub
フォルダパスを入力して開く感じです。
では、デスクトップにあるフォルダを開いてみます。
実行すると、デスクトップにあるフォルダを開くことができます。
デスクトップにあるフォルダを開くことができました。
ダイアログでフォルダを選択して、フォルダパスを取得してみます。
ダイアログでフォルダパスを取得したい場合は、「Application.FileDialog(4)」を使うとできます。
取得したフォルダパスは「.SelectedItems(1)」に保存されます。
設定しなかった場合は、「.Show」が「False」となるので、終了します。
Sub TEST2()
'フォルダ選択用のダイアログを表示
With Application.FileDialog(4)
'設定しなかった場合は終了
If .Show = False Then Exit Sub
'設定したフォルダのフォルダパスを取得
Debug.Print .SelectedItems(1)
End With
End Sub
実行すると、フォルダ選択用のダイアログを表示できます。
フォルダを選択して、OKをクリックします。
これで、フォルダを選択して、フォルダパスを取得できます。
フォルダを選択して、フォルダパスを取得できました。
ダイアログを使う場合は、「初期フォルダ」を設定すると便利です。
「.InitialFileName」に、最初に開きたいフォルダパスを入力します。
Sub TEST3()
'フォルダ選択用のダイアログを表示
With Application.FileDialog(4)
'最初に表示するフォルダを設定
.InitialFileName = "C:\Users\User\Desktop"
'設定しなかった場合は終了
If .Show = False Then Exit Sub
'設定したフォルダのフォルダパスを取得
Debug.Print .SelectedItems(1)
End With
End Sub
実行すると、設定したフォルダが最初に表示されます。
設定したフォルダが最初に表示されました。
フォルダを選択します。
これで、フォルダを選択して、フォルダパスを取得できます。
フォルダを選択して、フォルダパスを取得できました。
フォルダを選択して、フォルダを開いてみます。
ダイアログで選択してフォルダを開くVBAコードは、次のようになります。
Sub TEST4()
'フォルダ選択用のダイアログを表示
With Application.FileDialog(4)
'最初に表示するフォルダを設定
.InitialFileName = "C:\Users\User\Desktop"
'設定しなかった場合は終了
If .Show = False Then Exit Sub
'設定したフォルダを開く
CreateObject("WScript.Shell").Run .SelectedItems(1)
End With
End Sub
実行すると、フォルダ選択用のダイアログが表示されます。
デスクトップにあるフォルダを選択します。
これで、フォルダを選択して、表示することができます。
フォルダを選択して、表示することができました。
この記事では、フォルダを選択して開く方法について、ご紹介しました。
フォルダを開くには、フォルダパスを指定して、「.Run」を使うとできます。
フォルダを選択したい場合は、「Application.FileDialog(4)」を使います。
「.Run」と「Application.FileDialog(4)」を組み合わせれば、フォルダを選択して、開くことができます。
VBAで、フォルダ操作を自動化していきましょう。
参考になればと思います。最後までご覧くださいまして、ありがとうございました。
関連する記事から探す
カテゴリから見たい項目を探すと便利ですよ。
↓キーワードを入力する