Question

I have no idea about excel macro. I need to get the data from MySQL and display it in excel. Can i get any links or code examples for this.

Answer 1

Sub ADOExcelSQLServer() 
  Dim Cn As ADODB.Connection 
  Dim Server_Name As String 
  Dim Database_Name As String 
  Dim User_ID As String 
  Dim Password As String 
  Dim SQLStr As String 
  Dim rs As ADODB.Recordset 
  Set rs = New ADODB.Recordset 

Server_Name = "" ' Enter your server name here
Database_Name = "" ' Enter your database name here
User_ID = "" ' enter your user ID here
Password = "" ' Enter your password here
SQLStr = "select Period, Secured, Unsecured from cmisa.credit_facts" 

Set Cn = New ADODB.Connection 
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & _ 
";Uid=" & User_ID & ";Pwd=" & Password & ";" 

rs.Open SQLStr, Cn, adOpenStatic 
 ' Dump to spreadsheet
With Worksheets("1.Overview").Range("AI7:AK19") ' Enter your sheet name and range here
    .ClearContents 
    .CopyFromRecordset rs 
End With 
 ' Tidy up
rs.Close 
Set rs = Nothing 
Cn.Close 
Set Cn = Nothing 

End Sub