vbscript 将记录集写入范围

Posted 2021-05-21

Sub WriteRecordsetToRange(ByVal adoRecSet As ADODB.Recordset, ByVal startCell As Range)
'Description:   Writes data from a recordset to a range
'Input:         Recordset object; start cell (Range)

'   if startCell contains more than one cell then upper-left cell is used
    If startCell.Cells.Count > 1 Then startCell = startCell.Cells(1)
    
    startCell.CopyFromRecordset adoRecSet
    
End Sub