---

《ソースコード》

	Option Explicit
	
	#Const DEBUG_VERSION = 1                                            ' 本番環境の場合は = 0
	
	Sub Sample_GetFileName()
	    ' ファイルダイアログを使用して、外部ファイルのフルパス名を取得
	
	Dim fdObject As FileDialog                                          ' FileDialogオブジェクトを格納する変数
	Dim varSelectedItem As Variant                                      ' 選択した項目を格納する変数
	Dim lngCellCounter As Long                                          ' セル行番号を格納する変数
	Dim lngReturnCode As Long                                           ' [参照]ダイアログの復帰コードを格納する変数
	
	Set fdObject = Application.FileDialog(msoFileDialogFilePicker)      ' [参照]ダイアログボックス型のFileDialogオブジェクトを作成する。
	
	lngCellCounter = 1                                                  ' 格納セルの先頭行番号を設定する。
	
	With fdObject
	    lngReturnCode = .Show                                           ' [参照]ダイアログボックスの表示する。
	    
	    If (lngReturnCode = -1) Then                                    ' [OK]ボタンをクリック
	        For Each varSelectedItem In .SelectedItems                  ' FileDialogSelectedItemsコレクション内をチェックする。
	            
	            ActiveSheet.Range(Cells(lngCellCounter, 4), Cells(lngCellCounter, 4)).Value = varSelectedItem
	            
	            lngCellCounter = lngCellCounter + 1
	        Next varSelectedItem
	    Else                                                            ' [キャンセル]ボタンをクリック
	        MsgBox "[キャンセル]ボタンがクリックされました。", vbOKOnly, "参照ダイアログ・キャンセル"
	    End If
	End With
	
	Set fdObject = Nothing                                              'オブジェクトの変数を開放する。
	
	End Sub

---

update:2010.01.31