对象‘CopyFromRecordset’的方法‘Range’失败

Question

我在VB里导出EXCEL时，出现如下错误：对象‘CopyFromRecordset’的方法‘Range’失败我的代码如下：    Dim myexcel As New Excel.Application
    Dim mybook As New Excel.Workbook
    Dim mysheet As New Excel.Worksheet
    Set mybook = myexcel.Workbooks.Add '添加一个新的BOOK
    Set mysheet = mybook.Worksheets.Add '添加一个新的SHEET
    myexcel.Visible = True    rst.Open strsql, S_cn, adOpenKeyset, adLockReadOnly
    
    mysheet.Cells.CopyFromRecordset rst    mybook.SaveAs cd.FileName '保存文件    rst.Close
    Set rst = Nothing
请那位仁兄帮我看看 ？

Answer 1

rst中是否有OLE字段？ 
－－什么意思？我这段程序以前都能执行，现在不行了，着急啊！！！

Answer 2

就是说rst中是否有EXCEL单元格无法接纳的东西，如:OLE字段,二进制字段，太长的字符串（>1000个字符)等等。

Answer 3

mysheet.Range("A1").CopyFromRecordset rst

Answer 4

EXCEL 97 以下仅支持 DAO。
EXCEL 2000 以上才支持 ADO。