Entfernen von. Txt von meinem Dateinamen und Blatt Name

Question

Bitte helfen Jungs !! In dem Codeabschnitt unten (der übrigens sehr gut funktioniert), bekomme ich .txt im eigentlichen Dateinamen und Blattnamen. Ich habe mir angeschaut, was ich herausbringen muss, um das Problem zu lösen, aber ich kann es nicht lösen. Ich bin ziemlich neu in VBA, also tue ich mein Bestes Bitte helfen ?!

'Opens the folder to location to select txt file 
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt") 
    If fileToOpen <> False Then 
    Workbooks.OpenText fileName:=fileToOpen, _ 
    DataType:=xlDelimited, Tab:=True 
    End If 
'Creates the file name based on txt file name 
    fileName = Mid(fileToOpen, InStrRev(fileToOpen, "\") + 1) 
'Creates the sheet name based on the active txt file 
    sheetName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) 

'Rename the original text file 
    ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment 
    Limited\" & "DNU_" & fileName & ".txt") 

Answer 1

Vielleicht könnten Sie einfach zu Ihrem Sheetnamen als Dateinamen verwenden, da Sie bereits die „.txt“ entfernen der Blattname.

'Opens the folder to location to select txt file 
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt") 
    If fileToOpen <> False Then 
    Workbooks.OpenText fileName:=fileToOpen, _ 
    DataType:=xlDelimited, Tab:=True 
    End If 

'Creates the sheet name based on the active txt file 
    sheetName = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) 

'Rename the original text file 
    ActiveWorkbook.SaveAs ("S:\MERIT OUTPUTS FOLDER\MSI Recruitment 
    Limited\" & "DNU_" & sheetName & ".txt") 

Answer 2

können Sie einen regulären Ausdruck verwenden und die Dateinamen ohne Erweiterung extrahieren und verwenden Sie es

public String extractFileName(String fullPathFile){ 
     try { 
      Pattern regex = Pattern.compile(EXTRACT_FILE_NAME_REGEX); 
      Matcher regexMatcher = regex.matcher(fullPathFile); 
      if (regexMatcher.find()){ 
       return regexMatcher.group(1); 
      } 
     } catch (PatternSyntaxException ex) { 
      LOG.info("extractFileName::pattern problem <"+fullPathFile+">",ex); 
     } 
     return fullPathFile; 
    }