Sub SQLtoExcel_Data_Import()
Dim ctn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stSQL As String
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnStart As Range
Const stADO As String = “Provider=SQLOLEDB.1;Integrated Security=SSPI;” & _
“Persist Security Info=False;” & _
“Initial Catalog=master;” & _
“Data Source=IANBFS119\SQLEXPRESS” ‘CHANGE THE DATASOURCE
Set wbBook = ActiveWorkbook
Set wsSheet = wbBook.Worksheets(1)
With wsSheet
.Range(“A1:IV65536″).Clear
Set rnStart = .Range(“A1″)
End With
stSQL = “select * from dbo.spt_values where name like ‘%c’”
Set ctn = New ADODB.Connection
With ctn
.CursorLocation = adUseClient
.Open stADO
.CommandTimeout = 0
Set rst = .Execute(stSQL)
End With
rnStart.CopyFromRecordset rst
RowCount = Application.WorksheetFunction.CountA(Range(“A:A”))
Formating
MsgBox RowCount & ” Records Exported!!!”, vbInformation, “User_Info”
rst.Close
ctn.Close
Set rst = Nothing
Set cnt = Nothing
End Sub

Thx
Yuvi

Advanced ETL processor can generate Insert scripts from any data source including text files
http://www.dbsoftlab.com/generating-insert-statements.html

There are many ways to get data from SQL into Excel, so I’m afraid I won’t be much help without more detail on your specific situation. However, I would generally not use a macro to get the data from the database. Instead, I’d create a connection using the “From SQL Server” option under the Data tab. (Screenshot: http://screencast.com/t/MTFkODM0N )

I’d pull that data into a “raw data” sheet and would create my dashboard against that sheet. I find this gives me more options to manipulate my data directly within Excel.

I hope this helps, but let me know if it doesn’t. If you can provide some more specifics, I’d be happy to follow up.