ongke0711 > 02-10-20, 12:11 PM
phương > 02-10-20, 12:16 PM
(02-10-20, 12:11 PM)ongke0711 Đã viết: Khi vào Folder, nó không hiện thị các file Excel à?.
Cái File Type (.xls?) tôi đã để mặc định là tất cả các file Excel: .xls, .xlsx, xlsm, .xlsb
Bạn xem các máy kế bên có Office 2007 trở lên mở thử xem.
ongke0711 > 02-10-20, 12:20 PM
Public Function BrowseFiles() As String
Const msoFileDialogFilePicker As Long = 3
Dim fd As Object 'Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Title = "Chon Excel file:"
.Filters.Add "Custom Excel Files", "*.xlsx, *.xls, *.xlsm, *.xlsb"
.FilterIndex = 1
.AllowMultiSelect = False
' Show the file.
If .Show = True Then
BrowseFiles = .SelectedItems(1) ' Lay duong dan file.
'Debug.Print Dir(.SelectedItems(1)) ' Lay ten file.
End If
End With
End Function
phương > 05-10-20, 09:44 AM
(02-10-20, 12:20 PM)ongke0711 Đã viết: @phương:
Bạn bấm Atl+F11 -> vô màn hình code VBA -> kiếm module "modBrowseFile" copy đoạn code bên dưới vô thay thế đoạn code cũ xem như thế nào.
Mã PHP:Public Function BrowseFiles() As String
Const msoFileDialogFilePicker As Long = 3
Dim fd As Object 'Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Title = "Chon Excel file:"
.Filters.Add "Custom Excel Files", "*.xlsx, *.xls, *.xlsm, *.xlsb"
.FilterIndex = 1
.AllowMultiSelect = False
' Show the file.
If .Show = True Then
BrowseFiles = .SelectedItems(1) ' Lay duong dan file.
'Debug.Print Dir(.SelectedItems(1)) ' Lay ten file.
End If
End With
End Function
@ anh tranthanhan1962:
Không biết anh có cài bản thuần Access 2003 không? phiền anh giúp chuyển file .accdb về .mdb xem có bị lỗi gì không nhé.
Link file: http://www.mediafire.com/file/s0cj50ev7v...l.zip/file
ongke0711 > 05-10-20, 10:49 AM
phương > 05-10-20, 11:10 AM
(05-10-20, 10:49 AM)ongke0711 Đã viết: Bạn xoá code hàm BrowseFiles cũ đi rồi chép code mới vào. (Tôi nói copy thay thế mà)
ongke0711 > 05-10-20, 11:31 AM
phương > 05-10-20, 12:04 PM
(05-10-20, 11:31 AM)ongke0711 Đã viết: Thôi bạn dùng file này đi. Lõi là do trùng tên hàm, tức là vẫn còn cái hàm trùng tên như vậy trong module.Cám ơn Bạn,
Link: http://www.mediafire.com/file/xvw3nuqm28...3.mdb/file
ongke0711 > 05-10-20, 12:23 PM
(05-10-20, 12:04 PM)phương Đã viết: Mình chạy thử cái file bạn mới cho:
- nhấn nút chọn file excel thì có đường dẫn tới file excel cần chọn, tuy nhiện tuy nhiên khi chọn file nó lại báo lỗi như sau:
phương > 05-10-20, 02:06 PM
(05-10-20, 12:23 PM)ongke0711 Đã viết:(05-10-20, 12:04 PM)phương Đã viết: Mình chạy thử cái file bạn mới cho:
- nhấn nút chọn file excel thì có đường dẫn tới file excel cần chọn, tuy nhiện tuy nhiên khi chọn file nó lại báo lỗi như sau:
Tôi lại quên bạn dùng Access 2003 nên chưa bỏ tuỳ chọn code dùng cho Access 2003.
Vô module modADOConnect -> kiếm hàm : Function ConnectDB(sDBFullPath As String) As Boolean
Bạn kiếm dòng code bên dưới và bỏ dấu nháy đơn " ' " trước chuỗi: sConnString....
'Excel 97 - 2003
'sConnString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & WBName & ";" & _
"Extended Properties=""Excel 8.0;HDR=No"""
==> bỏ dấu nháy đơn
'Excel 97 - 2003
sConnString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & WBName & ";" & _
"Extended Properties=""Excel 8.0;HDR=No"""
--------------------------------------------------------------------
Nếu không chạy nữa thì dùng dòng code này:
'Excel 97 - 2003
sConnString = Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & WBName & ";" & _
"Extended Properties=""Excel 8.0;HDR=No"""