Open FileDialog VBA Access

Open FileDialog VBA Access

Ví dụ 1: chọn 1 file duy nhất với vba access

Private Sub Command7_Click()
Dim f    As Object
 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = False
 f.Show

 MsgBox "file choosen = " & f.SelectedItems(1)
 
 
End Sub

Ví dụ 2: chọn nhiều file với vba access

Private Sub Command7_Click()
Dim f    As Object
 Set f = Application.FileDialog(3)
 f.AllowMultiSelect = True
 f.Show
'Trả về tổng file được chọn
 MsgBox "file choosen = " & f.SelectedItems.Count
 'Lặp để lấy đường dẫn các file
For i = 1 To f.SelectedItems.Count
    MsgBox f.SelectedItems(i)
Next i 
 
End Sub