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 = To ds.Fields.Count -
'请注意Offset(0, col)中的参数一定要正确噢
Range("A1").Offset(, col).Value = ds.Fields(col).Name
Next '加入所有行数据
Range("a1").Offset(, ).CopyFromRecordset ds
End With '以下是关闭数据库连接和清空资源
Set ds = Nothing
conn.Close
Set conn = Nothing
End Sub
注意:
1. 保存时您可能看到以下消息:“Privacy warning:This document contains macros, ActiveX Controls, XML expansion pack...”
解决方法:
要取消该警告,回到当前Excel-> Options -> Trust Center -> Trust Center Settings...-> Privacy Options,取消选中“Remove Personal information from file properties on save”复选框。
2. 保存时您可能看到以下消息:“
the following features cannot be saved in macro-free workbooks
vb project
to save a file with these features click no and then choose a macro-enabled file type in the file type list.
to continue saving as a macro-free workbook, click yes"
解决方法:
1. 你所打开的文件是只读的
2. 你所打开的文件是未启用宏的工作薄xlsx,而你使用了宏,所以提示需要你保存为xlsm