VBS打开Excel文件时禁用了功能区。

问题描述 投票:0回答:1

我试图使用VBS文件来打开一个Excel文件。我喜欢这个想法,因为它能让工作簿在启动时保持最小化。我在Workbook Open事件中试过的代码都不能成功做到这一点。启动需要7-10秒(部分原因是大量的代码,更多的是因为我的电脑很老)。

工作簿的主要界面是一个用户表单,其目的是打开时用户表单可见,工作簿最小化,但在需要时可点击用户表单上的按钮。其目的是在打开用户表单时,用户表单是可见的,而工作簿则最小化,但如果需要的话,只需点击用户表单上的一个按钮即可使用。功能区也是隐藏的,以提供更多的空间,但如果需要的话,可以通过点击另一个按钮来使用。正如我所说,无论我使用什么代码,工作簿都不会被隐藏,直到启动完成。

我在一个老帖子上发现了使用VBS的想法,而且似乎很有效。但是当工作簿显示时,功能区是禁用的。即使手动插入一行来显示功能区也没有任何作用。如果我直接从文件的文件夹中打开工作簿,当需要时,功能区是可用的。所以我认为问题不在.xlsm的内在。

在这里补充一下,我对VBS代码一无所知--只是在这里找到了它并试了一下。我使用的代码是这样的。

Option Explicit

Dim xlApp, xlBook
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\Nick\Desktop\2020\2020", 0, False)

这段代码中是否有什么东西禁用了色带 或者我需要在代码中添加一些内容 能够吗?我不知道0是什么意思。我试着用1代替,然后用2代替,但似乎没有什么变化。

excel vbscript
1个回答
-1
投票

谢谢你,我在其他地方找到了答案。我在其他地方找到了答案。我需要添加以下一行xlApp.Visible = True

© www.soinside.com 2019 - 2024. All rights reserved.