Question

此运行时错误91对我没有意义。一般来说问题是我没有定义什么，但这次我已经注意到了一切。

错误在这一行：

Set f = ThisApplication.ActiveDocument.File

此应用程序是从头开始定义的。文件在该行之前定义。

这是我的代码：

Option Explicit


Public Sub ReplaceReference()

Dim invApp As Inventor.Application
Set invApp = ThisApplication

Dim NameStr As String
Dim NewNamePath As String

Dim NameStr2 As String
Dim OldNamePath As String


NameStr = Renamer.New_Name.Text               'Concatenates the full new file path
NewNamePath = Renamer.Path_Text.Text & "\" + NameStr & "-" & Right("00" & i, 3) & ".ipt"
    If Err.Number <> 0 Then MsgBox "Error Found After NewNamePath:" & Err.Description
Err.Clear

NameStr2 = Renamer.Old_Name_Display.Text      'Concatenates the old file NAME
OldNamePath = NameStr2 & "-" & Right("00" & i, 3) & ".ipt"
    If Err.Number <> 0 Then MsgBox "Error Found After OldNamePath:" & Err.Description
Err.Clear

Do While i < 99

Dim f As File
Set f = ThisApplication.ActiveDocument.File
Dim fd As FileDescriptor
    For Each fd In f.ReferencedFileDescriptors
        If fd.FullFileName = OldNamePath Then
            fd.ReplaceReference (NewNamePath)
        End If
    Next


        Loop

End Sub

我知道运行时错误91很常见而且看起来很傻，但我只是不知道它有什么问题。

Answer 1

你可以这样查一下吗？那么你能确定哪个对象是Nothing ......也许你的案例中是ActiveDocument吗？

If ThisApplication Is Nothing Then
    Err.Raise 91, , "ThisApplication is Nothing!"
Else
    If ThisApplication.ActiveDocument Is Nothing Then
        Err.Raise 91, , "ActiveDocument is Nothing!"
    Else
        If ThisApplication.ActiveDocument.File Is Nothing Then
            Err.Raise 91, , "File is Nothing!"
        End If
    End If
End If

Dim f As File
Set f = ThisApplication.ActiveDocument.File

或者就像这样（减少ifs的嵌套）：

If ThisApplication Is Nothing Then
    Err.Raise 91, , "ThisApplication is Nothing!"
End If

If ThisApplication.ActiveDocument Is Nothing Then
    Err.Raise 91, , "ActiveDocument is Nothing!"
End If

If ThisApplication.ActiveDocument.File Is Nothing Then
    Err.Raise 91, , "File is Nothing!"
End If

运行时错误91没有意义

1 个答案: