excel - 如何在 VBA 2003 中使用 InStr 函数？

Question

下面的代码在 InStr 调用中返回错误 5：

Option Explicit

Sub Test()
     Dim wb As Workbook
     Dim wbs As Workbooks
     Dim str As String
     Dim LPosition As Integer

     Set wbs = Application.Workbooks
     For Each wb In wbs
        str = wb.Name
        LPosition = InStr(0, str, "_", vbTextCompare)
        MsgBox LPosition
     Next wb
End Sub  

有人可以解释为什么吗？

Answer 1

函数的起始索引InStr是基于 1 的 => 0 是无效值。

请参阅http://msdn.microsoft.com/en-us/library/8460tsh1%28v=vs.80%29.aspx的例外部分