我知道这个方法是Application.Visible = False和Application.Screenupdating = False打开文件时，我希望用户仅看到用户窗体。问题是：使用上面的这两个命令，Excel会显示1秒钟。2有没有可能不像这样 Flink 呢？先谢了。
Application.Visible = False
Application.Screenupdating = False
2hh7jdfx1#
您可以尝试不使用excel本身打开excel文件以避免飞溅。尝试使用脚本打开excel文件，然后窗体将打开而不飞溅：'将其保存在文本文件中，将扩展名更改为 .vbs
Set objExcel = CreateObject("Excel.Application") objExcel.Visible = false Set objWorkbook = objExcel.Workbooks.Open("C:\Users\USER\Desktop\yourfile.xlsm")
'这将以不可见的方式打开excel，因此要关闭excel，您必须在userform* 内插入一些按钮或类似ThisWorkbook.Close savechanges = False或Application.Quit的内容'当然，假设窗体位于项目中的workbook_open中，如
ThisWorkbook.Close savechanges = False
Application.Quit
Private Sub Workbook_Open() 'ActiveWindow.WindowState = xlMinimized 'Application.Visible = False Application.ScreenUpdating = False Application.EnableEvents = False 'Application.EnableAnimations = False UserForm1.Show End Sub
1条答案
按热度按时间2hh7jdfx1#
您可以尝试不使用excel本身打开excel文件以避免飞溅。尝试使用脚本打开excel文件，然后窗体将打开而不飞溅：
'将其保存在文本文件中，将扩展名更改为 .vbs
'这将以不可见的方式打开excel，因此要关闭excel，您必须在userform* 内插入一些按钮或类似
ThisWorkbook.Close savechanges = False或Application.Quit的内容'当然，假设窗体位于项目中的workbook_open中，如