請(qǐng)教VBA文件寫入 [金字塔]
- 咨詢內(nèi)容：
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
請(qǐng)問下 在寫入文字的時(shí)候提示 多步OLE DB操作產(chǎn)生錯(cuò)誤 是什么問題呢 謝謝
- 金字塔客服：
正在處理，請(qǐng)稍后
- 用戶回復(fù)：
Sub CreateFile()
Dim fso, tf
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("c:\testfile.txt", True)
' 寫一行，并帶有一個(gè)新行字符。
tf.WriteLine("Testing 1, 2, 3.")
' 向文件寫三個(gè)新行字符。
tf.WriteBlankLines(3)
' 寫一行。
tf.Write ("This is a test.")
tf.Close
End Sub - 網(wǎng)友回復(fù)：
Leon 首先非常感謝您的回答 目前已經(jīng)處理好了 可是有個(gè)疑問 我提供的VBA 在excel中可以執(zhí)行 但為何在金字塔VBS中就不行呢？ 感謝
- 網(wǎng)友回復(fù)：
金字塔的VBS和office的vba不完全一樣，有些對(duì)象支持有些對(duì)象是不支持的，具體你在軟件幫助里可以查到。
比如，Order對(duì)象，在VBA中沒有，在金字塔下就是用于交易的對(duì)象
- 上一篇：[求助]reportdata的數(shù)據(jù)和Historydata的…
- 下一篇：沒有了！
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)