Come salvare i dati del foglio di lavoro come file CSV con / senza virgolette doppie?
Quando esporti o salvi un intervallo di dati da Excel a un file csv, normalmente, i dati csv non sono racchiusi tra virgolette doppie, ma, se i valori delle celle sono separati da virgole o interruzioni di riga, i dati csv esportati saranno intorno al citazioni. E in questo articolo, parlerò di come salvare i dati del foglio di lavoro come file csv con o senza virgolette doppie di cui hai bisogno.
Salva i dati del foglio di lavoro come file CSV con virgolette doppie
Salva i dati del foglio di lavoro come file CSV senza virgolette doppie
Salva i dati del foglio di lavoro come file CSV con virgolette doppie
Per salvare i dati normali come file csv con virgolette doppie, il seguente codice VBA può aiutarti, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: salva i dati del foglio di lavoro come file csv con virgolette doppie:
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. E poi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri salvare come file csv con virgolette doppie, vedi screenshot:
4. Quindi fare clic OK pulsante e un Salva con nome viene visualizzata la finestra, specificare il nome e il percorso del file, quindi fare clic su Risparmi pulsante, vedi screenshot:
5. E a Kutools for ExcelViene visualizzata la finestra di richiesta di per ricordarti che il nuovo file CSV è stato salvato nella posizione specificata, vedi screenshot:
6. Clic OK per chiudere la finestra di dialogo e ora, quando apri il tuo nuovo file csv, tutti i dati sono racchiusi tra virgolette doppie come mostrato nella seguente schermata:
Salva i dati del foglio di lavoro come file CSV senza virgolette doppie
Se i tuoi dati sono separati da virgola, interruzione di riga in una cella, quando salvi i dati come file csv, i dati saranno racchiusi tra virgolette doppie come mostrato di seguito:
Per salvare i dati come file csv senza virgolette doppie, applicare il seguente codice VBA.
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: salva i dati del foglio di lavoro come file csv senza virgolette doppie:
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. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri salvare come csv senza virgolette doppie, vedi screenshot:
4. Clic OK pulsante e un Salva con nome viene visualizzata la finestra, specificare un nome file e un percorso per il nuovo file csv, vedere screenshot:
5. E poi clicca Risparmi pulsante, a Kutools for ExcelViene visualizzata la finestra di dialogo di per dirti che il nuovo file csv è stato salvato nella posizione specificata, vedi screenshot:
6. Clicchi OK per chiudere la finestra di dialogo e, quando apri il tuo nuovo file csv, le virgolette doppie circondate dai dati vengono rimosse come mostrato nella seguente schermata:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!