¿Cómo guardar los datos de la hoja de cálculo como archivo CSV con o sin comillas dobles?

Cuando exportas o guardas un rango de datos de Excel a un archivo CSV, normalmente, los datos CSV no están rodeados por comillas dobles. Sin embargo, si los valores de tus celdas están separados por comas o saltos de línea, los datos CSV exportados estarán rodeados por comillas dobles. En este artículo, hablaré sobre cómo guardar los datos de una hoja de cálculo como archivo CSV con o sin comillas dobles según sea necesario.

Guardar datos de la hoja de cálculo como archivo CSV con comillas dobles

Guardar datos de la hoja de cálculo como archivo CSV sin comillas dobles

Guardar datos de la hoja de cálculo como archivo CSV con comillas dobles

Para guardar los datos normales como archivo CSV con comillas dobles, el siguiente código VBA puede ayudarte, por favor sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Guardar datos de la hoja de cálculo como archivo CSV con comillas dobles:

Sub CSVFile()
'updateby Extendoffice
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xSep As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    xSep = Application.International(xlListSeparator)
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & """" & xCell.Value & """" & xSep
        Next
        While Right(xStr, 1) = xSep
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones el rango de datos que deseas guardar como archivo CSV con comillas dobles, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y aparecerá una ventana Guardar como, por favor especifica el nombre del archivo y la ubicación, y luego haz clic en el botón Guardar, ver captura de pantalla:

5. Y aparecerá un cuadro de diálogo de Kutools para Excel para informarte que el nuevo archivo CSV se ha guardado en la ubicación especificada, ver captura de pantalla:

6. Haz clic en Aceptar para cerrar el cuadro de diálogo, y ahora, cuando abras tu nuevo archivo CSV, todos los datos estarán rodeados por comillas dobles como se muestra en la siguiente captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Guardar datos de la hoja de cálculo como archivo CSV sin comillas dobles

Si tus datos están separados por comas o saltos de línea en una celda, al guardar los datos como archivo CSV, los datos estarán rodeados por comillas dobles como se muestra a continuación:

Para guardar los datos como archivo CSV sin las comillas dobles, aplica el siguiente código VBA.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Guardar datos de la hoja de cálculo como archivo CSV sin comillas dobles:

Sub Export()
'updateby Extendoffice
    Dim xRg As Range
    Dim xRow As Range
    Dim xCell As Range
    Dim xStr As String
    Dim xTxt As String
    Dim xName As Variant
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xName = Application.GetSaveAsFilename("", "CSV File (*.csv), *.csv")
    Open xName For Output As #1
    For Each xRow In xRg.Rows
        xStr = ""
        For Each xCell In xRow.Cells
            xStr = xStr & xCell.Value & Chr(9)
        Next
        While Right(xStr, 1) = Chr(9)
            xStr = Left(xStr, Len(xStr) - 1)
        Wend
        Print #1, xStr
    Next
    Close #1
    If Err = 0 Then MsgBox "The file has saved to: " & xName, vbInformation, "Kutools for Excel"
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones el rango de datos que deseas guardar como CSV sin comillas dobles, ver captura de pantalla:

4. Haz clic en el botón Aceptar, y aparecerá una ventana Guardar como, por favor especifica un nombre de archivo y una ubicación para tu nuevo archivo CSV, ver captura de pantalla:

5. Luego haz clic en el botón Guardar, y aparecerá un cuadro de diálogo de Kutools para Excel para informarte que el nuevo archivo CSV se ha guardado en la ubicación especificada, ver captura de pantalla:

6. Haz clic en Aceptar para cerrar el cuadro de diálogo, y, cuando abras tu nuevo archivo CSV, las comillas dobles que rodeaban los datos se habrán eliminado como se muestra en la siguiente captura de pantalla: