標題: [發問] 要如何把VBA所產生的 檔案 存成 UTF-8編碼? [打印本頁]

---

作者: CCL99    時間: 2021-8-28 23:58     標題: 要如何把VBA所產生的 檔案 存成 UTF-8編碼?

本帖最後由 CCL99 於 2021-8-29 00:00 編輯

我用Excel 來寫HTML程式，朋友幫我寫巨集把Excel轉成純文字檔的 HTML，可是這純文字檔的編碼是ANSI 無法讓我正常使用多位元字如 utf-8 或 utf-16。
在以下的巨集程式碼，要增加什麼碼才能把產生的檔案存成utf-8編碼?

1. Public Sub WriteFile()
   
2. 
   
3.    Const FileNum = 1
   
4.    Dim FilePath As String
   
5.    Dim R As Long
   
6.    Dim C As Long
   
7.    Dim Outline As String
   
8.    Dim LastRow As Long
   
9.    
   
10.    FilePath = Replace(ThisWorkbook.FullName, ".xlsm", ".html")
    
11.    
    
12.    Open FilePath For Output As #FileNum
    
13.    
    
14.    R = 1
    
15.    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
    
16.    
    
17.    For R = 1 To LastRow
    
18.       Outline = ""
    
19.       For C = 1 To 21 ' B to U
    
20.          Outline = Outline & Cells(R, C)
    
21.       Next C
    
22.       Print #FileNum, Trim(Outline)
    
23.    Next R
    
24.    
    
25.    Close #FileNum
    
26.    
    
27.    MsgBox "File complete."
    
28. 
    
29. End Sub

複製代碼

---

作者: linyancheng    時間: 2022-2-8 09:33

使用FileSystemObject

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)