子窗体数据导出EXCEL

wangydm　发表于：2015-07-29 15:02:33 　

我使用论坛上的导出代码,如果超出2000条记录就会失效,EXCEL是空白

'    Me.sfrList.SetFocus
'     DoCmd.RunCommand acCmdSelectAllRecords
'    DoCmd.RunCommand acCmdCopy
'    DoEvents
'    SendKeys "{TAB}", True
'    Set obj = CreateObject("Excel.Application")
'    obj.Workbooks.Add
'    obj.Visible = True
'    SendKeys "^v", True 此句我改为 obj.workbooks.range("a1").paste提示没有此属性

如是我改用平台的EXportTOEXCEL函数,第一次会成功,第二次提示

Top

煮江品茶发表于：2015-07-29 15:25:38

workbooks当然没有range属性
.....
.....
Set obj = CreateObject("Excel.Application")
dim wk as object
set wk=obj.Workbooks.Add
obj.Visible = True
wk.Sheets("sheet1").range("A1").paste

Top

wangydm 发表于：2015-07-30 11:48:54

謝謝, 我使用了obj.workbooks.range("a1").pastespecial就可以了...

Top

wangydm 发表于：2015-07-30 11:53:46

煮江品茶我使用你的代碼依然報錯,通過不了...

Top

杜超发表于：2015-07-31 16:34:22

【access源码示例】导入导出系列——Excel数据高效导入示例[Access软件网]

http://www.accessoft.com/article-show.asp?id=5499

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

子窗体数据导出EXCEL