在Trynew版主帮助下完成的动态查询打印及导出实例

fengxueysh · 发表于 2009-4-30 21:41:28

谢谢学习

coolabc · 发表于 2009-5-8 13:27:26

谢谢分享！
转接后下面代码出错：
Private Sub Command11_Click()
On Error GoTo Err_Command11_Click
Me.frm报废单查询1.SetFocus '把焦点移动子窗体上，要操作的子窗体的名称
      DoCmd.GoToRecord , , acFirst

DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim obj As Object
Set obj = CreateObject("excel.application")
obj.Workbooks.Add
obj.Visible = True
SendKeys "^v"
On Error Resume Next
oApp.UserControl = True
Exit_Command11_Click:
Exit Sub

Err_Command11_Click:
MsgBox Err.Description
Resume Exit_Command11_Click

End Sub

后将oApp改为obj成功！不知是否有问题！

十三 · 发表于 2015-5-4 22:49:53

学习学习

ejihua · 发表于 2015-10-22 22:44:19

学习学习!

p51218 · 发表于 2016-11-14 22:22:08

www.office-cn.net

xfxsyx · 发表于 2016-11-15 17:00:28

5555555555555555555555

lively · 发表于 2017-4-9 22:00:29

学习参考

lively · 发表于 2017-4-9 22:00:55

谢谢

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 在Trynew版主帮助下完成的动态查询打印及导出实例

群介绍
主题无相 (随机显示版	同地区群块其他地区)