VBA 生成UTF-8的csv文件

要生成UTF-8编码的CSV文件，需要在VBA中设置文件编码。以下是一个示例代码，将数据写入CSV文件并设置编码为UTF-8：

Sub ExportCSV()
    Dim myFile As String
    Dim rng As Range
    Dim cellValue As String
    Dim i As Integer
    Dim j As Integer
    myFile = Application.DefaultFilePath & "\myData.csv"
    Set rng = ActiveSheet.Range("A1:F10")
    Open myFile For Output As #1
    For i = 1 To rng.Rows.Count
        For j = 1 To rng.Columns.Count
            cellValue = rng.Cells(i, j).Value
            '将数据转换为UTF-8格式
            cellValue = StrConv(cellValue, vbUnicode)
            cellValue = StrConv(cellValue, vbFromUnicode)
            If j = rng.Columns.Count Then
                Write #1, cellValue
            Else
                Write #1, cellValue & ","
            End If
        Next j
    Next i
    Close #1
End Sub

在上述代码中，我们使用了`StrConv`函数将数据转换为UTF-8格式。具体来说，我们先将数据转换为Unicode格式，然后再将其转换为UTF-8格式。这样就可以确保文件以UTF-8编码保存了。