Question

我正在尝试创建从2个文本字段创建超链接的函数。这是代码：

 Option Explicit
Sub AddLink()

    Dim MyPath
    Dim MyChar
    Dim i As Integer
    Dim myString
    Dim numbers
    Dim siteID
    Dim MyWB
    Dim siteAddress
    MyPath = "SomeFilePath\"
    MyChar = "\"

    For i = 2 To 4000 Step 1
        myString = Range("B" & i).Value
        numbers = myString.TrimStart(MyChar)
        siteID = Range("F" & i).Value

        MyWB = "WO_" & numbers & "_" & siteID & ".xls"
        siteAddress = MyPath & MyWB
        ActiveSheet.Hyperlinks.Add Range("B" & i), siteAddress

    Next i

End Sub

所以我在“numbers = myString.TrimStart（MyChar）”上得到错误 - 需要错误424对象。我是个很棒的noob @ vba，你能帮助我吗？ PS我知道我应该定义变量类型，但是当我这样做时，我再次得到一些错误让我疯狂。

Answer 1

看起来像vb.net而不是vba。修剪删除空格。所以vba是x = trim(str)。也许使用instr获取第一个反斜杠的位置，然后使用Left函数。

修剪返回错误424对象所需

1 个答案: