Lấy dữ liệu từ Table của file đóng bằng ADO (1 người xem)

[tan.ngohoangquoc]

Hello mọi người,

Em thử dùng ADO đề lấy dữ liệu từ Table của một file đóng nhưng liên tục báo lỗi.

Sub TestExcel()    Dim cn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    cn.Open ("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};dbq=F:\Pyco\Resource Management\Data\Project.xlsx;")
    rst.Open ("select * from TableProject"), cn
    Sheet1.[A2].CopyFromRecordset rst
End Sub

TableProject là một table trong file Project.

 

[ptm0412]

Nếu table là do định dạng mà có, thì đôi khi gây ra lỗi nếu tham chiếu bằng name của table. Lý do là refered to của name không có dòng tiêu đề. Còn ADO lại đòi hỏi 1 range name có 1 dòng tiêu đề.

 

[tan.ngohoangquoc]

Nếu table là do định dạng mà có, thì đôi khi gây ra lỗi nếu tham chiếu bằng name của table. Lý do là refered to của name không có dòng tiêu đề. Còn ADO lại đòi hỏi 1 range name có 1 dòng tiêu đề.

Vậy trong trường hợp dữ liệu nằm ở table thì làm sao mình có thể lấy dc bằng ADO.
Trước đây em dùng VBA mở file để lấy dữ liệu.

Thanks thầy.

 

[hungpecc1]

Vậy trong trường hợp dữ liệu nằm ở table thì làm sao mình có thể lấy dc bằng ADO.
Trước đây em dùng VBA mở file để lấy dữ liệu.

Thanks thầy.

Dim SQL$, s$
s = Sheet1.ListObjects("TableProject").Range.Address(, , , 1)
SQL = "SELECT * FROM [" & Mid(s, InStr(1, s, "]") + 1, 255) & "]"
'...................
cnn.Open SQL, cnn,3, 3, 1