VBA Windows Activate失败及保护视图Excel文件报下标越界问题咨询

你碰到的核心问题其实很明确：从ASPX生成的Excel 97文件处于保护视图状态时，它并不会被纳入Excel的Workbooks集合中，所以你直接通过文件名去引用它，自然会触发错误9（下标越界）。下面给你一套针对性的操作方案：

1. 先定位并激活保护视图窗口 #

首先得把保护视图里的文件转为可编辑状态，才能对它进行后续操作。如果当前只有一个保护视图窗口，可以直接这样写：

Dim pvWindow As ProtectedViewWindow
Set pvWindow = Application.ActiveProtectedViewWindow
' 将保护视图窗口转为可编辑工作簿
Dim targetWB As Workbook
Set targetWB = pvWindow.Edit

如果同时有多个保护视图窗口，可以通过窗口标题筛选目标文件：

Dim pvWindow As ProtectedViewWindow
Dim targetWB As Workbook

For Each pvWindow In Application.ProtectedViewWindows
    ' 把引号内的内容替换成你的目标文件标题（比如"xxx.xls [Protected View]"）
    If InStr(pvWindow.Caption, "你的目标文件名.xls") > 0 Then
        Set targetWB = pvWindow.Edit
        Exit For
    End If
Next pvWindow

2. 对激活后的工作簿执行格式设置 #

拿到targetWB这个工作簿对象后，就可以正常进行格式调整和保存操作了，举个简单示例：

' 示例：设置Sheet1中A列的格式为文本
With targetWB.Sheets("Sheet1").Columns("A")
    .NumberFormat = "@"
End With

' 保存为Excel 97格式（适配你的需求）
targetWB.SaveAs "C:\指定路径\格式化后的文件.xls", FileFormat:=xlExcel8

3. 关键注意事项 #

• 只有当保护视图窗口通过Edit方法转为可编辑状态后，这个工作簿才会被加入Workbooks集合，这时候你才能通过Workbooks("文件名")引用它，但直接用Edit返回的Workbook对象会更可靠，避免文件名重复或标题变化的问题。
• 因为你需要保存为Excel 97格式，一定要指定FileFormat:=xlExcel8，不然会默认保存为Excel 2013的格式。

你之前提到执行Application.ActiveProtectedViewWindow.Edit后再运行代码，这时候这个工作簿应该已经出现在Workbooks集合里了，就可以正常操作啦。

内容的提问来源于stack exchange，提问作者Jason Stallard