将excel用VBA生成指定格式的TXT文件

好的，以下是一种可能的 VBA 代码实现方式：

Sub ExportToTxt()
    
    '定义变量
    Dim txtFilePath As String
    Dim txtFileNum As Integer
    Dim row As Integer
    Dim col As Integer
    Dim cellData As Variant
    Dim rowContent As String
    
    '获取要导出的文件路径和文件名
    txtFilePath = Application.GetSaveAsFilename(InitialFileName:="", _
        FileFilter:="Text Files (*.txt), *.txt")
    
    '如果用户未选择文件，退出
    If txtFilePath = False Then
        Exit Sub
    End If
    
    '打开文件
    txtFileNum = FreeFile()
    Open txtFilePath For Output As txtFileNum
    
    '循环读取每个单元格，并将其写入TXT文件中
    For row = 1 To ActiveSheet.UsedRange.Rows.Count
        rowContent = ""
        For col = 1 To ActiveSheet.UsedRange.Columns.Count
            cellData = Cells(row, col).Value
            '将单元格数据转换为字符串并添加到行内容中
            rowContent = rowContent & CStr(cellData) & ","
        Next col
        '去掉最后一个逗号
        rowContent = Left(rowContent, Len(rowContent) - 1)
        '将行内容写入TXT文件
        Print #txtFileNum, rowContent
    Next row
    
    '关闭文件
    Close txtFileNum
    
    '提示导出完成
    MsgBox "文件已成功导出为：" & txtFilePath, vbInformation, "提示"
    
End Sub

这段代码假设你要导出的 Excel 表格只包含纯文本数据，且每个单元格中的数据以逗号分隔。如果你需要导出包含格式和公式的表格，或者需要不同的分隔符，你需要对代码进行修改。

使用方法：

1. 打开要导出的 Excel 表格；
2. 按下 `Alt+F11` 打开 VBA 编辑器；
3. 在 VBA 编辑器中插入一个新模块；
4. 将以上代码复制粘贴到新模块中；
5. 在 VBA 编辑器中按下 `F5` 运行代码；
6. 选择要导出的 TXT 文件的保存路径和文件名；
7. 点击“保存”按钮，等待程序运行完成；
8. 导出完成后，会弹出一个提示框，告诉你导出的文件路径和文件名。