参考
'theString :原来完整的字段值
'aString :起始标识字符串,字符长度越长越好
'zString :结束标识字符串,字符长度越长越好
Function qz(ByVal theString As String, ByVal aString As String, ByVal zString As String) As String
Dim a, z As Integer
a = InStr(theString, aString) + Len(aString)
z = InStr(theString, zString)
qz = Mid(theString, a, z - a)
Debug.Print a & ":" & z
End Function
查询应用:
别名: qz([字段名],"适合",")")