Khai thác và tùy biến thêm, sửa, xuất file và lấy dữ liệu từ Recordset

[adult]

Chủ đề đang hay, anh Hai Lúa tiếp tục đi anh.

 

[adult]

Ví dụ ta định dạng dữ liệu, nối cột, thực hiện phép tính khi đưa xuống sheet như sau:

Sub Page_HLMT_4()
    Dim intPage As Integer, i As Integer, intSq As Integer, intRecord As Integer
    Dim lngTotal As Long
    With CreateObject("ADODB.Recordset")
        .Open "Select * from [Sheet1$]", "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0 Xml;Data Source=" & ThisWorkbook.FullName, 1
        .PageSize = 20
        Sheet2.Cells.ClearContents
        For intPage = 1 To .PageCount
            lngTotal = 0
            For intRecord = 1 To .PageSize
                i = i + 1
                intSq = intSq + 1
                Sheet2.Range("A" & i) = intSq
                Sheet2.Range("B" & i) = !ID & " >> " & !Code
                Sheet2.Range("C" & i) = !Code
                Sheet2.Range("D" & i) = Format(!Price, "0,#")
                lngTotal = lngTotal + !Price
                .MoveNext
                If .EOF Then Exit For
            Next
            i = i + 1
            Sheet2.Range("C" & i) = "Total:"
            Sheet2.Range("D" & i) = Format(lngTotal, "0,#")
        Next
    End With
End Sub

Chào anh Hai Lúa!
Anh cho em hỏi nếu muốn nối 2 column, ngoài cách ở trên thì còn cách viết nào khác không anh?
Ví dụ: Em muốn nối dữ liệu cột 3 vs cột 4

 Select f1,f2, f3 &" - " & f4 from [sheet1$]

Rồi dán xuống sheet bằng thủ tục

Sheet2.range("A2").Copyfromrecordset .Datasource

 

[haocaocu]

Xin chào.
Cho mình hỏi dữ liệu của mình lớn. Mình đã cho vào rs rồi thì làm cách nào đổi font dữ liệu (TCVN3 sang Unicode) xong mới đổ ra sheet không mọi người. Cảm ơn

 

[huhumalu]

Xin chào.
Cho mình hỏi dữ liệu của mình lớn. Mình đã cho vào rs rồi thì làm cách nào đổi font dữ liệu (TCVN3 sang Unicode) xong mới đổ ra sheet không mọi người. Cảm ơn

Trước đây có hỏi anh @Hai Lúa Miền Tây thì dữ liệu này mình chỉ truyền qua. Có tính được mấy hàm đơn giản như ABS, MAX, MIN, cộng trừ nhân chia.
Còn hơn nữa thì kg được. Cách làm thì mình từ RecordSet --> gán nó vào Array, rồi mang ra Array ra xử --> Gán xuống Sheets.

 

[Nhattanktnn]

rồi mang ra Array ra xử

Thì cái khúc mang array ra xử thì kiếm code chuyển dữ liệu từ TCVN3 sang Unicode. Còn tốc độ thì không biết sao. Chưa nghiên cứu dụ này

 

[haocaocu]

Mình xem link này có thể giống như chủ đề nè:
Tùy biến trên recordset