如何用VBA代码导出Excel H列数据至文本文件并自定义保存路径文件名

给你调整后的代码，核心是用Excel自带的文件选择对话框让你自由选择保存目录和设置文件名，同时保留原代码导出非空单元格的逻辑：

Sub ExportHColumn()
    Dim i As Long, derLig As Long, tabl
    Dim savePath As Variant
    
    ' 获取H列最后一行有数据的行号
    derLig = Range("H" & Cells.Rows.Count).End(xlUp).Row
    ' 将H列数据存入数组提升处理效率
    tabl = Range("H1:H" & derLig)
    
    ' 弹出标准保存对话框，默认筛选文本格式，可自定义文件名和路径
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="文本文件 (*.txt), *.txt", _
        Title:="选择保存位置并输入文件名")
    
    ' 处理用户取消选择的情况
    If savePath = False Then
        MsgBox "已取消导出操作"
        Exit Sub
    End If
    
    ' 打开用户指定的文件写入数据
    Open savePath For Output As #1
    For i = 1 To UBound(tabl, 1)
        ' 跳过空单元格
        If tabl(i, 1) <> "" Then
            Print #1, tabl(i, 1)
        End If
    Next
    Close #1
    
    ' 提示保存成功并显示实际路径
    MsgBox "文件已成功保存至：" & vbCrLf & savePath
End Sub

关键改动说明 #

• 新增savePath变量存储用户选择的路径和文件名
• 用Application.GetSaveAsFilename弹出系统标准保存对话框，避免固定路径的局限
• 增加取消选择的判断逻辑，防止用户取消后代码报错
• 调整提示信息，显示实际保存的路径，更直观

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