请教如何生成UTF-8格式的文件

fatcat88888888

老师们好，我想生成UTF-8格式的文件，但是程序导出的却是ANSI，请问怎么修改这段代码，感谢


Sub 导出数据()
Dim I As Integer, J As Long, RW As Long
For I = 1 To ActiveSheet.UsedRange.Columns.Count
    Open "D:\company\js\" & Cells(1, I) & ".js" For Output As 1
        For J = 2 To Cells(65536, I).End(3).Row
            Print #1, Cells(J, I).Value
        Next J
    Close 1
Next I
MsgBox "数据更新完毕!", vbOKOnly, "更新成功"
End Sub

smsn

使用 ADODB.Stream，论坛内已经多次提到，搜索下

fatcat88888888

smsn 发表于 2023-3-26 20:47
使用 ADODB.Stream，论坛内已经多次提到，搜索下

研究了，还是没弄好，老师能否帮忙改一下，谢谢

fatcat88888888

有没有老师帮忙改一下，急用，万分感谢

perfect131

用 API 或者  ADODB.Stream，用数组处理
chat 给出的 ADODB.Stream方法

fatcat88888888

有没有大神能帮忙改一下，跪谢

jokklx

1. Sub 导出数据()
   
2. Dim I As Integer, J As Long, RW As Long
   
3. For I = 1 To ActiveSheet.UsedRange.Columns.Count
   
4.     strtext = ""
   
5.     'Open "D:" & Cells(1, I) & ".js" For Output As 1
   
6.         For J = 2 To Cells(65536, I).End(3).Row
   
7.             strtext = strtext & Cells(J, I).Value & vbCrLf
   
8.         Next J
   
9.     'Close 1
   
10.     Set oStream = CreateObject("ADODB.Stream")
    
11.     oStream.Open
    
12.     oStream.Type = 2
    
13.     oStream.Charset = "utf-8"
    
14.     oStream.WriteText strtext
    
15.     oStream.SaveToFile "D:" & Cells(1, I) & ".js", 2
    
16.     oStream.Close
    
17. Next I
    
18. MsgBox "数据更新完毕!", vbOKOnly, "更新成功"
    
19. End Sub

复制代码

fatcat88888888

perfect131 发表于 2023-3-27 12:23
用 API 或者  ADODB.Stream，用数组处理
chat 给出的 ADODB.Stream方法

谢谢老师，感恩

fatcat88888888

jokklx 发表于 2023-3-27 14:15

谢谢老师，感恩

jokklx

fatcat88888888 发表于 2023-3-27 16:50
谢谢老师，感恩

注意保存位置， oStream.SaveToFile "D:" & Cells(1, I) & ".js", 2，这里，论坛发代码就把路径的/弄没了，您修改成你的。