VBA InStr始终返回0

Question

我正在使用Excel 2010并尝试创建一个函数,它将替换工作表中的部分链接,具体取决于用户输入.更具体我试图替换链接以匹配用户Dropbox位置.

这是我到目前为止的代码

Private Sub CommandButton1_Click()

Dim DropboxFolder As String
Dim SearchFor As String
Dim SearchPos As Integer

SearchFor = "Dropbox"

With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
On Error Resume Next
DropboxFolder = .SelectedItems(1)
For Each theHyperLink In ActiveSheet.Hyperlinks
  SearchPos = InStr(0, SearchFor, theHyperLink.Address, vbBinaryCompare)
  theHyperLink.Address = DropboxFolder
  Next
Err.Clear
On Error GoTo 0
End With

End Sub

我已经尝试了调试代码,并添加了一个断点

SearchPos = InStr(0, SearchFor, theHyperLink.Address, vbBinaryCompare) 

SearchFor "Dropbox" 和TheHyperLink.Address是"..\Dropbox\Salgdanmarks Salgsakademi\1\Ny Microsoft Word Document.docx"

但SearchPos设置为 0

我究竟做错了什么？

Answer 1

我意识到评论是暂时的,所以我把它作为答案.这将有助于任何未来的访客.

语法Instr是

InStr([start, ]string1, string2[, compare])

InStr函数语法具有以下参数:

1. 开始(可选).用于设置每个搜索的起始位置的数字表达式.如果省略,则从第一个字符位置开始搜索.如果start包含Null,则会发生错误.如果指定了compare,则需要start参数.
2. string1(必填).字符串表达式被搜索.
3. string2(必填).寻求字符串表达.
4. 比较(可选).指定字符串比较的类型.如果compare为Null,则会发生错误.如果省略compare,则Option Compare设置确定比较类型.指定有效的LCID(LocaleID)以在比较中使用特定于语言环境的规则

因此,在您的情况下,您需要反转您的变量.

SearchPos = InStr(1, theHyperLink.Address, SearchFor, vbTextCompare)