VBA技术问题：如何从选中文件路径提取文件名并存入单元格或变量

你可以通过两种简单方法从选中的文件路径the_file_picked里提取文件名，替代原来从工作表名称提取的逻辑：

方法1：用字符串函数直接处理（无需额外引用，适合新手） #

利用InStrRev定位最后一个反斜杠的位置，再用Mid截取后面的部分，还可以按需去掉文件后缀：

' 提取带后缀的完整文件名
Dim fullFileName As String
fullFileName = Mid(the_file_picked, InStrRev(the_file_picked, "\") + 1)

' 提取不带.txt后缀的文件名主体
Dim fileNameOnly As String
fileNameOnly = Left(fullFileName, InStrRev(fullFileName, ".") - 1)

方法2：使用FileSystemObject（专业文件操作工具） #

这种方法逻辑更直观，适合处理复杂文件路径：

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")

' 提取带后缀的文件名
Dim fullFileName As String
fullFileName = fso.GetFileName(the_file_picked)

' 提取不带后缀的文件名
Dim fileNameOnly As String
fileNameOnly = fso.GetBaseName(the_file_picked)

修改后的完整宏代码 #

把你原代码中ActiveCell.FormulaR1C1 = Left(ActiveSheet.Name, 7)的逻辑替换掉，以下是优化后的完整代码：

Sub Macro1()
'
' Macro1 Macro
'
    ChDir "C:\Users\majed502\Documents\VBA WORK\VBA"
    
    Dim the_file_picked As Variant
    the_file_picked = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    ' 处理用户取消选择文件的情况，避免报错
    If the_file_picked = False Then Exit Sub
        
    Workbooks.OpenText Filename:= _
        the_file_picked, Origin:=437, _
        StartRow:=4, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(11 _
        , 1), Array(23, 1), Array(28, 1), Array(43, 1), Array(53, 1)), TrailingMinusNumbers:= _
        True
    'Sheets("Nov2007").Select
    ActiveSheet.Move Before:=Workbooks("monthly update.xlsm").Sheets(1)
    
    Rows("1:2").Delete Shift:=xlUp ' 移除冗余的Select操作，直接操作更高效
    
    Columns("A:A").Insert Shift:=xlToRight
    ' 提取不带后缀的文件名并赋值到A1单元格
    Dim fileNameOnly As String
    fileNameOnly = Left(Mid(the_file_picked, InStrRev(the_file_picked, "\") + 1), InStrRev(Mid(the_file_picked, InStrRev(the_file_picked, "\") + 1), ".") - 1)
    Range("A1").Value = fileNameOnly ' 直接赋值，无需Select

End Sub

说明：

• 新增了用户取消选择文件的判断逻辑，避免宏报错
• 移除了不必要的Select操作，VBA直接操作对象的效率更高
• 替换了单元格赋值逻辑，直接从选中的文件路径提取目标文件名

内容的提问来源于stack exchange，提问作者newtoVBA