VBA Excel将txt另存为txt UTF-8

我得到了我的所有代码工作，但这保存在ANSI的txt，想保存为UTF-8的txt，一些可以帮助我，请与此

Option Explicit

Sub SaveWorkSheetAsCSV()
    
    ActiveSheet.Buttons.Delete
    
    Dim FolderPath As String
    FolderPath = "C:\Users\" & Environ("USERNAME") & "\Test"
    
    Dim FileName As String: FileName = Format(Now, "yyyymmdd-hh.mm ") & " Test"
    
    Dim sws As Worksheet: Set sws = ThisWorkbook.Worksheets(4)
    
    Application.ScreenUpdating = False
    
    sws.Copy
    Dim dwb As Workbook: Set dwb = ActiveWorkbook
    
    Application.DisplayAlerts = False
    dwb.SaveAs FolderPath & "\" & FileName & ".txt", xlCSV, Local:=True
    Application.DisplayAlerts = True
    dwb.Close SaveChanges:=False
    
    Application.ScreenUpdating = True
    
    ThisWorkbook.FollowHyperlink FolderPath

End Sub

---

您有几个选项可以修改

SaveAs

试试这些”

---

检查工作簿.SaveAs的文档，特别是FileFormat参数。谢谢，我已经检查了txt作为UTF-8的内容。谢谢，我将对此进行研究！我必须再次检查，xlCSVUTF8返回一个错误。它将与文件相关。而不是代码。相当标准的例程。我今天要检查它！似乎xlCSVUTF8可以工作，但它保存为带有BOM的UTF-8，是否在没有BOM零件的情况下保存此文件？

'My best guess that will work
dwb.SaveAs FolderPath & "\" & FileName, xlCurrentPlatformText, Local:=True

'Alternative text
dwb.SaveAs FolderPath & "\" & FileName, xlUnicodeText, Local:=True

'CSV approach
dwb.SaveAs FolderPath & "\" & FileName, xlCSVUTF8, Local:=True