新人求助，vbA生成UTF-8编码csv文件

haovogue

生成utf-8csv文件, 去掉文件一行，生成路径C:\Users\Administrator\Desktop，文件名为SL2023加上第三列日期，谢谢

haovogue

Private Sub CommandButton1_Click()
Const File$ = "C:\Users\Administrator\Desktop\CsvfileTest2.csv"
Dim Fso, MyFile
Set Fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = Fso.CreateTextFile(File, True)
MyFile.Close
With CreateObject("ADODB.Stream")
.Open
.LoadFromFile File
.Position = 0
.Charset = "UTF-8"
.SaveToFile File, 2
.Close
End With

'Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set MyFile = Fso.OpenTextFile(File, 8, True, True)
' Just for the example:
myrange1 = 50
box = ""
For i = 1 To myrange1
box = ""
     For j = 1 To 11
       box = box & Sheet1.Cells(i, j) & ChrW(44)
     Next j
MyFile.WriteLine box
Next i
MyFile.Close
MsgBox "success"
End Sub
--------
CsvfileTest2.csv文件名改为SL加上表格中第三列+编号001

perfect131

haovogue 发表于 2023-3-11 10:05
Private Sub CommandButton1_Click()
Const File$ = "C:%users\Administrator\Desktop\CsvfileTest2.csv"
...

没这么复杂
编码判断：https://club.excelhome.net/threa ... tml?_dsign=305360f4

haovogue

可以去掉表格第一列吗，日期可以保持不变吗

haovogue

perfect131 发表于 2023-3-11 18:53
没这么复杂
编码判断：https://club.excelhome.net/thread-1646478-1-1.html?_dsign=305360f4

帮忙修改一下，谢谢

perfect131

haovogue 发表于 2023-3-11 19:55
可以去掉表格第一列吗，日期可以保持不变吗

1111111111111

haovogue

确实厉害，学习了

haovogue

perfect131 发表于 2023-3-11 20:37
1111111111111

今天在公司试一下，不可以用，帮忙调试，谢谢

haovogue

提示报错，帮忙一下，谢谢

ddmc

文件格式:=xlcsvutf8

Excel 2016独立版本当前不可用。它仅在Excel的o365版本中可用,有些版本大约在16.0.7726版本中