标题：请教VBA文件写入

Set fso = CreateObject("Scripting.FileSystemObject")
Set file = fso.createTextFile("d:\shit.txt")
Set file = Nothing 
Set testFile = fso.OpenTextFile("d:\shit.txt")
testFile.Write("shit")  '写入字符串

testFile.close

 

 

请问下 在写入文字的时候提示 多步OLE DB操作产生错误      是什么问题呢  谢谢

正在处理，请稍后

Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 写一行，并带有一个新行字符。
tf.WriteLine("Testing 1, 2, 3.")
' 向文件写三个新行字符。
tf.WriteBlankLines(3)
' 写一行。
tf.Write ("This is a test.")
tf.Close
End Sub

Leon 首先非常感谢您的回答   目前已经处理好了   可是有个疑问   我提供的VBA 在excel中可以执行  但为何在金字塔VBS中就不行呢？ 感谢

金字塔的VBS和office的vba不完全一样，有些对象支持有些对象是不支持的，具体你在软件帮助里可以查到。

比如，Order对象，在VBA中没有，在金字塔下就是用于交易的对象

那请教个低级的问题   在金字塔中的转义字符  比如我要输出 a = "\"a\""    中的  ""  如何输出呢？

在金字塔中好像不能将\作为转义符，楼主试试这样行不行

Chr$(13) 換行
Chr$(34) ""
Chr$(39) "

如果不行可以单独将这个问题发帖，等待高手给出解答吧