Question

我有一个Excel宏，它查找特定文件名Jobs in Lab.xlsx并复制到其他宏文件。

但是，在某些情况下，文件命名可能会更改为Jobs in Lab (0 - 195).xlsx。

如何在Excel VBA下面实现Excel左语法？

Sub Test()
    Windows("Jobs in Lab").Activate
End Sub

Answer 1

您可以使用LIKE运算符。

Sub Sample()
    Dim wb As Workbook

    For Each wb In Application.Workbooks
        If wb.Name Like "Jobs in Lab*" Then
            wb.Activate
            Exit Sub
        End If
    Next wb
End Sub

代码假定文件在同一个Excel实例中打开。

修改：

但是，如果您仍想使用LEFT，那么您可以像这样使用它。请注意Ucase的使用。它将文本转换为大写，然后进行比较。您也可以使用LCASE。

Sub Sample() Dim wb As Workbook For Each wb In Application.Workbooks If UCase(Left(wb.Name, 11)) = "JOBS IN LAB" Then wb.Activate Exit Sub End If Next wb End Sub

如何选择具有不同文件结束名称的打开Excel文件

1 个答案: