作者lytn (sapphira)
看板Visual_Basic
标题[VBA ] Excel VBA 输出TXT档
时间Thu Oct 28 19:18:53 2010
我用 excel 2003 vba 内的范例
Sub OpenTextFileTest
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("c:\testfile.txt", ForAppending,TristateFalse)
f.Write "Hello world!"f.Close
End Sub
把EXCEL 档案中 每一个储存格的资料输出到一个 a.TXT档去
另外
开启TextEditor(UE),把 a.TXT 全选复制贴上一样的内容至 b.TXT
然後 用 UE看两的档案的 二进位码,会不一样,
导致一个档可以用,EXCEL VBA做的档部能用,请问是什麽问题呢?
ps.直接把EXCEL 用功能表上的功能存成TXT也不被第三方程式接受,
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.73.218.245
※ 编辑: lytn 来自: 203.73.218.245 (10/28 19:22)
1F：→ MOONRAKER:有时是编码问题(utf8/big5)。 10/29 10:57
2F：→ lytn:请问如何做相关的修改?用哪个函式呢? 10/29 12:28
3F：→ MOONRAKER:要看你那第三方程式怎麽表示而定。 10/29 18:04
4F：→ lytn:後来找到了 CreateTextFile 可以选择 UNICODE 或ASCII 11/02 18:35