使用 vbscript 在 Excel 用户窗体中输入数据并继续

Question

提前感谢您考虑我的帖子。 我有一个 Excel 文件，其中包含一个用户表单，其中包含每次打开 Excel 时都会出现的用户名和密码字段。此外，一些工作表受到保护。 作为 vbscripting 的新手，我想知道如何使用它：

1. 在后台打开工作簿
2. 在excel用户表单中输入用户名和密码
3. 点击用户表单中的提交按钮
4. 运行在 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

Answer 1

首先：您的文件具有.xlsm 而不是.xlsx 的扩展名，请在继续之前检查此内容！

第二：您应该在 vbscript 中添加此指令：oWorkbook.Unprotect 1234 以取消对 WorkBook 的保护（我在 Excel 中找到的默认密码是 1234文件）

第三：我添加了On Error Resume Next 指令以在发生错误时捕获错误

---

Option Explicit
Dim Title,oExcel,oWorkbook
Title = "Use vbscript to input data in Excel userform and proceed"
Set oExcel = CreateObject("Excel.Application") 
oExcel.Visible = False
oExcel.DisplayAlerts = False
oExcel.AskToUpdateLinks = False
oExcel.AlertBeforeOverwriting = False
On Error Resume Next
Set oWorkbook = oExcel.Workbooks.Open("C:\Stack\Data.xlsm")
oWorkbook.Unprotect 1234 ' The password to unprotect the WorkBook is 1234
oWorkbook.RefreshAll
oWorkbook.Save
If Err Then
    MsgBox "Error Source : " & Err.Source & vbCrlf &_
    "Error Description : "& Err.Description,vbCritical,Title
Else
    Msgbox "Excel file has been refreshed",vbInformation,Title
End If
oExcel.Quit
Set oWorkbook = Nothing
Set oExcel = Nothing