select case问题求助

willy_wong

用select case来根据不同工作薄的名字判断是否符合要求然后进一步操作，下面关于select case表达哪里不规范啊，为什么总是执行不到红色区域的代码?

Public Sub generate_value()
Dim rng As Range
Dim taskc As Integer, vv As Integer
Dim str As String, wb As Workbook
str = Dir(ThisWorkbook.Path & "\*GCI(MY)*.xlsx")
Do
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & str, UpdateLinks:=False)
        Select Case wb.Name
            Case wb.Name Like "*DIGI-GU*" Or wb.Name Like "*DIGI-LTE*"
                   Sheet1.Activate
                   Rows(2).AutoFilter

        End Select
    str = Dir
Loop Until str = ""
End Sub

Chip_Kenny

好像有些系統對不同語言檔案用不了sheet1.activate, 改為sheets(1).activate 試試。

willy_wong

Chip_Kenny 发表于 2017-8-22 12:19
好像有些系統對不同語言檔案用不了sheet1.activate, 改為sheets(1).activate 試試。

Case wb.Name Like "*DIGI-GU*" Or wb.Name Like "*DIGI-LTE*"
                   Sheet1.Activate
                   Rows(2).AutoFilter

修改后一样还是不行，其实就是Case wb.Name Like "*DIGI-GU*" Or wb.Name Like "*DIGI-LTE*"这句判断失败，我单独验证了wb.Name Like "*DIGI-GU*" 结果是true。但是case后面判断不出来，直接跳出select语句

Chip_Kenny

既然這樣,用一句 if wb.Name Like "*DIGI-GU*" Or wb.Name Like "*DIGI-LTE*" then sheet1.activate: Rows(2).AutoFilter
就可以囉。

willy_wong

Chip_Kenny 发表于 2017-8-22 14:23
既然這樣,用一句 if wb.Name Like "*DIGI-GU*" Or wb.Name Like "*DIGI-LTE*" then sheet1.activate: Rows( ...

是可以，但是我要操作的工作薄对象有很多，所以才用的case select。