VBS脚本删除只读并添加只读

Question

我是VBS脚本的新手。

我已设法打开我的Excel工作表并编写“新数据”并再次保存。这段代码：

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\g46973\Desktop\test.xlsx")
set xlSht = objExcel.activesheet


objExcel.DisplayAlerts = False
xlSht.Cells(2, 2) = "New Data"

objWorkbook.Save
 objWorkBook.Close SaveChanges=True

 ObjExcel.Quit

问题是我的excel工作簿是只读的（我希望它保持这种方式）。然后我运行我的代码我想从我的Excel工作簿中删除只读。运行上面的代码，然后再次添加只读。

Answer 1

试试这个吧

Set book = myOBJ.WorkBooks.Open(FileName:="mybook.xls", ReadOnly:=True)

Answer 2

objExcel.Workbooks.Open "C:\Users\g46973\Desktop\test.xlsx",‌​,True

这个对我有用。