Вопрос:
Я пишу код, где я открываю файл для извлечения данных. В настоящее время я использую следующий код; Я хочу извлечь имя файла из пути и сохранить его в определенном диапазоне. Этот код:
FilePath = Application.GetOpenFilename(«Excel Files (*.xlsx), *.xls») If FilePath <> False Then Range(«D6»).Value = FilePath file = Range(«D6»).Value Range(«D6»).Clear End If Лучший ответ:
Вы можете сделать это, как показано ниже:
FilePath = Application.GetOpenFilename(«Excel Files (*.xlsm), *.xlsm») If FilePath <> False Then Dim fso As Object Dim objFile As Object Set fso = VBA.CreateObject(«Scripting.FileSystemObject») Set objFile = fso.GetFile(FilePath) If Not objFile Is Nothing Then FileName = objFile.Name End If End If Ответ №1
Альтернатива:
Public Function ExtractFileName(ByVal strFullName As String) As String Dim p As Integer Dim i As Integer Dim s As Integer i = 1 Do p = InStr(i, strFullName, «», 1) If p = 0 Then Exit Do s = p i = p + 1 Loop s = s + 1 ExtractFileName = Mid(strFullName, s, Len(strFullName)) End Function ‘ExtractFileName Ответ №2
Самый простой способ:
FileName = Mid$(FilePath, InStrRev(FilePath, «») + 1, Len(FilePath)) Ответ №3
Если вам нужны разные версии пути и имен файлов, вот что я бы предложил:
Sub LookupFileNames() Dim FilePath As String, FileOnly As String, PathOnly As String, ExtOnly As String, NameOnly As String FilePath = ThisWorkbook.FullName FileOnly = ThisWorkbook.Name NameOnly = Left(FileOnly, InStr(1, FileOnly, «.») — 1) ExtOnly = Right(FileOnly, Len(FileOnly) — InStr(1, FileOnly, «.»)) PathOnly = Left(FilePath, Len(FilePath) — Len(FileOnly)) MsgBox «Full Name: » & FilePath & vbLf & «File Name: » & FileOnly & vbLf & «File Name w/o Ext: » & NameOnly & vbLf & «File Ext: » & ExtOnly & vbLf & «File Path: » & PathOnly End Sub
