Question

您好我正在尝试创建一个代码，用于检查文件名的一部分，然后将使用该文件名的增量保存文档，例如，下面创建一个文件名，然后使用left来获取该部分我想检查它是否以任何形式存在，但我如何检查文件名是否包含该信息

TicketNumber = "0"
FileE = 1
UName = Range("C1")

On Error GoTo ErrorDocumentName
With New FileSystemObject
    Do While FileE = 1
        FileName = "REM" & TicketNumber & " - " & UName & ".xlsm"
        Pos = InStr(FileName, "-")
        LeftFN = Left(FileName, Pos - 2)
        LeftFP = ThisWorkbook.Path & "\" & LeftFN
        FileP = ThisWorkbook.Path & "\" & FileName
        DisplayName = "REM" & TicketNumber
            If .FileExists(LeftFP & WildC) Then
                TicketNumber = TicketNumber + 1
            ElseIf Not .FileExists(LeftFP & WildC) Then
                FileE = 0
            End If
    Loop
End With

On Error GoTo ErrorRunning

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:=FileP, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveSheet.Name = "Incident"
ActiveWorkbook.Save
Application.DisplayAlerts = True

Exit Sub

Excel 2010 VBA检查部分文件路径

0 个答案: