Koppelen van een recordset aan een tabel

[linkav]

Beste forummers,

Ik heb een werkblad met een tabel.

Kan ik in vba een recordset koppelen aan deze tabel?

 

[OctaFish]

Lijkt mij wel. Heb je al eens een macro opgenomen die een tabel koppelt? Dan heb je het grootste deel van de code al klaar.

 

[linkav]

Octafish,

Dit is wat ik zocht (dus ook gevonden heb). Misschien niet helemaal want ik had het graag in een tabel gehad en eventueel met de veldnamen in de eerste rij als hoofding van de kolommen.
strMDX_Query is een variabele die het ut te voeren select-statement bevat (meer dan 32.000 karakters)

    cnn.Open ConnectionString
    On Error GoTo 0
    'Timeout error in seconds for executing the entire query; this will run for 15 minutes before VBA timesout, but your database might timeout before this value
    cnn.CommandTimeout = 900

    Set rst = New ADODB.Recordset
    rst.ActiveConnection = cnn
    
    With rst
        ' Assign the Connection object.
        .ActiveConnection = cnn
        ' Extract the required records.
        .Open strMDX_Query
        ' Copy the records into cell A1 on Sheet1.
        Sheets("Result").Range("A1").CopyFromRecordset rsPubs
        ' Tidy up
        .Close
    End With

    cnn.Close
    Set rst = Nothing
    Set cnn = Nothing