Como salvar os dados da planilha como um arquivo csv com / sem aspas duplas?
Quando você exporta ou salva um intervalo de dados do Excel para um arquivo csv, normalmente, os dados csv não estão entre aspas duplas, mas, se os valores das células são separados por vírgula ou quebra de linha, os dados csv exportados estarão em torno de duas citações. E neste artigo, falarei sobre como salvar os dados da planilha como um arquivo csv com ou sem aspas, conforme necessário.
Salvar os dados da planilha como um arquivo csv com aspas duplas
Salvar os dados da planilha como um arquivo csv sem aspas duplas
Salvar os dados da planilha como um arquivo csv com aspas duplas
Para salvar os dados normais como um arquivo csv com aspas duplas, o seguinte código VBA pode ajudá-lo, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: salve os dados da planilha como um arquivo csv com aspas duplas:
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, em seguida, pressione F5 para executar esse código e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja salvar como arquivo csv com aspas duplas, consulte a captura de tela:
4. Então clique OK botão, e um Salvar como janela for exibida, especifique o nome do arquivo e localização e clique em Salvar botão, veja a captura de tela:
5. E um Kutools for ExcelA caixa de prompt de é exibida para lembrá-lo de que o novo arquivo csv foi salvo no local especificado, consulte a captura de tela:
6. Clique OK para fechar a caixa de diálogo e, agora, ao abrir o novo arquivo csv, todos os dados estão entre aspas duplas, conforme mostrado a seguir:
Salvar os dados da planilha como um arquivo csv sem aspas duplas
Se seus dados forem separados por vírgula, quebra de linha em uma célula, quando você salvar os dados como um arquivo csv, os dados serão colocados entre aspas duplas, conforme mostrado a seguir:
Para salvar os dados como um arquivo csv sem as aspas duplas, aplique o seguinte código VBA.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: salve os dados da planilha como um arquivo csv sem aspas duplas:
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. Então aperte F5 para executar esse código e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja salvar como csv sem aspas duplas, consulte a captura de tela:
4. Clique OK botão, e um Salvar como janela for exibida, especifique um nome de arquivo e local para seu novo arquivo csv, consulte a captura de tela:
5. E, em seguida, clique em Salvar botão, um Kutools for ExcelA caixa de prompt de é exibida para informar que o novo arquivo csv foi salvo no local especificado, consulte a captura de tela:
6. Clique OK para fechar a caixa de diálogo e, ao abrir seu novo arquivo csv, as aspas duplas entre os dados são removidas como mostrado a seguir:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
