返回列表 上一主題 發帖

[發問] 要如何把VBA所產生的 檔案 存成 UTF-8編碼?

[發問] 要如何把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.    Const FileNum = 1
  3.    Dim FilePath As String
  4.    Dim R As Long
  5.    Dim C As Long
  6.    Dim Outline As String
  7.    Dim LastRow As Long
  8.    
  9.    FilePath = Replace(ThisWorkbook.FullName, ".xlsm", ".html")
  10.    
  11.    Open FilePath For Output As #FileNum
  12.    
  13.    R = 1
  14.    LastRow = Cells(Rows.Count, "B").End(xlUp).Row
  15.    
  16.    For R = 1 To LastRow
  17.       Outline = ""
  18.       For C = 1 To 21 ' B to U
  19.          Outline = Outline & Cells(R, C)
  20.       Next C
  21.       Print #FileNum, Trim(Outline)
  22.    Next R
  23.    
  24.    Close #FileNum
  25.    
  26.    MsgBox "File complete."

  27. End Sub
複製代碼

        靜思自在 : 能幹不幹,不如苦幹實幹。
返回列表 上一主題