Question

我知道该方法为Application.Visible = False和Application.Screenupdating = False

打开文件时，我希望用户只看用户表单。

事情是：使用上面的这两个命令，Excel出现1秒钟。是否可以在没有Excel闪烁的情况下进行此操作？

提前致谢。

Answer 1

您可以尝试打开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中，如

Private Sub Workbook_Open() 'ActiveWindow.WindowState = xlMinimized 'Application.Visible = False Application.ScreenUpdating = False Application.EnableEvents = False 'Application.EnableAnimations = False UserForm1.Show End Sub

仅在不刷新Excel窗口的情况下打开Userform

1 个答案: