Question

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

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





Answer 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等工具替换所有的制表符为空（删除的效果）。

追问

研究了一个比较好的方法，改变EXCEL里的格式，复制粘贴到TXT，然后替换#号，ok了。

追答

是的，复制、粘贴、替换是最简单的方法，编程只是万不得已才搞。