Hỏi về gán kết quả truy vấn recordset cho mảng arr?

[maytinhvp01]

Dim cn As Object
Dim rs As Object
Dim sQL As String
dim arr
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.ConnectionString = "Data Source=" & App.Path & "\Book1.xlsx;Extended Properties=""Excel 12.0;HDR=Yes;"";"
    cn.cursorlocation = 3
    cn.open
    sQL = "SELECT * FROM [sheet1$]"
    rs.open sQL, cn, 3, 3
[COLOR=#ff0000]arr = rs[/COLOR]

Mình muốn gán kết quả truy vấn được cho mảng arr để xử lý dữ liệu trên mảng thì thiết thế nào ạ?

 

[Hai Lúa Miền Tây]

Đơn giản là Arr=rs.GetRows()

 

[ndu96081631]

Dim cn As Object
Dim rs As Object
Dim sQL As String
dim arr
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
cn.Provider = "Microsoft.ACE.OLEDB.12.0"
    cn.ConnectionString = "Data Source=" & App.Path & "\Book1.xlsx;Extended Properties=""Excel 12.0;HDR=Yes;"";"
    cn.cursorlocation = 3
    cn.open
    sQL = "SELECT * FROM [sheet1$]"
    rs.open sQL, cn, 3, 3
[COLOR=#ff0000]arr = rs[/COLOR]

Mình muốn gán kết quả truy vấn được cho mảng arr để xử lý dữ liệu trên mảng thì thiết thế nào ạ?

Chứ cái gì đây trời:
http://www.giaiphapexcel.com/forum/...-sách-từ-excel&p=533067&highlight=#post533067
Đã làm từ đời nào rồi
Tóm lại là dùng GetRows, nhưng phải lưu ý rằng:
- Mảng kết quả sẽ bị xoay 90 độ so với mảng nguồn
- Để áp dụng, bạn cần phải thêm hàm xoay mảng 90 độ lần nữa mới xài được