打开用修改密码保存的Excel文件

Question

我想打开一个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 

Answer 1

现在我明白了，在你的文件上有一个修改的密码，但是没有打开的密码。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") 

Answer 2

您可以从InputBox获取密码

myPass = InputBox("Write the password: ")
Set xlBook = xlApp.Workbooks.Open("C:\Users\jasons\Documents\TestFile.xlsm",,,, myPass)