我用想用EXCEL把SQL Server归档数据库中的数据导出来.采用OLE DB,首先在EXCEL的VBA编辑器中勾选了Microsoft ActiveX Data Objects 2.0,然后建立了一个按钮,其中代码如下
Private Sub CommandButton1_Click()
Dim TempDate As Date
TempDate = Now()
Dim ExlApp As Object
Dim ExlWok As Object
Dim ExlSht As Object
Set ExlApp = CreateObject("Excel.Application")
Set ExlWok = ExlApp.Workbooks.Add
Set ExlSht = ExlWok.Worksheets(1)
Dim TempStrCon As String
TempStrCon = "Provider=SQLOLEDB.1; Integrated Security=SSPI; Persist Security Info=False; Initial Catalog=CC_tankmoni_07_06_12_00_07_20R; Data Source=local"
Dim QurryTab As Object
Set QurryTab = ExlSht.QueryTables.Add("OLEDB;" & TempStrCon & ",", ExlSht.Range("A1"), "Select * From TagCompressed.dbo")
QurryTab.RefreshStyle = xlInsertEntireRows
QurryTab.Refresh False
ExlWok.SaveAs "C:\Sample.xls"
ExlApp.Quit
Set ExlSht = Nothing
Set ExlWok = Nothing
Set ExlApp = Nothing

End Sub

运行后总是说找不到服务器,或者连接不上.请高手指点一下.看哪里有错误