用VBA和sep=实现分号分隔的UTF8 CSV Excel

Sub ExportToCSV()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim csvData As String
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 设置CSV文件的分隔符为分号
    csvData = "sep=;"
    
    ' 添加CSV文件的内容
    csvData = csvData & vbCrLf & "Header1;Header2;Header3"
    csvData = csvData & vbCrLf & "Value1;Value2;Value3"
    
    ' 打开CSV文件并写入数据
    fileNumber = FreeFile
    Open filePath For Output As fileNumber
    Print #fileNumber, csvData
    Close fileNumber
    
    MsgBox "CSV文件导出成功！"
End Sub

Sub ImportFromCSV()
    Dim filePath As String
    Dim fileNumber As Integer
    Dim csvData As String
    Dim dataArray() As String
    Dim rowIndex As Integer
    Dim columnIndex As Integer
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 打开CSV文件并读取数据
    fileNumber = FreeFile
    Open filePath For Input As fileNumber
    csvData = Input$(LOF(fileNumber), fileNumber)
    Close fileNumber
    
    ' 按分号分隔CSV数据
    dataArray = Split(csvData, ";")
    
    ' 将数据导入Excel工作表
    rowIndex = 1
    columnIndex = 1
    For Each dataItem In dataArray
        Cells(rowIndex, columnIndex).Value = dataItem
        columnIndex = columnIndex + 1
        If dataItem = vbCrLf Then
            rowIndex = rowIndex + 1
            columnIndex = 1
        End If
    Next dataItem
    
    MsgBox "CSV文件导入成功！"
End Sub