弱弱的问一句， 获取rs.Open的值之后，该怎么赋值到excel的单元格里？

三千年不倒

VBA代码如下
Private Sub butOK_Click()
Dim cnn As New ADODB.Connection 'ADODB连接
    Dim rs As New ADODB.Recordset 'ADODB数据表
    Dim fld As ADODB.Field
    Dim SQL As String, mydata As String, mytable As String
    Dim MM As Integer
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Users\Administrator\Desktop\iNDEX pROBLEM\db1.mdb;"
    SQL = "select sum(CAP) from ChinaIndex where 名称 = 'Me.txtidx.Value' and 日期 > Me.DTPstart.Value and 日期 < Me.DTPend.Value" '查询语句
    rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly
Cells(2, 5).CopyFromRecordset rs
rs.Close
cnn.Close


End Sub这样获取Access里面的值可以吗？如果可以 获取之后怎么样可以赋值给某一个单元格？

[ 本帖最后由 三千年不倒 于 2010-10-30 22:47 编辑 ]

taller

没有示例文件，无法调试。

Me.txtidx和Me.DTPstart是Excel中的控件吗？如果是的话，需要用字符连接符合“&”，创建SQL语句

建议：先在Access中确认查询的SQL没有问题了，然后再转换到Excel代码

三千年不倒

原帖由 taller 于 2010-10-31 00:12 发表
没有示例文件，无法调试。

Me.txtidx和Me.DTPstart是Excel中的控件吗？如果是的话，需要用字符连接符合“&”，创建SQL语句

建议：先在Access中确认查询的SQL没有问题了，然后再转换到Excel代码

我不太懂Access也不知道怎么试…而且数据库文件比较大也不知道怎么上传……

styhs

SQL = "select sum(CAP) from ChinaIndex where 名称 = '" & Me.txtidx.Value & "' and 日期 Between #" & Me.DTPstart.Value  & "# and #" & Me.DTPend.Value & "#"
    rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly
Sheet1.cells(1,1) = rs.Fields(0)