Question

我使用Microsoft Query并向MSSQL数据库写了一个查询。该查询在MS Query中运行良好。这是大约59,000行和9列数据。当我关闭MS Query并将数据导入Excel时，它会说：“获取数据”几秒钟然后就会消失。没有数据真正显示，但它几乎像Excel似乎认为那里有东西。

我已经尝试过Excel 2007和2010，但两者都做同样的事情。我已经读过Excel 2007/10最多可以处理1,000,000行查询，所以我不确定为什么它不能在这里工作。

Answer 1

这是VBA中可能有效的ADO方法......

sub getData()
dim adoRS as object ' ADODB.Recordset
dim adoConn as object ' ADODB.Connection
dim sConnStr as string

set adors=createobject("adodb.recordset")
set adoConn=createobject("ADODB.connection")

with adocn
.provider="MSSQL"
.cursorlocation=3 ' aduseclient
.connectionstring=sConnstr ' get from UDL file in Windows Explorer
.open
end with

with adors
.source="SELECT * FROM table"
.activeconnection=adocn
.cursortype=1 ' adopenkeyset
.locktype=1 ' adlockreadonly
.cursorlocation=3 ' aduseclient
.open
end with

range("A1").copyfromrecordset adors

end sub

我希望有帮助

菲利普

Excel不会从Microsoft Query获取数据

1 个答案: