编程实现文本文件输出

excelok

请问：

表中有一列文字，我想形成以这列文字为文件名的文本文件，有没办法用excel中的vbA编程实现，同时在程序中想将另外一个表的内容写入文本文件中。请指教！！！！

[此贴子已经被作者于2005-4-21 15:56:43编辑过]

老鬼

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("D:\testfile.txt", True)
    a.writeline ("abcccc")
    a.Close

excelok

别人的方法：

Open strFileName For Output As #1
        Print #1, txtToFile
    Close #1

请教老鬼：

1。别人给我的方法，同你的方法哪个好？

2。上面的方法我想格式输出（我实验了txttofile可以为数字变量）怎么办

3。我形成了一个数字数组，想形成文本，于是使用

txt=text（DEP（100），“$0.000)     txt为文本数据 dep（100）为数字数组

编译却提示函数没定义，怎么回事？

请指教

[此贴子已经被作者于2005-4-26 12:24:03编辑过]