Sub file_open1()
	Workbooks.Open "C:\My Documents\Book1.xls"
	'C:\My DocumentsにあるBook1を開きます
End Sub


Sub file_open2()
	Application.Dialogs(xlDialogOpen).Show
	'ファイルを開くダイアログを表示
End Sub