Question

好吧，我认为解释我尝试做什么会有点困难，但是调试器正在干扰＆＃34; End With＆＃34;而且无法继续下去。我无法弄清楚出了什么问题。任何帮助都非常感谢。

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Range(Cells(i, 2)), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB00" & Range(Cells(i, 4)).Value & ".xlsm", _
                        ScreenTip:="", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

Answer 1

我设法解决了这个问题。运行时错误的主要原因是此命令：

Range(Cells(i, 2)).Value

和所有其他

Range(Cells(#, #))

以下是重新定义的代码正常工作：

Private Sub AddHyperlinks()
    Dim i As Integer
        For i = 3 To 5
                If Cells(i, 1).Value = vbNullString Then
                    With Worksheets("Sheet2")
                        .Hyperlinks.Add Anchor:=.Cells(i, 1), _
                        Address:="C:\Dropbox\DASC\DASC_v1.00\MIBD\MIB\MIB00" & Cells(i, 4).Value & ".xlsm", _
                        ScreenTip:="Info", _
                        TextToDisplay:="Info"
                    End With
                End If
        Next i
End Sub

我想这个问题已经在StackOverflow上的其他地方得到了解答，但我甚至无法找出问题所在。 +1我的VBA技能和一个方便的事情要记住新手，因为我:)谢谢所有

运行时错误1004 - 停止在＆＃34;结束于＆＃34;通过调试器

1 个答案: