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

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office套件中的宏语言。sep=是CSV文件中的一个特殊标记，用于指定分隔符。在Excel中使用VBA和sep=可以实现分号分隔的UTF8 CSV文件的导入和导出。

具体步骤如下：

打开Excel，按下Alt + F11组合键，打开VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中，编写以下VBA代码：

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