[VBA ] Excel VBA 輸出TXT檔

看板Visual_Basic作者 (sapphira)時間15年前 (2010/10/28 19:18), 編輯推噓0(004)
留言4則, 2人參與, 最新討論串1/1
我用 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)

10/29 10:57, , 1F
有時是編碼問題(utf8/big5)。
10/29 10:57, 1F

10/29 12:28, , 2F
請問如何做相關的修改?用哪個函式呢?
10/29 12:28, 2F

10/29 18:04, , 3F
要看你那第三方程式怎麼表示而定。
10/29 18:04, 3F

11/02 18:35, , 4F
後來找到了 CreateTextFile 可以選擇 UNICODE 或ASCII
11/02 18:35, 4F
文章代碼(AID): #1CoLmVMs (Visual_Basic)