即使在 Workbooks.Open 中使用 \'ReadOnly:=False\' 后也无法以写入模式打开 Excel 文件答案

【问题标题】：Unable to open Excel file in Write mode even after using 'ReadOnly:=False' in the Workbooks.Open即使在 Workbooks.Open 中使用 \'ReadOnly:=False\' 后也无法以写入模式打开 Excel 文件
【发布时间】：2023-01-04 22:57:23
【问题描述】：

尝试使用 Workbooks.Open(filename, ReadOnly:=False) 方法在写入模式下使用 VB 脚本打开 excel 文件时，收到错误消息，指出该文件以只读模式打开。获取错误——运行时错误“1004”：我们无法保存“testqry1.xlsm”，因为该文件是只读的 PFB 我用的vb脚本...

Dim fp, fn, newFileName
fn = ThisWorkbook.FullName
fp = ThisWorkbook.Path

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objExcel = CreateObject("Excel.Application")
Set objWrk = objExcel.Workbooks.Open(fn, ReadOnly:=False)


MsgBox ("rwcnt " & objWrk.Sheets("Sheet2").UsedRange.Rows.Count)
Set ws = objExcel.Worksheets(2)
RowCount = ws.UsedRange.Rows.Count
objWrk.Save

【问题讨论】：

Afaik ReadOnly 参数默认为 False，为什么您要尝试在单独版本的 Excel 中再次打开您正在使用的文件？除非您在文件的只读版本中使用代码，否则您将无法获得写入版本。

标签： excel vbscript

【解决方案1】：

你打开的是你正在工作的同一个工作簿，我的设备没有打开工作簿并使用 ThisWorkbook.Save 来保存，而不是 objWrk.Save。

【讨论】：