Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Pro : Excel 2016)
実行時エラー5
投稿日時: 20/02/28 09:19:53
投稿者: natunokanon


ダイアログで指定したサブフォルダのエクセルファイルデータを
シートを追加して全部コピーして持って来るVBA書いてます。
 
Sub ファイル取得()
 
Dim myFolder As Variant
Dim Fso As Object
Dim GetFolder As Object
Dim Fol As Object
Dim Filename As String
Dim IsBookOpen As Boolean
Dim OpenBook As Workbook
Dim ShCount As Long
Dim folderPath As String
 
Set Fso = CreateObject("Scripting.FileSystemObject")
 
With CreateObject("WScript.Shell")
     
    .CurrentDirectory = "\\○○○\Users\○○○" 'メインとなるフォルダを指定
     
End With
 
folderPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
 
Set SubFolders = Fso.GetFolder("folderPath")
  
'ここからサブフォルダ内のファイルを取得(以下は略)
 
この時点で
folderPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
のところで実行時エラー5プロシージャの呼び出し、または引数が不正です
となってしまいます。
 
原因はどこにあるのかご指導よろしくお願い致します。

投稿日時: 20/02/28 10:02:27
投稿者: natunokanon

すみません。自己解決です。
 
folderPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
 
の前にフォルダ選択のダイアログを開いていませんでした。
Application.FileDialog(msoFileDialogFolderPicker).Show
 
あさはかなミスで恥ずかしいです。
 
お騒がせ致しました。