13问答网 > 求助，编写VBA，将EXCEL中的数据自动生成固定格式的TXT文档。excel和要生成的TXT文档格式如图

求助，编写VBA，将EXCEL中的数据自动生成固定格式的TXT文档。excel和要生成的TXT文档格式如图

要是需要源文件的话q我，我发给你：466216578

2025-03-10 15:16:28

推荐回答（1个）

回答1：

感觉不难，大概的代码如下：

sub xxx()
  dim i,j,s,fs,ts
  set fs =createobject("scripting.filesystemobject")
  set ts=fs.opentextfile("xxx.txt",2,true)  '请自学修改文件名，2为forwriting
  for i=2 to activesheet.usedrange.rows.count '针对所有行进行循环
    s="" '生成一行的所有内容
    for j=1 to activesheet.usedrange.columns.count '针对所有列
      s=s & activesheet.cells(i,j) '连接一行所有列的单元格
    next j
    ts.writeline s '写入文件
  next i
  ts.close
end sub

其实有简单方法：在EXCEL里面全选、复制，在记事本里面粘贴，然后使用UltraEdit、EditPlus等工具替换所有的制表符为空（删除的效果）。