修剪返回所需的错误424对象

我试图使function，使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 

所以我得到“数字= myString.TrimStart（MyChar）”错误 – 错误424对象所需。 我真的很大noob @ vba，你能帮我吗？ PS我知道我应该定义variablestypes，但是当我这样做的时候，我又得到了一些错误，这些错误使我疯狂。

Answer 1

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