请教一下这个导出excel的语法，到底是哪出了问题？？？？

lzgbc

Me.库存汇总查询子窗体.SetFocus '把焦点移动子窗体上
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v"


这个导出语法以前一直用得好好的，但不知道从什么时候开始，就不行了，前面的执行都挺好，就到excel打开后，就不行了，表格没有粘贴上数据。
这是怎么回事呀。急死人了。请大神帮忙看看。在线等。

roych

好像是要激活excel窗口的吧？另外，你这个应该是wps。

lzgbc

wps和excel都一样，不能正常导出

zpy2

obj.Visible = True
t=0
do while t<30000
doevents
t=t+1
loop
SendKeys "^v"
估计你的系统变慢了，加个延时试试吧。另外，这种外挂的方式不太专业，尽量用copyfromrecordset,不过这句wps可能用不了。

lzgbc

zpy2 发表于 2021-4-17 05:43
obj.Visible = True
t=0
do while t

用excel 也是不行。

lzgbc

还是不行，excel 也是一样，只能打开excel 就是不能把数据粘上去。

zpy2

lzgbc 发表于 2021-4-21 13:47
用excel 也是不行。

obj.Visible = True
obj.activecell.select
rem 这句你查一下，激活单元格，我手机没试
t=0
do while t<30000
doevents
t=t+1
loop
SendKeys "^v"
do while t<30000
doevents
t=t+1
loop
SendKeys "^v"
do while t<30000
doevents
t=t+1
loop
SendKeys "^v"
do while t<30000
doevents
t=t+1
loop

lzgbc

还是不行

zpy2

lzgbc 发表于 2021-4-21 21:33
还是不行

你数据量少些试试，还有就是换台电脑试试。