Noname > 06-07-12, 06:08 PM
Xuân Thanh > 06-07-12, 06:34 PM
uronmapu > 06-07-12, 07:43 PM
Private Sub cmdBrowse_Click()
Dim fDialog As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Cho.n Ta^.p Tin"
.Filters.Clear
.Filters.Add "hình a?nh", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
MsgBox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End SubXuân Thanh > 06-07-12, 08:48 PM
(06-07-12, 07:43 PM)uronmapu Đã viết: Làm theo cách của xuân thành nhưng ko được
Mình tạo 1 nút button Browse với dòng lệnh bên dưới,
Mã:Private Sub cmdBrowse_Click()
Dim fDialog As String
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.Title = "Cho.n Ta^.p Tin"
.Filters.Clear
.Filters.Add "hình a?nh", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
MsgBox varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
End Sub
Khi click vào button để chạy thì báo lỗi
Compile error: Object required
Tại dòng Set fDialog
uronmapu > 06-07-12, 09:24 PM
Noname > 06-07-12, 09:48 PM
(06-07-12, 09:35 PM)uronmapu Đã viết:Đọc đi đọc lại ...nhưng có làm theo không? Lấy giấy viết ra, viết từng dòng một ý nó là gì, sau đó làm theo thử thế nào!(06-07-12, 06:08 PM)Noname Đã viết: Chịu khó đọc và tư duy đi! Chưa tới 20 dòng mà! Khi nào bạn hiểu ý nghĩa từng dòng rồi mà làm không được thì hẳn hỏi!
Có thể là em kém thông mình nên đọc đi đọc lại mà ko hiểu áp dụng sao cho import được từ excel vào 1 bảng tblNames trong access ...
Mong bác bớt chút thời gian hướng dân thêm giúp em
Cảm ơn
Xuân Thanh > 07-07-12, 08:47 AM
On Error Resume Next
Dim fDialog As FileDialog
Dim varFile As Variant
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = True
.Title = "Select One or More Files"
.Filters.Clear
.Filters.Add "Microsoft Excel", "*.xls"
.Filters.Add "All Files", "*.*"
If .Show = True Then
For Each varFile In .SelectedItems
Me.txtTapTin = varFile
Next
Else
MsgBox "You clicked Cancel in the file dialog box."
End If
End With
uronmapu > 07-07-12, 09:59 AM
Noname > 07-07-12, 10:21 AM
Xuân Thanh > 07-07-12, 11:08 AM
(07-07-12, 10:21 AM)Noname Đã viết: http://thuthuataccess.com/forum/thread-103.html