vba生成csv并将数据写入

下面是一个示例代码，可以将Excel中的数据生成为CSV文件并写入到指定路径下。

Sub ExportToCSV()

    Dim myFile As String
    Dim rng As Range
    Dim cellValue As String
    Dim i As Integer, j As Integer
    
    '指定输出路径及文件名
    myFile = "C:\Users\Username\Desktop\MyFile.csv"
    
    '选择要导出的数据区域
    Set rng = Selection
    
    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
            '将双引号替换为两个双引号，以便在CSV文件中正确显示
            cellValue = Replace(cellValue, """", """""")
            If j = rng.Columns.Count Then
                '如果是一行的最后一个单元格，则不需要在后面加逗号
                Print #1, """" & cellValue & """"
            Else
                Print #1, """" & cellValue & """,";
            End If
        Next j
    Next i
    
    Close #1
    MsgBox "CSV文件已生成并保存在指定路径下。"
    
End Sub

在执行上述代码时，首先需要选择要导出的数据区域，然后运行代码即可。CSV文件将保存在指定路径下，并在保存完成后弹出一个提示框。

需要注意的是，如果要将数据导出到CSV文件中，需要将每个单元格的值用双引号括起来，并且在每个单元格之间用逗号隔开。如果单元格中已经包含双引号，则需要将其替换为两个双引号，以便在CSV文件中正确显示。