[分享]高级查找搜索工具加载宏

SpeedRat

按F8后，还是上面那两个提示。

“应用程序定义或对象定义错误”

还是停在那个黄色条上的代码。

爱歌学习

曾经碰到过路径名中不允许包含方括号的情况，不会是这个问题吧？你打开不同文件夹下的不同工作簿看看出错情况怎样～

SpeedRat

OH，我找到它出错的规律了：

假设如下：

第一个excel工作簿(名为A)有三个工作表，

第二个excel工作簿(名为B)有三个工作表，

第三个excel工作簿(名为C)有四十个工作表。

打开A与B时，不论两个工作簿是在不同目录下或同目录下。这个加载宏都不会出错。

但只要打开了那个C工作簿，不论是在不同目录下或同目录下，这个加载宏都会出错。

总结：只要打开含有太多工作表的工作簿时，这个加载宏就会出错。

问题是在哪儿呢？怎么修改才行？

[此贴子已经被作者于2006-11-15 22:55:05编辑过]

爱歌学习

单独打开C呢？不会是这个文件中的表名有问题吧？

northwolves

单步调试一下各变量的赋值情况

SpeedRat

单独打开C也是不行的。

C工作簿中的工作表名有的含有“-”，有的含的“()”。

是不是这个原因导致它出错呢？

要怎么修改这个加载宏才行。(因C工作簿中工作表名必须是用上面的那些规则命名，含有“-”或“()”)

[此贴子已经被作者于2006-11-15 23:32:36编辑过]

northwolves

不妨按sheets 的 index调用试试,如： sheets(3)

SpeedRat

Private Sub btnFindNow_Click()
'开始查找
    If Not CheckInput Then Exit Sub
    '定义变量
    Dim wb As Variant
    Dim sht As Variant
    Dim sFindStr As String
    Dim LookatFlag As Integer
    Dim LookinFlag As Long
    Dim bMatchCase As Boolean
    Dim bMatchByte As Boolean

    '变量赋值
    LookatFlag = IIf(chkMatch, xlWhole, xlPart)
    LookinFlag = VBA.Choose(CombLookIn.ListIndex + 1, xlValues, xlComments, xlFormulas)
    bMatchCase = chkMatchCase
    bMatchByte = chkMatchByte
    sFindStr = txtInput.Value
    '清除列表
    ListView1.ListItems.clear
    Select Case CombRange.ListIndex

    Case Is = 0    '当前活动工作表中查找
        wb = ActiveWorkbook.Name
        sht = ActiveSheet.Name
        Call SearchInSheet(wb, sht, sFindStr, LookinFlag, LookatFlag, bMatchCase, bMatchByte)

    Case Is = 1    '当前活动工作簿中查找
        wb = ActiveWorkbook.Name
        For Each sht In ActiveWorkbook.Sheets
            Call SearchInSheet(wb, sht.Name, sFindStr, LookinFlag, LookatFlag, bMatchCase, bMatchByte)
        Next

    Case Is = 2    '在所有打开的工作簿中查找
        For Each wb In Workbooks
            For Each sht In wb.Worksheets
                Call SearchInSheet(wb.Name, sht.Name, sFindStr, LookinFlag, LookatFlag, bMatchCase, bMatchByte)
            Next
        Next

    End Select
    Call ShowTip
    txtInput.SetFocus
End Sub

具体应改哪个地方呢？

northwolves

你先看看出错时wb.Name, sht.Name, sFindStr, LookinFlag, LookatFlag, bMatchCase, bMatchByte各自的值，判断出错的原因

SpeedRat

wb.Name, sht.Name的值看不到。后面的值分别是：

 sFindStr=查找的关键词

 LookinFlag=-4163

 LookatFlag=2

 bMatchCase=False

 bMatchByte=False