使用 VBA 使用 UTF-8 将 Excel 数据转换为 CSV

Question

我在工作表上有数据 - 基本上是足球桌。
我想将工作表导出为 UTF8 编码的 csv 文件。
我在另一张纸上有相同的代码 - 并且可以正确编码为 UTF8。
（我去 Notepad++ 并检查编码 - 它总是 ANSI）最好的是 UTF8。

为什么一个宏可以正常工作，而另一个却不能？

我在工作表上的代码是：

Private Sub btHTMLUK_Click()
    Application.DisplayAlerts = False

    On Error Resume Next
    Kill "C:\news\work\eurofootballtables.csv"
    On Error GoTo 0

    Set NewBook = Workbooks.Add
    ThisWorkbook.Worksheets("eurofootballtables").Range("A1:I130").Copy
    NewBook.Worksheets("Sheet1").Range("A1").PasteSpecial (xlPasteValues)
    NewBook.SaveAs Filename:="C:\News\work\eurofootballtables.csv",FileFormat _
      :=xlCSVMSDOS, CreateBackup:=False

    'even tried this:
    ActiveWorkbook.WebOptions.Encoding = msoEncodingUTF8

    Workbooks("eurofootballtables.csv").Close
End Sub

Answer 1

将文件格式更改为 xlCSVUTF8