filters 是什么意思类？求高手指导

大漠悲风

Set fd = Application.FileDialog(msoFileDialogOpen)    'msoFileDialogOpen  允许打开一个文件
   

   
    With fd
        .AllowMultiSelect = True
        .Filters.Clear      ？？？？？？？？？？？？
        .Filters.Add "All files", "*.*"    ？？？？？？？
        .Filters.Add "Log files", "*.txt;*.log", 1
        If .Show = -1 Then       ？？？？？？？？？？
            For Each vrtSelectedItem In .SelectedItems
'                MsgBox "Path name: " & vrtSelectedItem
                Set fObj = fs.GetFile(vrtSelectedItem)
                Set streamText = fObj.OpenAsTextStream
                Do Until streamText.AtEndOfStream
                    strLine = streamText.ReadLine
                    If InStr(1, strLine, "ZQNI;") Then
                        Call QNI(streamText, bsc_start_row)
                    ElseIf InStr(1, strLine, "ZEGO;") Then
                        Call EGO(streamText, bsc_start_row)
                    ElseIf InStr(1, strLine, "ZEEI::BCSU;") Then
                        Call EEI_BCSU(streamText, bsc_start_row)
                    ElseIf InStr(1, strLine, "ZEEI:SEG") Then
                        Call EEI(streamText, bsc_start_row, bcf_start_row, seg_start_row, bts_start_row, ho_start_row, pc_start_row, trx_start_row)
                    ElseIf InStr(1, strLine, "ZEFO:") Then
                        Call EFO(streamText, efo_start_row)
                    ElseIf InStr(1, strLine, "ZEQO:SEG") Then
                        Call EQO_SEG(streamText, seg_start_row)
                    ElseIf InStr(1, strLine, "ZEQO:BTS") Then
                        Call EQO_BTS(streamText, bts_start_row)
                    ElseIf InStr(1, strLine, "ZERO:") Then
                        Call ERO(streamText, seg_start_row, trx_start_row)
                    ElseIf InStr(1, strLine, "ZDSB") Then
                        Call DSB(streamText, bcf_start_row, trx_start_row)
                    ElseIf InStr(1, strLine, "ZEHO:SEG") Then
                        Call EHO(streamText, ho_start_row)
                    ElseIf InStr(1, strLine, "ZEHO:BTS") Then
                        Call EHO_BTS(streamText, hbts_start_row)
                    ElseIf InStr(1, strLine, "ZEUO:SEG") Then
                        Call EUO(streamText, pc_start_row)
                    ElseIf InStr(1, strLine, "ZEUO:BTS") Then
                        Call EUO_BTS(streamText, ubts_start_row)
                    ElseIf InStr(1, strLine, "ZEAO") Then
                        Call EAO(streamText, seg_start_row, adj_start_row)
                    ElseIf InStr(1, strLine, "ZEAL") Then
                        Call EAL(streamText, seg_start_row, adj_td_start_row)
                    ElseIf InStr(1, strLine, "ZEAI") Then
                        Call EAI(streamText, seg_start_row, adj_w_start_row)
                    ElseIf InStr(1, strLine, "ZESI") Then
                        Call ESI(streamText, dap_start_row)
                    ElseIf InStr(1, strLine, "ZEEO") Then
                        Call EEO(streamText, eeo_start_row)
                    ElseIf InStr(1, strLine, "ZEWO") Then
                        Call EWO(streamText, ewo_start_row)
                   ' ElseIf InStr(1, strLine, "ZW7I:LIC") Then
                   '     Call LIC(streamText, lic_start_row)
                    End If
                Loop
                timer_start_row = GetStartRow("TIMER")
                bsc_start_row = GetStartRow("BSC")
                bcf_start_row = GetStartRow("BCF")
                seg_start_row = GetStartRow("SEG")
                bts_start_row = GetStartRow("BTS")
                trx_start_row = GetStartRow("TRX")
                ho_start_row = GetStartRow("HO")
                hbts_start_row = GetStartRow("HO_BTS")
                pc_start_row = GetStartRow("PC")
                ubts_start_row = GetStartRow("PC_BTS")
                adj_start_row = GetStartRow("Adj_GSM")
                adj_td_start_row = GetStartRow("Adj_TD")
                adj_w_start_row = GetStartRow("Adj_W")
                dap_start_row = GetStartRow("ZESI")
                eeo_start_row = GetStartRow("ZEEO")
                efo_start_row = GetStartRow("ZEFO")
                ewo_start_row = GetStartRow("ZEWO")
                'lic_start_row = GetStartRow("LIC")
            Next vrtSelectedItem
        Else
        End If
    End With
   

hehex

Set fd = Application.FileDialog(msoFileDialogOpen)
是将fd 设置为 FileDialog(msoFileDialogOpen)  应该是打开文件对话框对象
下面with fd
就是引用这个对象，至于所有的. 后面的东西应该都是该对象的属性或者方法，可以查谷歌查百度找相关文档或者参考帮助了解细节。没有人能把所有对象，属性，方法的细节都记住的。需要用去查资料就好了。