excel如何转换csv

Excel 是一种广泛使用的电子表格程序，用于处理和分析数据，CSV（逗号分隔值）是一种常见的文件格式，用于存储表格数据（数字和文本），有时，您可能需要将 Excel 文件转换为 CSV 格式，以便在其他应用程序中使用或与其他人共享数据，以下是如何将 Excel 文件转换为 CSV 格式的详细步骤：

1. 打开 Excel 文件

打开您要转换的 Excel 文件，点击“文件”>“打开”，然后浏览到您的 Excel 文件所在的位置，选择它并点击“打开”。

2. 另存为 CSV 文件

在 Excel 中，点击“文件”>“另存为”，在“另存为类型”下拉菜单中，选择“CSV（逗号分隔）（*.csv）”。

3. 选择保存位置

选择一个文件夹来保存您的 CSV 文件，您可以使用默认的保存位置，也可以点击“浏览”按钮来选择其他文件夹。

4. 设置分隔符

在“另存为”对话框中，您还可以设置分隔符，默认情况下，Excel 使用逗号作为分隔符，如果您的数据包含逗号，您可能需要更改分隔符，您可以使用分号（；）或制表符（t）。

5. 保存 CSV 文件

点击“保存”按钮，现在，您的 Excel 文件已成功转换为 CSV 格式，并保存在您选择的文件夹中。

6. 验证 CSV 文件

为了确保您的 CSV 文件已正确转换，您可以使用文本编辑器（如 Notepad++、Sublime Text 或 Visual Studio Code）打开它，如果文件中的数据以逗号分隔，并且没有额外的空格或其他字符，那么您的文件已成功转换。

7. 使用在线工具转换

如果您不想安装任何软件或插件，可以使用在线工具将 Excel 文件转换为 CSV，有许多免费的在线工具可供选择，如 Smallpdf、Zamzar 和 OnlineConvert，只需上传您的 Excel 文件，选择“CSV”作为输出格式，然后下载转换后的文件。

8. 使用 VBA 宏转换

如果您熟悉 VBA（Visual Basic for Applications），可以使用宏将 Excel 文件转换为 CSV，以下是一个简单的 VBA 代码示例：

Sub SaveAsCSV()
    Dim FilePath As String
    Dim FileFormatNum As Long
    Dim Workbook As Workbook
    Dim SaveDriveDir As String
    Dim FileName As String
    Dim StartRow As Long, LastRow As Long, ColCount As Long, I As Long, J As Long, K As Long
    Dim DataRange As Range, Cell As Range, FieldValue As Variant
    Dim MyData As String, Delimiter As String, FieldDelimiter As String, LineFeed As String, TextFileMode As Long, UseQuotes As String, WriteToFile As Long, ErrorOccurred As Long
    Dim StartTime As Double, SecondsElapsed As Double, TimeToRun As Double
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    StartTime = Timer
    On Error GoTo ErrorHandler:
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "Select a folder to save the file in:"
        .Show If Not Right(ActiveWorkbook.Path, 1) = "" Then ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "temp.xlsm" 'Temporarily rename the workbook with an extension that can be opened by both xls and xlsx files (e.g., temp.xlsm). This is done so that the user can select a folder without getting an error message about the workbook being readonly. If you don't want to use this method, you can remove the line above and replace it with the following line: Set Workbook = ActiveWorkbook: Set DataRange = Workbook.UsedRange: Set SaveDriveDir = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="CSV Files (*.csv), *.csv", Title:="Select a folder to save the file in"): If SaveDriveDir <> "False" Then FilePath = SaveDriveDir & "" & "outputfile.csv": If Right(SaveDriveDir, 1) <> "" Then FilePath = SaveDriveDir & "" & "outputfile.csv": End If: If FilePath = "False" Then GoTo EndOfMacro: End If: End With: Set Workbook = Workbooks.Open(ActiveWorkbook.Path & "temp.xlsm") 'Open the temporary workbook that was created in step above. If you don't want to use this method, you can remove the line above and replace it with the following line: Set Workbook = ActiveWorkbook: Set DataRange = Workbook.UsedRange: Set SaveDriveDir = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="CSV Files (*.csv), *.csv", Title:="Select a folder to save the file in"): If SaveDriveDir <> "False" Then FilePath = SaveDriveDir & "" & "outputfile.csv": If Right(SaveDriveDir, 1) <> "" Then FilePath = SaveDriveDir & "" & "outputfile.csv": End If: If FilePath = "False" Then GoTo EndOfMacro: End If: End With: Set DataRange = Workbook.UsedRange 'Set the range of data to be saved as a variable for easy referencing later on in the code. This will also allow you to easily modify the code if your data changes in the future. If you don't want to use this method, you can remove the line above and replace it with the following line: Set DataRange = Workbook.UsedRange: Set SaveDriveDir = Application.GetSaveAsFilename(InitialFileName:="", FileFilter:="CSV Files (*.csv), *.csv", Title:="Select a folder to save the file in"): If SaveDriveDir <> "False" Then FilePath = SaveDriveDir & "" & "outputfile.csv": If Right(SaveDriveDir,