¿Cómo guardar los datos de la hoja de trabajo como archivo csv con / sin comillas dobles?
Cuando exporta o guarda un rango de datos de Excel a un archivo csv, normalmente, los datos csv no están entre comillas dobles, pero, si sus valores de celda están separados por comas o saltos de línea, los datos csv exportados estarán alrededor con doble citas. Y en este artículo, hablaré sobre cómo guardar los datos de la hoja de trabajo como archivo csv con o sin comillas dobles según lo necesite.
Guarde los datos de la hoja de trabajo como un archivo csv con comillas dobles
Guarde los datos de la hoja de trabajo como archivo csv sin comillas dobles
Guarde los datos de la hoja de trabajo como un archivo csv con comillas dobles
Para guardar los datos normales como un archivo csv con comillas dobles, el siguiente código VBA puede ayudarlo, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: guarde los datos de la hoja de trabajo 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. Y luego presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea guardar como archivo csv con comillas dobles, vea la captura de pantalla:
4. Luego haga clic OK botón y una Guardar como aparece la ventana, especifique el nombre del archivo y la ubicación, y luego haga clic en Guardar botón, ver captura de pantalla:
5. Y una Kutools for ExcelAparece el cuadro de aviso para recordarle que el nuevo archivo csv se ha guardado en su ubicación especificada, vea la captura de pantalla:
6. Hacer clic OK para cerrar el cuadro de diálogo, y ahora, cuando abre su nuevo archivo csv, todos los datos están rodeados por comillas dobles como se muestra en la siguiente captura de pantalla:
Guarde los datos de la hoja de trabajo como archivo csv sin comillas dobles
Si sus datos están separados por comas, salto de línea en una celda, cuando guarde los datos como archivo csv, los datos estarán rodeados por comillas dobles como se muestra a continuación:
Para guardar los datos como un archivo csv sin las comillas dobles, aplique el siguiente código VBA.
1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Módulo Ventana.
Código de VBA: guarde los datos de la hoja de trabajo 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. Entonces presione F5 para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de datos que desea guardar como csv sin comillas dobles, vea la captura de pantalla:
4. Hacer clic OK botón y una Guardar como se muestra la ventana, especifique un nombre de archivo y una ubicación para su nuevo archivo csv, vea la captura de pantalla:
5. Y luego haz clic Guardar botón, un Kutools for ExcelAparece el cuadro de aviso para indicarle que el nuevo archivo csv se ha guardado en la ubicación especificada, vea la captura de pantalla:
6. Haga Clic en OK para cerrar el cuadro de diálogo y, cuando abre su nuevo archivo csv, las comillas dobles rodeadas de datos se eliminan como se muestra en la siguiente captura de pantalla:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
