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.

(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.

.
đúng rồi ongke0711,
không hiển thị được bất kỳ file dạng nào
để mình thử trên office 2010 xem sao
có gì làm phiền tiếp!!!

@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.



@ 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

(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,
Mình nghỉ thứ 7, CN nên không theo dõi hướng dẫn của bạn được, sáng nay mình thay đoạn code như bạn HD thì khi bấm nút chọn files nó báo lỗi như sau:

http://www.mediafire.com/file/bpyp3nj1yx...A.doc/file

bạn xem dùm mình
cám ơn ongke0711

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à)

(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à)

Đúng rồi Bạn,
Mình đã xóa code cũ trong BrowseFiles  và copy đọan code mới bạn cho sau đó paste vào --> save--> chạy thử thì nó báo lỗi như vậy.
không biết có gì chưa đúng không vậy?

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.
Link: http://www.mediafire.com/file/xvw3nuqm28...3.mdb/file

(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.
Link: http://www.mediafire.com/file/xvw3nuqm28...3.mdb/file

Cám ơn Bạn,
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:

     http://www.mediafire.com/file/6hafk4ddoo...T.rar/file

mình nghĩ chắc gần OK rồi, bạn kiểm tra dùm mình tí
thanks you bạn nhiều

(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"""

(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"""

OK Ongke0711,
Mình làm đúng như bạn chỉ dẫn( xóa duy nhất 01 dấu nháy đơn trước chuỗi: sConnString....
save và chạy lại CT, khi nhấn nút chọn file nó lại nhảy lên lỗi:

http://www.mediafire.com/file/yhqf6djjk6...i.doc/file

còn khi dùng dòng code thứ 2 bạn cho thì khi thay vào chữ nó màu đỏ, mình nghĩ có lỗi cú pháp. bạn kiểm tra lại để mình thử xem sao
cám on bạn