Answers for "excel vba create recordset from table"


excel vba create recordset from table

'VBA function to create a detached, in-memory ADO recordset from an
'Excel table. This is the fastest method by far:

Function RSFromExcelTable(ws As Worksheet, table)
    Dim sXML, oXML
    With ws.ListObjects(table)
        sXML = Union(.HeaderRowRange, .DataBodyRange).value(xlRangeValueMSPersistXML)
    End With
    Set oXML = CreateObject("MSXML2.DOMDocument")
    oXML.LoadXML sXML
    Set RSFromExcelTable = CreateObject("ADODB.Recordset")
    RSFromExcelTable.Open oXML
End Function


MsgBox RSFromExcelTable(ActiveSheet, "Titanic").RecordCount
Posted by: Guest on April-24-2020

Code answers related to "VBA"

Browse Popular Code Answers by Language