Excel Vba函数,没有任何字符限制？

Question

我在excel VBA中使用一个函数,我从一长串单元格中提取数据.

我正在使用这个功能

Function name(cell As Range) As Double

Dim Textstrng As String
Textstrng = cell.text
name = InStr(1, Textstrng, "UpgradeApprovalCode=")
End Function

当UpgradeApprovalCode=字符串中的大约8000个字符内显示结果时,如7000.但是当它远离前10000个字符时,它不显示#VALUE!,不结果.

那么是否有任何搜索字符限制或我如何克服这一点.我正在使用office 2007.

Answer 1

尝试使用该Value属性而不是Text

即

Textstrng = cell.Value

编辑:

Sub main()
Dim cell As Range
Dim sh As Worksheet
Set sh = ActiveSheet
Set cell = sh.Cells(1, 1)
Call GetName(cell)
End Sub

Function GetName(cell As Range) As Double

Dim Textstrng As String
Textstrng = cell.Value
GetName = InStr(1, Textstrng, "UpgradeApprovalCode=", vbTextCompare)
End Function