liuyang4740 发表于 2009-3-10 15:52:00

vba怎样自动生成txt

<p>&nbsp;'写入txt文件，要求事先建立D:\dk.txt文件<br/>&nbsp;&nbsp; Set Opentxt = CreateObject("Scripting.FileSystemObject")<br/>&nbsp;&nbsp; Set a = Opentxt.CreateTextFile("D:\dk.txt", True)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br/>&nbsp;&nbsp; For num = 1 To N<br/>&nbsp;&nbsp;&nbsp; a.writeline (x(num) &amp; "&nbsp;&nbsp; " &amp; y(num))</p><p>&nbsp;&nbsp;&nbsp; Rightstr = Rightstr + 1<br/>&nbsp;&nbsp; Next num<br/>&nbsp;&nbsp;&nbsp; a.Close<br/>&nbsp;问题是：能否不需要事先建立文件，由vba创建文件呢？</p>

zzyong00 发表于 2009-3-10 16:22:00

当然可以

liuyang4740 发表于 2009-3-10 17:27:00

本帖最后由 作者 于 2009-3-10 17:42:03 编辑 <br /><br /> <p>赫赫，上面的源程序已经实现了：）</p>

liuyang4740 发表于 2009-3-11 12:13:00

但是如果要实现写入txt文件，且不能覆盖原来txt文件的内容，只是添加内容，该怎么实现呢？

zzyong00 发表于 2009-3-11 17:06:00

Set Opentxt = CreateObject("Scripting.FileSystemObject")
    Set a = Opentxt.OpenTextFile("D:\dk.txt", ForAppending, True)
    For num = 1 To N
      a.WriteLine (x(num) & "   " & y(num))
      Rightstr = Rightstr + 1
   Next num
    a.Close
页: [1]
查看完整版本: vba怎样自动生成txt