Xin các bác giúp về code kết nối với SQL này ạ.

Chia sẻ bởi:hands

★★★★★

‹ Lỗi khi xuất dữ liệu từ sql... Sử dụng ADO để copy dữ liệu... ›

Quảng cáo

Cám ơn các bác đã vào đọc. Em có code kết nối với sql, có đoạn như sau, khi chạy với excel 2010 thì không bị lỗi nhưng với excel 2003 thì bị lỗi ở cái đoạn này xlSrcQuery (variable not defined)
Function GetTopQueryTable(ByVal ws As Worksheet) As QueryTable

On Error Resume Next

Set GetTopQueryTable = Nothing

Dim lastRow As Long
    lastRow = 0

Dim qt As QueryTable
    For Each qt In ws.QueryTables
        If qt.ResultRange.row > lastRow Then
            lastRow = qt.ResultRange.row
            Set GetTopQueryTable = qt
        End If
    Next

Dim lo As ListObject

For Each lo In ws.ListObjects
        If lo.SourceType = [B]xlSrcQuery[/B] Then
            If lo.QueryTable.ResultRange.row > lastRow Then
                lastRow = lo.QueryTable.ResultRange.row
                Set GetTopQueryTable = lo.QueryTable
            End If
        End If
    Next

End Function
Bác nào xem giúp hộ em với ạ! Em cám ơn nhiều!!!

xlSrcQuery chắc không phải là một hằng số có sẵn trong đoạn code trên. Bạn thử thay LO.SourceType = 3

www.giaiphapexcel.com/diendan/threads/xin-c%C3%A1c-b%C3%A1c-gi%C3%BAp-v%E1%BB%81-code-k%E1%BA%BFt-n%E1%BB%91i-v%E1%BB%9Bi-sql-n%C3%A0y-%E1%BA%A1.109541/