【EXCEL VBA】ファイルをダイアログから選択する

• Facebook
• Twitter
• はてブ
• LINE
• Pocket

この操作が必要になるのは、ファイル名が特定できないときです。
そこで、処理対象のファイルをユーザーに選択してもらいます。
専用のダイアログを表示するFileDialogオブジェクトを使います。

FileDialogオブジェクトの取得

FileDialogオブジェクトは、ApplicationオブジェクトのFileDialogプロパティに、ファイル選択の定数msoFileDialogFilePickerを指定して取得します。
こんな感じ。Application.FileDialog(msoFileDialogFilePicker)

FileDialogオブジェクトのプロパティ／メソッド

一つのファイルをダイアログから選択するマクロ

Sub ファイル選択()
	With Application.FileDialog(msoFileDialogFilePicker)
		.InitialFileName = ThisWorkbook.Path & "\"
		If .Show Then
　　　　　　 Dim FileName As String
			FileName = .SelectedItems(1)
									
			'指定されたFileをOpenする						
			Dim trgtBook As Workbook						
			Set trgtBook = Workbooks.Open(FileName)						
			    	'＜処理＞					
			trgtBook.Close						
		End If							
	End With
End Sub

複数のファイルをダイアログから選択するマクロ

Sub 複数ファイル選択()								
	Dim FileName() As String							
	Dim i As Long							
	With Application.FileDialog(msoFileDialogFilePicker)							
		.InitialFileName = ThisWorkbook.Path & "\"						
		.AllowMultiSelect = True						
		If .Show Then						
			Dim n As Long					
			n = .SelectedItems.Count					
			ReDim FileName(1 To n)				
			For i = 1 To n				
				FileName(i) = .SelectedItems(i)			
					                			
				'指定したFileをOpenする			
				Dim trgtBook As Workbook			
				Set trgtBook = Workbooks.Open(FileName(i))			
					     '＜処理＞		
				trgtBook.Close			
			Next i				
		End If						
	End With							
End Sub

• Facebook
• Twitter
• はてブ
• LINE
• Pocket