vba怎样自动生成txt

liuyang4740

 '写入txt文件，要求事先建立D:\dk.txt文件
   Set Opentxt = CreateObject("Scripting.FileSystemObject")
   Set a = Opentxt.CreateTextFile("D:\dk.txt", True)       
   For num = 1 To N
    a.writeline (x(num) & "   " & y(num))

    Rightstr = Rightstr + 1
   Next num
    a.Close
 问题是：能否不需要事先建立文件，由vba创建文件呢？

zzyong00

当然可以

liuyang4740

赫赫，上面的源程序已经实现了：）

liuyang4740

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

zzyong00

1. Set Opentxt = CreateObject("Scripting.FileSystemObject")
2.     Set a = Opentxt.OpenTextFile("D:\dk.txt", ForAppending, True)
3.     For num = 1 To N
4.         a.WriteLine (x(num) & "   " & y(num))
5.         Rightstr = Rightstr + 1
6.    Next num
7.     a.Close

复制代码