在宏vba中使用If条件进行部分匹配。

Question

目前正在做一个项目，我需要查找一个文件被选中是否正确。所以我使用if条件进行部分匹配。下面是refernece的代码。代码给出了Runtime错误'424' Object Required。

     `
    Sub Fetch_Files()

        Dim OB1 As Workbook, FTO As Variant,strSheetName as string

        Application.ScreenUpdating = False

        FTO= Application.GetOpenFilename(Title:="Browse For your File & Import Range", FileFilter:="Excel Files (*.xlsx*),*xlsx*")

            If FTO <> False then

              Set OB1 = Application.Workbooks.Open(FTO)
              OB1.Worksheets(1).Activate
              strSheetName = ActiveSheet.Name

                        If strSheetName.value = "*abc*" Then
                          'Call abc
                        else
                           MsgBox ("Please abc file")
                        End If

            Else

                MsgBox ("Please Select Files")
                Exit Sub

            End If


        Application.ScreenUpdating = True

        End Sub
    `

Answer 1

解决方法已经找到了.我已经用OB1.Worksheet(1).Name使用了 喜欢 关键字

If FTO <> False then

              Set OB1 = Application.Workbooks.Open(FTO)

                        If  OB1.Worksheets(1).Name like "*abc*" Then ' improve code
                          'Call abc
                        else
                           MsgBox ("Please abc file")
                        End If

            Else

                MsgBox ("Please Select Files")
                Exit Sub

            End If