如何移除Excel VBA宏中的用户特定文件路径以实现通用化？

当然可以修改代码，不用针对每个用户调整路径，下面给你几种实用的方案：

方案1：让用户手动选择文本文件（最灵活） #

直接弹出文件选择对话框，让用户自己选要导入的文本文件，完全不用固定路径。修改后的代码如下：

Sub ImportTextFile()
    Dim filePath As Variant
    
    ' 弹出文件选择对话框，只显示txt文件
    filePath = Application.GetOpenFilename("文本文件 (*.txt), *.txt", , "请选择要导入的文本文件")
    
    ' 如果用户取消选择，直接退出
    If filePath = False Then Exit Sub
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & filePath, Destination:=Range("$A$1") _
        )
        .Name = "Sample"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

核心改动是用Application.GetOpenFilename获取用户选择的文件路径，替换原来的硬编码路径，用户每次运行宏时自己选文件就行。

方案2：文本文件和宏文件放在同目录下 #

如果文本文件固定和你的Excel宏文件放在一起，直接用宏文件的路径来拼接文本文件路径，这样不管宏文件复制到哪台电脑，都能找到对应的文本文件：

Sub ImportTextFile()
    Dim filePath As String
    
    ' 获取宏文件所在目录，拼接文本文件名
    filePath = ThisWorkbook.Path & "\Wfilepath.txt"
    
    ' 检查文件是否存在，避免报错
    If Dir(filePath) = "" Then
        MsgBox "未找到文件：" & filePath, vbExclamation
        Exit Sub
    End If
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & filePath, Destination:=Range("$A$1") _
        )
        .Name = "Sample"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

这里用ThisWorkbook.Path获取当前宏文件的目录，再加上文本文件名，同时加了文件存在检查，防止找不到文件时出错。

方案3：使用系统公共文件夹 #

如果文本文件固定放在每个用户的公共目录（比如「文档」文件夹），可以用Environ函数获取系统环境变量来拼接路径：

Sub ImportTextFile()
    Dim filePath As String
    
    ' 获取当前用户的文档文件夹路径，拼接文本文件名
    filePath = Environ("USERPROFILE") & "\Documents\Wfilepath.txt"
    
    ' 检查文件是否存在
    If Dir(filePath) = "" Then
        MsgBox "未找到文件：" & filePath, vbExclamation
        Exit Sub
    End If
    
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & filePath, Destination:=Range("$A$1") _
        )
        .Name = "Sample"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

Environ("USERPROFILE")会返回当前用户的根目录（比如C:\Users\johnsmith），加上\Documents\Wfilepath.txt就是每个用户自己的文档文件夹里的目标文件。

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