Sub GetData()     
     Dim strConn As String, strSQL As String 
     Dim conn As ADODB.Connection 
     Dim ds As ADODB.Recordset 
     Dim col As Integer 
     
     '清空电子表格的所有数据       
    Cells.Clear 
     
     '连接数据库的字符串       
    strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=name;Password=pwd;Initial Catalog=dataname;Data Source=servername" 
     '查询语句  
     strSQL = "select * from table1" 
     Set conn = New ADODB.Connection 
     Set ds = New ADODB.Recordset 
     '打开数据库连接  
     conn.Open strConn 
     
     With ds 
    '根据查询语句获得数据 
         .Open strSQL, conn 
         
          '自动控制加入所有列标题  
         For col = 0 To ds.Fields.Count - 1 
     '请注意Offset(0, col)中的参数一定要正确噢  
             Range("A1").Offset(0, col).Value = ds.Fields(col).Name 
         Next 
         
         '加入所有行数据 
         Range("a1").Offset(1, 0).CopyFromRecordset ds 
     End With 
     
     '以下是关闭数据库连接和清空资源  
     Set ds = Nothing 
     conn.Close 
     Set conn = Nothing 
End Sub 

做完上面的模块后,要调用它就要加入一个事件: 
'我这个是加入一个工作薄打开时就运行GetData方法,也就是自动加载数据  
Private Sub Workbook_Open() 
     Application.Run "GetData" 
End Sub