excel链接mysql语句查询语句_Excel VBA连接sql数据库并查询数据

近期在使用Excel做数据查询时，需要提取数据库中数据，用Excel VBA很方便的就查询出来数据了，特分享给大家，使用VBA的时候，需要注意给予宏安全性，不然程序不能正常运行。Sub Open_Click()

Dim strConn As String

Dim strSQL As String

Dim conn As Object

Dim ds As Object

Dim col As Integer

Set conn = CreateObject("ADODB.Connection")

Set ds = CreateObject("ADODB.RecordSet")

'连接数据库的字符串

strConn = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=[user];Password=[password];Initial Catalog=[database];Data Source=[server];Connect Timeout=720; "

'查询语句,如果sql语句很长可以用strSQL=strSQL+来连接分成多段的语句,如果语句很短可以只写在一行上。

strSQL = "select * from Larticles "

'strSQL = strSQL + "where sdate='2014-01-01' order by sdate,shopid "

'打开数据库连接

conn.Open strConn

'该句和数据库连接字符串处的Connect Timeout=720,表示说如果语句运行时间很长,这两句可以延长vba的等待时间,没有这两句,vba往往会报查询超时。

conn.CommandTimeout = 720

With ds

'根据查询语句获得数据

.Open strSQL, conn

'自动控制加入所有列标题

For col = 0 To ds.Fields.Count - 1

'请注意Offset(0, col)中的参数一定要正确,该句表示标题将会写在第一行,从A1单元格开始,如果不想写入标题行,可将下面这句注释掉。

'Worksheets("门店各课KPI周报").Range("A1").Offset(0, col).Value = ds.Fields(col).Name

Next

'加入所有行数据,该句表示查询结果将会写在第一行,从A1单元格开始,但是由于标题行写在第一行了,所以实际这一行从标题下的一行写入。

Worksheets("sheet1").Range("A1").Offset(1, 0).CopyFromRecordset ds

End With

'关闭数据库连接和清空资源

Set ds = Nothing

conn.Close

Set conn = Nothing

End Sub