exporttoexcel 对话框点击取消后，如何跳出程序

莫名　发表于：2016-08-24 16:56:12 　

使用平台的exporttoexcel函数导出记录集到excel文件，为了达到office程序间的交互配合，导出excel表格后，希望自动启动word来引用excel表格的内容

我在导出的代码后面加了几行代码来启动word，正常运行情况下没有问题

但如果误操作下，在application.filedialog界面点击取消，后续的word还是会启动

想请教下老师，如何写几行代码来判断，application.filedialog界面点击取消，然后跳出程序即可

Public Sub btnExport_Click()
'On Error Resume Next
If Me.sfrList.Form.CurrentRecord < 1 Then
Exit Sub
End If
Me.sfrList.SetFocus
ExportToExcel Me.sfrList.Form.Caption

此处如何写判断语句？

'打开word文件，供邮件合并
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Documents.Open (CurrentProject.Path & "路径及文件名"), , True '以只读方式打开批记录模板
WordApp.Visible = True
WordApp.Run "wordmailmerge"
Set WordApp = Nothing

End Sub

Top

杜超发表于：2016-08-24 17:18:29

加if exit sub

Top

莫名发表于：2016-08-25 11:20:02

请老师们多多关注

杜老师的回答太笼统了， if exit sub很好理解，关键是 if 后面跟什么判断语句

谢谢

Top

zhaoyoulong 发表于：2016-08-25 15:33:54

public WordBreakBool as Boolean

取消按键中加入:

WordBreakBool =false

然后:

。。。。。。

ExportToExcel Me.sfrList.Form.Caption

WordBreakBool =true
if WordBreakBool =false then exit sub

'打开word文件，供邮件合并
Dim WordApp As Word.Application

Top

莫名发表于：2016-09-11 14:13:41

用一个笨办法来解决算了，在ExportToExcel Me.sfrList.Form.Caption后加上一句确认语句来做判断

dim a as String
    a = MsgBox("是否要打开*******文件？", vbYesNo, "提示")
    If a = vbNo Then
    Exit Sub
    Else

后续要运行的程序

end if
end sub

Top

莫名发表于：2016-09-11 14:14:53

感谢杜老师和zhaoyoulong的热心答复

Top

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

Access交流中心

[5分]exporttoexcel 对话框点击取消后，如何跳出程序

Access交流中心

[5分]exporttoexcel 对话框 点击取消后，如何跳出程序

[5分]exporttoexcel 对话框点击取消后，如何跳出程序