怎样用VB操作从ACCESS中复制选定记录字段然后往EXCEL中指定位置粘贴

Question

哪位大侠知道：怎样用VB操作从ACCESS中复制选定记录字段然后往EXCEL中指定位置粘贴
我想做一个程序，从ACESS中双击一条记录后自动粘贴到EXCEL中并使光标下移一行？

Answer 1

换种思路解决：
用datagrid+ado连access数据库，从datagrid中双击一条记录,执行粘贴操作
Private Sub DataGrid1_DblClick()
    Dim i As Long, ss() As String
    ReDim ss(DataGrid1.Columns.Count - 1)
    For i = 0 To DataGrid1.Columns.Count - 1
        ss(i) = DataGrid1.Columns(i).Value
    Next
    MsgBox Join(ss, ",")    '得到当前行数据
    ......
    rs.movenext
End Sub

Answer 2

Dim ExcelObject As Object
Set ExcelObject = GetObject("C:\x.xls")
双击时获得当前记录，再逐一写入EXCEL的Range

Answer 3

要双击datagrid最左边的选择条(带三角的列),就会看到效果