Access VBA에서 파일 찾아보기 대화 상자 사용

Question

이 항목은 How to show "Open File" Dialog in Access 2007 VBA?이며 그곳에는 참조를 사용하지 않는 해결책이 있지만 사용자가 선택한 파일 경로를 표시하는 방법을 알 수 없습니다. 누군가가

당신에게

이 아주 많이 감사 설명해 수있는 것은 내가 처음에 대한

Dim f As Object 
Set f = Application.FileDialog(3) 
f.AllowMultiSelect = True 
f.Show  
MsgBox "file choosen = " & f.SelectedItems.Count 

Answer 1

먼저 일을 이야기하고있는 작품이다 : 당신은 항상 가능하면 강력한 형식의 변수를 사용하는 것을 선호한다. 이 경우 Object을 Office.FileDialog으로 바꿀 수 있습니다.

선택한 각 파일의 경로를 표시하려면 SelectedItems 컬렉션을 반복해야합니다. FileDialog는 또한 사용자 정의를 요구하는 경우, 설정할 수있는 다른 특성을 가지고

Dim f As Office.FileDialog 
Set f = Application.FileDialog(3) 
f.AllowMultiSelect = True 

' Show the dialog. If the method returns True, the user picked at least one file. 
' If the method returns False, the user clicked Cancel. 
If f.Show Then 
    MsgBox f.SelectedItems.Count & " file(s) were chosen." 

    ' Display the full path to each file that was selected 
    Dim i As Integer 
    For i = 1 To f.SelectedItems.Count 
     MsgBox f.SelectedItems(i) 
    Next i 
End If 

참고 : 예를 들어, 다음 코드를 추가합니다. 예를 들어 .Title 속성을 사용하면 제목 표시 줄에 대화 상자의 캡션으로 표시 할 제목을 지정할 수 있습니다. .Filter 속성을 사용하여 필터를 지정할 수도 있습니다. 그러면 대화 상자에서 사용자가보고 선택할 수있는 파일 형식이 제한됩니다. 예를 들어, 데이터베이스에만 액세스하도록 선택 사항을 제한하려면 다음 코드를 추가하십시오.

' Clear out the current filters 
f.Filters.Clear 

' Add a few custom filters 
f.Filters.Add "Access Databases", "*.mdb" 
f.Filters.Add "All Files", "*.*"