excel - 打开使用密码保存的Excel文件以进行修改

我想打开一个用密码保存的Excel文件，以便使用VBScript进行修改。我当前的代码VBS代码在下面，可以正常工作，但不断出现boax要求输入密码的弹出窗口。如何使用excel提示输入密码来打开excel电子表格？

Option Explicit

On Error Resume Next

ExcelMacroExample

Sub ExcelMacroExample()

  Dim xlApp
  Dim xlBook

  Set xlApp = CreateObject("Excel.Application")
  Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,,"yep123")
  xlApp.Visible = True
  xlApp.Run "Refresh_data_ss"
  xlApp.Save
  xlApp.Quit

  Set xlBook = Nothing
  Set xlApp = Nothing

End Sub

最佳答案

现在，我看到有一个密码可以修改文件，但不能打开。 Open password is the fifth parameter to Workbooks.Open, and modify is the sixth。因此，您需要改为以下内容（一个逗号）：

 Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,,,"yep123")