VBA 文字輸入TXT檔案之編碼問題

excel vba txt文字檔

wd_811 2024-01-18 18:02:10 ‧ 1083 瀏覽

分享至

各位先進,小妹需要將TXT檔案的某些文字取代成另一個
寫了以下程式後雖然可以順利輸出，但卻發現編碼為"ANSI"，但我需要為"UTF-8"的編碼
研究了好久，還是不知道該怎麼修改，因此上來請教...
程式如下

Dim f As String
Dim d As String

f = "C:\Users\新增資料夾\011.txt"
d = "C:\Users\新增資料夾\222.txt"

Open f For Input As #1
Open d For Output As #2
 
    Do Until EOF(1)
        
        Line Input #1, LineFromFile
        
        If lineformfile = Range("A1") Then
            Print #2, Range("B1")
        Else
            Print #2, LineFromFile
        End If
        
    Loop

Close #1
Close #2