Question

excel中VBA编程，如何连接SQL数据库中的视图查询表？将表格中搜索出来的数据直接复制到excel中。

Sub Refresh()

Dim rs As ADODB.Recordset
Dim Sql As String
Dim i As Integer
Dim strSQL As String, conn As ADODB.Connection

Sql = "Provider=sqloledb;""server=sec0000229\Techonology;""Database=secop;""Uid=sa;""Pwd=P@ssw0rd;"

strSQL = "select * from View_Rprintdata"
rs.Open strSQL, conn

Sheets("datasource").Select
Range("A6:P4500").Select
Selection.ClearContents
Range("G3").Select
'
' Call ConnectDB(Sql, rs, conn)
If Not rs.BOF Then rs.MoveFirst
i = 6
While Not rs.EOF
Cells(i, 4) = rs!OrderNum
Cells(i, 5) = rs!CompressorNum

Cells(i, 6) = rs!OrderDate

Cells(i, 7) = rs!Customer
Cells(i, 8) = rs!CompType

Cells(i, 9) = rs!SalesNum

Cells(i, 10) = rs!MethodName

Cells(i, 11) = rs!TestCondition

Cells(i, 12) = rs!TestStatus

Cells(i, 15) = rs!PanelName

Cells(i, 16) = rs!Refreigerant

rs.MoveNext
i = i + 1
Wend
rs.Close
以上代码测试提示对象边和和块变量没有设置。

Answer 1

第一、需要引用 Microsoft ActiveX Data Objects 2.0或以上版本的控件
第二、你的写法好像有问题
1、赋值我一般会用Cells(i, 9) = rs("SalesNum")
2、或者每个单元格的赋值不用，直接用Range("G3").CopyFromRecordset rs 这样你的代码从Range("G3").Select到Wend这一部分都可以不要了。

Answer 2

首先你需要引用ADODB

追问

如何引用，请详细介绍下，谢谢！

追答

在代码第一句写这个
Set rs = CreateObject("ADODB.recordset")
Set conn = CreateObject("ADODB.connection")