如何用VBA将Excel指定列导出为制表符分隔TXT及代码报错修复

原有代码报错核心原因 #

• 未明确指定工作表所属工作簿，切换窗口/工作簿时Range对象指向混乱是粘贴报错的核心诱因
• 中间新增工作簿的步骤冗余，无需额外借助upload.xlsx中转，可直接导出制表符分隔文本
• 硬编码的用户桌面路径通用性差，同事使用时会因路径不存在报错
• Application.CutCopyMode = True 语法错误，该参数用于取消复制状态时应赋值为False

优化后可用代码 #

Sub 导出订单并打开供应商页面()
    ' 定义变量
    Dim srcSht As Worksheet
    Dim exportCol1 As Long, exportCol2 As Long
    Dim lastRow As Long
    Dim savePath As String
    Dim fso As Object
    Dim ts As Object
    Dim i As Long
    Dim supplierUrl As String
    
    ' 可自定义配置项
    Set srcSht = ActiveSheet ' 自动取当前点击按钮的工作表
    exportCol1 = Range("M1").Column ' 要导出的第一列，此处为M列，可按需修改
    exportCol2 = Range("N1").Column ' 要导出的第二列，此处为N列，可按需修改
    supplierUrl = "替换为实际的供应商上传页面网址" ' 替换为真实地址
    
    ' 自动获取当前用户桌面路径，适配所有使用者
    savePath = Environ("USERPROFILE") & "\Desktop\upload.txt"
    
    ' 计算要导出的最后一行有效数据，避免导出空行
    lastRow = srcSht.Cells(srcSht.Rows.Count, exportCol1).End(xlUp).Row
    
    ' 直接生成制表符分隔文本文件，无中转步骤，不会出现粘贴报错
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.CreateTextFile(savePath, True, True) ' 最后一个参数设为True用UTF-8编码避免中文乱码，不需要可改为False
    For i = 1 To lastRow
        ts.Write srcSht.Cells(i, exportCol1).Value & vbTab & srcSht.Cells(i, exportCol2).Value & vbCrLf
    Next
    ts.Close
    
    ' 释放内存
    Set ts = Nothing
    Set fso = Nothing
    Set srcSht = Nothing
    
    ' 自动打开供应商上传页面
    Shell "rundll32 url.dll,FileProtocolHandler " & supplierUrl, vbNormalFocus
    
    MsgBox "导出完成，文件已保存至桌面", vbInformation
End Sub

配置使用步骤 #

1. 打开1302 Supplier Order Form.xlsm，按Alt+F11唤出VBA编辑器
2. 左侧工程栏右键点击当前工作簿名称，选择「插入」-「模块」，将上述代码粘贴到右侧代码编辑区，替换供应商网址为真实地址后保存
3. 回到Excel界面，打开「开发工具」选项卡，选择「插入」-「表单控件（按钮）」，在工作表中绘制按钮，弹出宏选择窗口时选中导出订单并打开供应商页面确认
4. 按需修改按钮显示文本为「一键导出并打开上传页面」，三个工作表分别添加按钮即可使用

自定义调整说明 #

• 如果不需要导出表头，将循环语句的i = 1修改为i = 2即可
• 如果导出的txt文件出现中文乱码，将CreateTextFile的最后一个参数从True改为False即可

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