subasatran > 25-10-23, 04:30 PM
Set rs = CreateObject("ADODB.Recordset")
FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
SQL = "select * from [Data$A1:AA]"
Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
& ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
rs.Open SQL, Strconnect, 3, 1
Set rs = CreateObject("ADODB.Recordset")
FilePath = CurrentProject.Path & "\" & FileName & ".xlsx"
SQL = "select * from [Sheet1$A1:AA]"
Strconnect = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath _
& ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;"";")
rs.Open SQL, Strconnect, 3, 1
ongke0711 > 25-10-23, 10:51 PM
subasatran > 26-10-23, 07:53 AM
ongke0711 > 26-10-23, 08:15 AM
subasatran > 26-10-23, 09:10 AM
(26-10-23, 08:15 AM)ongke0711 Đã viết: Bạn sửa lại tham số này xem thử, cho file xls.Hi a,
"Extended Properties=""Excel 8.0;HDR=YES""
Mấy file dạng dữ liệu này sao bạn không export ra dạng CSV để xử lý, lưu trữ nó nhẹ nhàng hơn không.
ongke0711 > 26-10-23, 01:04 PM
subasatran > 27-10-23, 10:03 AM
(26-10-23, 01:04 PM)ongke0711 Đã viết: Tôi lấy file Excel mẫu của tôi test thì thấy nó lấy dữ liệu bình thường cả 2 trường hợp, không báo lỗi gì cả.Cám ơn anh @ongke0711
Để chắc ăn thì bạn post cái file mẫu thực tế của bạn, chỉ cần 5 dòng dữ liệu là được rồi để xem có phải cái file xuất có vấn đề hay không.
Noname > 30-10-23, 10:20 AM
ongke0711 > 30-10-23, 04:08 PM
Thanh Thiet > 11-11-23, 04:30 PM
(27-10-23, 10:03 AM)subasatran Đã viết:(26-10-23, 01:04 PM)ongke0711 Đã viết: Tôi lấy file Excel mẫu của tôi test thì thấy nó lấy dữ liệu bình thường cả 2 trường hợp, không báo lỗi gì cả.Cám ơn anh @ongke0711
Để chắc ăn thì bạn post cái file mẫu thực tế của bạn, chỉ cần 5 dòng dữ liệu là được rồi để xem có phải cái file xuất có vấn đề hay không.
Để em gởi file mẫu nhơ anh xem giúp với a.
Trong file em để 2 file excel (1 rawdata từ hệ thống với tên Sheet1 và 1 file đã đổi tên sheet là Data) + 1 file access em để import data.
Nhờ anh xem giúp với ạ.
Cám ơn anh nhiều.
Link file