Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
在顶部显示消息框时,如何让用户在excel工作表上工作?_Excel_Vba - Fatal编程技术网

在顶部显示消息框时,如何让用户在excel工作表上工作?

在顶部显示消息框时,如何让用户在excel工作表上工作?,excel,vba,Excel,Vba,我需要在宏的某个点显示上面的消息框。但我需要用户能够在excel工作表上工作,同时将上述消息框放在顶部。(即:从上述“SAP数据”表中复制数据并粘贴到SAP中)您建议我如何做 PS:任何想知道为什么的人,我没有RFC授权,所以这就是我要做的 谢谢 你不能那样做 vbSystemModal—系统模态;在用户响应消息框之前,所有应用程序都将被挂起 你不能那样做 vbSystemModal—系统模态;在用户响应消息框之前,所有应用程序都将被挂起 太糟糕了。我还可以使用其他风格来实现这一点吗?如果您使用

我需要在宏的某个点显示上面的消息框。但我需要用户能够在excel工作表上工作,同时将上述消息框放在顶部。(即:从上述“SAP数据”表中复制数据并粘贴到SAP中)您建议我如何做

PS:任何想知道为什么的人,我没有RFC授权,所以这就是我要做的

谢谢

你不能那样做

vbSystemModal—系统模态;在用户响应消息框之前,所有应用程序都将被挂起

你不能那样做

vbSystemModal—系统模态;在用户响应消息框之前,所有应用程序都将被挂起


太糟糕了。我还可以使用其他风格来实现这一点吗?如果您使用的是C/C++/C#,我建议您使用一个独立的对话框,它强制自己成为顶部窗口,同时允许用户与第二层窗口交互。您可以使用VBA中的用户窗体进行尝试。@NickrazleFlamm您可以获得类似于msgbox的内容,使用userform而不是带有
vbModeless
的messagebox,应该是这样的:
UserForm1.Show False
user10735198和@Vasily谢谢!我将尝试一个表单并更新成功情况。:)@NickrazleFlamm还可以用于SAP交互的自动化,您可以使用
SAPGUI脚本编写
,这里的示例:/Too bad。我还可以使用其他风格来实现这一点吗?如果您使用的是C/C++/C#,我建议您使用一个独立的对话框,它强制自己成为顶部窗口,同时允许用户与第二层窗口交互。您可以使用VBA中的用户窗体进行尝试。@NickrazleFlamm您可以获得类似于msgbox的内容,使用userform而不是带有
vbModeless
的messagebox,应该是这样的:
UserForm1.Show False
user10735198和@Vasily谢谢!我将尝试一个表单并更新成功情况。:)@NickrazleFlamm还可用于SAP交互的自动化,您可以使用
SAPGUI脚本编写
,以下是示例
Dim strMsg As String

strMsg = "Preperation completed. SAP Logon will open in 5 seconds! Please follow the instructions below to retrieve the ART file from SAP" & vbNewLine & vbNewLine
strMsg = strMsg & "1. Log into SAP using your Username and ID" & vbNewLine & vbNewLine
strMsg = strMsg & "2. Launch the 'ZMM_ART' Report" & vbNewLine & vbNewLine
strMsg = strMsg & "3. Insert the data from the 'DATA FOR SAP' Sheet to the relevent fields" & vbNewLine & vbNewLine
strMsg = strMsg & "4. Insert '0001' as the Location ID" & vbNewLine & vbNewLine
strMsg = strMsg & "5. Run the Report" & vbNewLine & vbNewLine
strMsg = strMsg & "6. Save the report as 'ART.xls' to the 'REQUIRED FILES' Folder in your Desktop" & vbNewLine & vbNewLine
strMsg = strMsg & "7. Click OK and close this message box" & vbNewLine & vbNewLine

MsgBox strMsg, vbInformation + vbSystemModal, "Instructions"