SQL SERVER 2000导出到Excel ,请看代码有什么错误？

Question

Dim cnExcel As New ADODB.Connection
    Dim recExcel As New ADODB.Recordset
    cnExcel.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    cnExcel.Open
    cnExcel.Execute ("select  A.* into [Sheet1$]  FROM OPENROWSET('SQLOLEDB','myServer';'sa';' ','SELECT * FROM pubs.dbo.authors ORDER BY au_lname, au_fname') as A")    '''''''错误
    cnExcel.Close
    Set cnExcel = Nothing
    Set recExcel = Nothing
提示错误from 子句有错误

Answer 1

换个写法试试：    Dim cn As New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=jtaf;Password=登陆密码;Initial Catalog=sql里的数据库;Data Source=sql服务器别名或IP"
    cn.CursorLocation = adUseClient
    cn.Open    cn.Execute("select * into OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;hdr=yes;database=c:\Test.xls;','select * from [Sheet1$]')  from table1")

Answer 2

http://community.csdn.net/Expert/topic/4621/4621548.xml?temp=.5011255

Answer 3

那个帖子已经看完，我现在是把sql server 2000的一个表导入到 Excel的一个工作表 ,使上面的反过程.

Answer 4

现在是把sql server 2000的一个表导入到 Excel的一个工作表 
---------------------------------
用1楼的代码可以的

Answer 5

openrowset 只能在SQL的连接上执行，'microsoft.jet.oledb.4.0' 不支持

Answer 6

把连接Excel改为连到Sql,然后就可以用OpenRowset了，就是1楼的代码

Answer 7

cnExcel.Execute "select * into OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\Test.xls;','select * from [Sheet1$]')  from employee "
关键字OpenRowSet附近有错误

Answer 8

可能得使用bcp实用工具，以及存储过程xp_cmdShell,不过不知道faysky2()的方法对不对，顶一下.....

Answer 9

上面的少写了表名称：cnExcel.Execute "select * into sqlNewTable OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\Test.xls;','select * from [Sheet1$]')  from employee "

Answer 10

另一种方法（odbc方法）：
Private Sub Command1_Click()
    Dim cn As New ADODB.Connection
    cn.CursorLocation = adUseClient
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.xls;Extended Properties='Excel 8.0;HDR=Yes'"    cn.Execute ("insert INTO [odbc;Driver={SQL Server};" & _
        "Server=ljx;Database=test;" & _
        "UID=sa;PWD=].temp " & _
        "select * FROM [Sheet1$]")
    cn.Close
    Set cn = Nothing
End Sub

Answer 11

上面的少写了表名称：cnExcel.Execute "select * into sqlNewTable OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\Test.xls;','select * from [Sheet1$]')  from employee "
------------------------------------
还是写错了，后面没有from employee ，from应该写到OpenRowSet前面来，这样：cnExcel.Execute "Select * Into sqlNewTable From OpenRowSet('microsoft.jet.oledb.4.0','Excel 8.0;HDR=yes;database=c:\Test.xls;','Select * From [Sheet1$]')

Answer 12

EXEC master..xp_cmdshell 'bcp Pubs.dbo.employee out c:\temp1.xls -c -q -S ServerName'
保存在了c盘，验证通过(SQL SERVER 2000)
谢谢faysky2().....,明天揭帖.....