打开用密码保存的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

现在我看到,有一个密码可以修改你的文件,但不能用于打开.打开密码是Workbooks.Open的第五个参数,而修改是第六个.所以你需要有以下代码(另外一个逗号):

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