Excel VBA导出指定格式TXT无报错但未生成文件求助

核心问题 #

1. 保存路径错误：新建的空白工作簿未保存过，Application.ActiveWorkbook.Path返回空字符串，导致saveFile仅为"LON"，文件会被保存到Excel默认文档路径（而非原工作簿路径），你可能未找到它；极端情况会因路径无效导致保存失败。
2. 文件格式不符需求：xlText是逗号分隔类文本格式，会自动用逗号拆分单元格，完全不符合你要的无逗号、保留原列对齐格式的要求。

修正后的VBA代码 #

Sub EventToV3D()
    ' 导出数据为保留原格式的无逗号文本文件
    Dim wb As Workbook
    Dim saveFile As String
    Dim WorkRng As Range
    Dim sourceWb As Workbook
    
    ' 记录原工作簿（避免新建工作簿后丢失原路径）
    Set sourceWb = ThisWorkbook
    ' 选定要导出的目标区域
    Set WorkRng = sourceWb.Worksheets("LON_OUT").Range("A1:F12")
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Set wb = Application.Workbooks.Add
    ' 复制区域的数值与格式（确保原对齐样式完整保留）
    WorkRng.Copy
    With wb.Worksheets(1).Range("A1")
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
        .PasteSpecial Paste:=xlPasteFormats
    End With
    
    ' 拼接正确路径：原工作簿路径 + 文件名 + .txt后缀
    saveFile = sourceWb.Path & "\LON.txt"
    ' 使用xlTextPrinter格式（按打印布局生成文本，保留列对齐、无逗号分隔）
    wb.SaveAs Filename:=saveFile, FileFormat:=xlTextPrinter, CreateBackup:=False
    
    wb.Close SaveChanges:=False
    Application.CutCopyMode = False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

• 固定保存路径：用ThisWorkbook.Path（原工作簿的路径）替代新建工作簿的路径，确保文件保存到你预期的位置，同时加上.txt后缀明确文件类型。
• 更换文件格式：改用xlTextPrinter格式，该格式会按照Excel的打印布局生成文本文件，保留单元格的对齐空格，不会自动添加逗号分隔符，完全匹配你要的格式效果。
• 完善复制粘贴：使用PasteSpecial分别粘贴值和格式，确保导出的文本和原Excel单元格的对齐样式完全一致。
• 优化工作簿关闭：添加SaveChanges:=False避免关闭时弹出不必要的提示。

验证步骤 #

1. 运行代码后，前往原Excel工作簿所在的文件夹，即可找到LON.txt文件。
2. 打开文本文件检查格式，确认列对齐与原Excel一致，无逗号分隔。

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