excel连接sql server方法

'点击“工具”->“引用”添加以下引用：
'Microsoft ActiveX Data Objects 2.8 Libary
'Microsoft ActiveX Data Objects Records 2.8 Libary
'Microsoft ADO Ext.2.8 For Dll and Security
'Microsoft Forms 2.0 Object Libary
Public cat As New ADOX.Catalog
Public Conn As New ADODB.Connection 　　'定义对象连接数据库信息
Public rs As New ADODB.Recordset 　　　　'定义set
Public Strsql As String            　　　'定义sql语句字符串

'打开数据库连接
Public Sub OpenSql()
If Conn.State = 1 Then Conn.Close
If Conn.State = 0 Then
    Conn.Open "provider=sqloledb;server=数据库所在IP地址(可以是公网IP，前提是做好映射);database=数据库实例名称;uid=数据库登录用户(默认是sa);pwd=密码;"
End If
End Sub

'关闭数据库连接
Public Sub CloseConn()
If rs.State = 1 Then rs.Close
Conn.Close
End Sub

'sql_query语句 建议直接在数据库中写好过程 调用的时候方便调用
Public Sub SelectView(sku As String)   '表示有参过程
Strsql = "p_SelectView '" & sku & "'"  '过程前面可以选加 execute/exec 不加也可以
OpenSql '打开连接
rs.Open Strsql, Conn '使用连接
Worksheets("sys").Cells.Clear　'删除原sys表中数据　  
Dim i As Integer        　　　　'写入字段标题  下标从0开始
For i = 0 To rs.Fields.Count - 1
    Worksheets("sys").Cells(1, i + 1).Value = rs.Fields(i).Name
Next i
Worksheets("sys").Cells(2, 1).CopyFromRecordset rs　　　　'粘贴查询结果：特别注意 如果过程里面不仅有查询语句还有很多其它运算和操作，记得应用 set nocount on 和 set nocount off，不然会报错
CloseConn '关闭连接
End Sub