Question

我正在试图弄清楚如何在被弹出询问我是否想要转换的中断后让VBA代码继续。我想我可以弄清楚如何处理通过Windows API出现的第一个和后续的弹出窗口。但是，当弹出窗口显示时，我无法弄清楚如何将注意力集中在我的代码上，因此我无法运行该行＆＃34; MsgBox FindWindow（vbNullString，＆＃34;转换宏：＆＃34 ;＆amp; m.Name）。＆＃34;是否有代码继续运行？我知道我必须添加一个循环来检查弹出的标题＆＃34;转换宏：＆＃34; ＆安培; m.Name。下面是我到目前为止的代码。

Sub ConvertMacrosToVBA()
Dim strDB As String
Dim appAccess As Access.Application
Dim m As Object

strDB = "C:\Users\Me\Desktop\testme.accdb"

Set appAccess = New Access.Application
appAccess.OpenCurrentDatabase strDB


For Each m In appAccess.CurrentProject.AllMacros
    appAccess.DoCmd.SelectObject acMacro, m.Name, True
    appAccess.DoCmd.RunCommand acCmdConvertMacrosToVisualBasic
    MsgBox FindWindow(vbNullString, "Convert macro: " & m.Name)
Next
Set appAccess = Nothing

End Sub

代码中断将宏转换为VBA

0 个答案: