Xin các bác giúp về code kết nối với SQL này ạ. (2 người xem)

[meohenmiao]

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!!!

 

[Vô danh Tiểu tốt]

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