返回列表 上一主題 發帖

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

CCL99

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows 
軟體版本
win10 
閱讀權限
10 
性別
男 
來自
高雄市 
註冊時間
2021-8-28 
最後登錄
2021-8-30 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2021-8-28 23:58 | 只看該作者

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

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

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

  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."

  29. End Sub
複製代碼
收藏 分享

linyancheng

帖子
228 
主題
73 
精華
2 
積分
333 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2000, 2019 
閱讀權限
100 
性別
男 
來自
彰化縣 
註冊時間
2013-7-18 
最後登錄
2024-10-13 
2#
發表於 2022-2-8 09:33 | 只看該作者
使用FileSystemObject
Word呈現極致的靜態之美，Excel展現極致的動態之美。

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題