2012年2月13日
VBA EXCEL新建的TXT文件如何保存 编码为：Unicode
摘要： Sub CreateAfile Dim fso,MyFile Set fso = CreateObject("Scripting.FileSystemObject") Set MyFile = fso.CreateTextFile("C:\111.tmx",True,True) MyFile.WriteLine("这只是个测试") MyFile.CloseEnd Subcall CreateAfileSet Stream = CreateObject("adodb.stream") ‘定义常量 Const adTy 阅读全文
posted @ 2012-02-13 14:04 Nina 阅读(3389) 评论(2) 推荐(0)