Wyodrębnij oryginalną nazwę pliku z pliku

Mamy kilka dokumentów Excela, które często się rozrzucają. Za każdym razem, gdy ktoś tworzy kopię pliku, w systemie Windows jest on generowany jako 'Copy of - <filename>.xlsm'. Chcielibyśmy wyodrębnić nazwę każdego pliku, który został pierwotnie / za pierwszym razem przypisany, tzn. Pobierz '<filename.txt>'zamiast 'Copy of - <filename>.xlsm'.

Próbowałem przyjrzeć się właściwościom pliku, takim jak Tag, ale te pola nie zostały ustawione dla niektórych plików już dystrybuowanych. Czy można wyodrębnić nazwę pliku, który został pierwotnie przypisany? (przy użyciu skryptów VBA lub Powershell)

windows powershell vba

— nazwa_maski
źródło

Spróbuj tego po przypisaniu nazwy pliku do filenamezmiennej w VBA

Dim origFilename As String
origFilename = filename
If Left(filename, 10) = "Copy of - " Then
    origFilename = Replace(filename, "Copy of - ", "")
End If

— Desmond Hume
źródło

Dziękuję za odpowiedź. Miałem jednak nadzieję, że w takim przypadku dokumenty Excela przechowują metadane tych informacji. Możliwe, że użytkownik końcowy zmieni nazwę pliku na <filename>_2.xlsm. Najbliższym (będąc koderem innym niż VBA), jaki mogłem pomyśleć o osiągnięciu tego, jest użycie właściwości Tag w Excelu jako sposobu na uzyskanie oryginalnej nazwy pliku.

— name_masked 11.03.13

Nie ma za co. Przykro mi, ale niewiele wiem o tagach Excel.

— Desmond Hume,