Import SQL Server to Excel with VBA

import-sql-server-to-excel-vba.vba

Public Function getDataFromRecordset()
 
    Dim sheet As String
    sheet = "Output"
    
    Worksheets(sheet).Select
    Range("A1").Select
   
    Dim strSQL As String
    strSQL = "SELECT TOP 10 * FROM table"
   
    Dim rst As New ADODB.Recordset
    rst.Open strSQL, strDbConn, adOpenKeyset, adLockOptimistic
 
    If Not rst.EOF Then
        Set rPrint = Worksheets(sheet).Range("A2")
        rPrint.CopyFromRecordset rst
    End If
   
    rst.Close
       
    Cells.Select
    Selection.ColumnWidth = 50.86
    Cells.EntireColumn.AutoFit
    Cells.EntireRow.AutoFit
   
    Range("A1").Select
    
    MsgBox "Report downloaded"
   
End Function