加载对话框，同时打开Excel
我想调出一个对话框，告诉用户等待Excel文件和程序加载。
我怎样才能在我的VBS中popup一个对话框？
我用过的VBScript：
Option Explicit Dim objExcel, objWorkBook //start dialog here? Set objExcel = CreateObject("excel.application") objExcel.Visible = false Set objWorkBook = objExcel.Workbooks.Open("C:\Tester.xlsm") objExcel.Run "Tester.xlsm!modul1.subTest" objWorkBook.Close True objExcel.Quit Set objWorkBook = Nothing Set objExcel = Nothing 从脚本专家博客借用一些代码，您可以使用HTA作为您的启动/加载屏幕，并在打开工作簿后将其移出屏幕：
<html> <head> <title>Splash Screen</title> <HTA:APPLICATION APPLICATIONNAME="Splash Screen" SCROLL="no" SINGLEINSTANCE="yes" WINDOWSTATE="normal" BORDER="none" INNERBORDER="no" SHOWINTASKBAR="no" > </head> <script language="VBScript"> Dim xl, wb Sub Window_OnLoad Set xl = CreateObject("Excel.Application") Set wb = xl.Workbooks.Open("C:\Tester.xlsm") screenWidth = document.parentWindow.screen.availWidth screenHeight = document.parentWindow.screen.availHeight window.moveTo -(screenWidth + 50), -(screenHeight + 50) xl.Run "Tester.xlsm!modul1.subTest" wb.Close True xl.Quit self.close End Sub </script> <body> <p>Loading Excel. Please wait.</p> </body> </html>