vba远程服务器不可用,[求助]vba中如何连接远程MSSQL SERVER?

str_connect = "ODBC;DRIVER={SQL Server};UID=sa;DATABASE=数据库名称;SERVER=机器ip

WD=密码"

ls_select = "SELECT * From table1 "

With ThisWorkbook.Worksheets("test").QueryTables.Add(Connection:= _

str_connect, Destination _

:=ThisWorkbook.Worksheets("test").Range("A1"))

.Sql = Array(ls_select)

.FieldNames = False

.RefreshStyle = xlOverwriteCells

.RowNumbers = False

.FillAdjacentFormulas = False

.RefreshOnFileOpen = False

.HasAutoFormat = False

.BackgroundQuery = False

.TablesOnlyFromHTML = False

.Refresh BackgroundQuery:=False

.SavePassword = True

.SaveData = False

End With

这样就ok了  这个查询远程服务器上的   table1表放到 ThisWorkbook.Worksheets("test").Range("A1")起始的区域放置

你新建立一个execl然后把一个sheet命名为：test  在这个上面放个按钮  直接把这部分代码copy到按钮下面

把字符串  str_connect  改为你需要的  把table1换为你的数据库里有的表就ok了

[此贴子已经被作者于2007-12-19 9:04:33编辑过]