VBA报错：'Range' of object '_Global' Failed 问题求助

这个问题的核心是对象引用混乱加上未明确限定的Range调用，结合你奇数次正常、偶数次报错的现象，大概率是Excel实例没有被正确释放，再加上代码里的几个潜在bug共同导致的。我帮你拆解几个关键排查方向和修复步骤：

1. 工作表名称引用错误（直接触发报错的核心原因） #

你新建的空白工作簿，默认工作表名称是Sheet1，但代码里你直接引用了xWB.Worksheets("ETI Hootsuite FaceBook Feed")——除非你有自定义模板，否则新建工作簿不可能自带这个名称的工作表。

第一次运行时你可能手动修改过工作表名称，所以奇数次正常；但第二次新建工作簿时又回到默认的Sheet1，这时候引用不存在的工作表，直接导致后续的Range调用抛出“对象引用失败”的错误。

修复方法：
要么改用索引引用（CSV只有一个工作表，索引1永远有效），要么在新建工作簿后先重命名工作表：

Set xWB = x1.Workbooks.Add
' 先重命名工作表，再保存为CSV
xWB.Worksheets(1).Name = "ETI Hootsuite FaceBook Feed"
x1.Visible = True
xWB.SaveAs "Z:\ETI\01 ETI Engine\automated\ETI Hootsuite FaceBook Feed.csv", FileFormat:=xlCSV

2. 重复创建Excel实例导致的对象泄漏 #

你代码开头已经声明并创建了Excel实例：Dim x1 As New Excel.Application，但后面又重复执行了Set x1 = New Excel.Application，这会导致第一个实例没有被释放，一直留在后台进程里。

第二次运行时，新的Excel实例和后台残留的旧实例产生冲突，对象模型被干扰，就会出现奇数次正常、偶数次报错的诡异现象。

修复方法：
删掉重复的实例创建代码，只保留一次初始化：

' 开头已经声明并创建了实例，后面不需要再Set
Dim x1 As New Excel.Application
Dim xWB As Excel.Workbook

' 删除旧文件逻辑...

Excel.Application.DisplayAlerts = False
' 删掉这行重复的代码：Set x1 = New Excel.Application
Set xWB = x1.Workbooks.Add
' 后续代码...

另外，建议加上错误处理逻辑，强制清理Excel进程，避免后台残留：

On Error GoTo Cleanup

' 你的核心业务代码...

Cleanup:
' 无论是否报错，都强制释放对象
If Not xWB Is Nothing Then
    xWB.Save
    xWB.Close
    Set xWB = Nothing
End If
If Not x1 Is Nothing Then
    x1.Quit
    Set x1 = Nothing
End If
Me.chkFacebookLinkedInPostsSent.Value = True

' 报错时提示信息
If Err.Number <> 0 Then
    MsgBox "执行错误：" & Err.Description, vbCritical
End If

3. 未限定的Range调用引发全局对象冲突 #

你后面执行去重操作时，用了未限定的Range("A1", "C100").RemoveDuplicates——这种写法会默认调用当前ActiveSheet，但如果后台有残留的Excel进程，这个Range可能会指向错误的工作表（甚至不存在的工作表），进而干扰前面的对象引用逻辑。

修复方法：
始终用明确的对象限定Range，把去重代码放到之前的With块里，或者指定具体的工作表：

With xWB.Worksheets("ETI Hootsuite FaceBook Feed")
    ' 赋值逻辑...
    .Range("A1", "C100").RemoveDuplicates Columns:=Array(2), Header:=xlNo
    .Range("A1", "C100").RemoveDuplicates Columns:=Array(1), Header:=xlNo
End With

4. 额外注意：CSV文件的特性 #

CSV文件只能保存一个工作表，而且保存后重新打开时，工作表名称会变回Sheet1（即使你之前重命名过）。不过你是在同一个工作簿实例里完成赋值和保存的，所以这个问题当前流程里影响不大，但如果后续有重新打开CSV的逻辑，需要注意工作表名称的变化。

按照上面的步骤逐一修复后，应该就能解决奇偶次运行不一致的问题了。

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