如何解决使用vbscript在Excel用户窗体中输入数据并继续
预先感谢您考虑我的帖子。 我有一个Excel文件,其中包含一个用户窗体,该窗体具有每次打开Excel时都会出现的用户名和密码字段。此外,某些工作表是受保护的。 我是vbscripting的新手,我想知道如何将其用于:
- 在后台打开工作簿
- 在excel用户表单中输入用户名和密码
- 点击用户表单中的“提交”按钮
- 运行在Module1中找到的“刷新全部”宏
到目前为止,我已经能够在背景图中打开工作簿并在没有用户表单的情况下对其进行测试,但是由于无法输入用户名和密码,因此无法继续进行操作。
Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = False
oExcel.DisplayAlerts = False
oExcel.AskToUpdateLinks = False
oExcel.AlertBeforeOverwriting = False
Set oWorkbook = oExcel.Workbooks.Open("filepath\file.xlsx")
oWorkbook.RefreshAll
oWorkbook.Save
Msgbox "Excel file has been refreshed",VBOKOnly
oExcel.Quit
Set oWorkbook = Nothing
Set oExcel = Nothing
解决方法
首先: 您的文件扩展名为.xlsm
,而不是.xlsx
,请先检查此内容!
第二个: 您应该在vbscript中添加此说明:oWorkbook.Unprotect 1234
以取消保护工作簿(我发现的默认密码是{{1} }在您的Excel文件中)
第三条: 我添加了1234
指令以在发生错误时捕获错误
On Error Resume Next
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。