Как сохранить данные рабочего листа в формате CSV с двойными кавычками или без них?
Когда вы экспортируете или сохраняете диапазон данных из Excel в файл CSV, обычно данные CSV не заключаются в двойные кавычки. Однако, если значения ячеек разделены запятыми или разрывами строк, экспортированные данные CSV будут окружены двойными кавычками. В этой статье я расскажу о том, как сохранить данные рабочего листа в формате CSV с двойными кавычками или без них, в зависимости от ваших потребностей.
Сохранение данных рабочего листа в формате CSV с двойными кавычками
Сохранение данных рабочего листа в формате CSV без двойных кавычек
Сохранение данных рабочего листа в формате CSV с двойными кавычками
Чтобы сохранить обычные данные в формате CSV с двойными кавычками, следующий код VBA может помочь вам, пожалуйста, выполните следующие действия:
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Сохранение данных рабочего листа в формате CSV с двойными кавычками:
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. Затем нажмите клавишу F5 для запуска этого кода, появится диалоговое окно, напоминающее выбрать диапазон данных, который вы хотите сохранить в формате CSV с двойными кавычками, см. скриншот:
4. Затем нажмите кнопку ОК, появится окно Сохранить как, укажите имя файла и расположение, а затем нажмите кнопку Сохранить, см. скриншот:
5. Появится диалоговое окно Kutools for Excel, сообщающее, что новый файл CSV был сохранен в указанное место, см. скриншот:
6. Нажмите ОК, чтобы закрыть диалог, и теперь, когда вы откроете новый файл CSV, все данные будут окружены двойными кавычками, как показано на следующем скриншоте:
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Сохранение данных рабочего листа в формате CSV без двойных кавычек
Если ваши данные разделены запятыми или разрывами строк в ячейке, при сохранении данных в формате CSV они будут окружены двойными кавычками, как показано ниже:
Чтобы сохранить данные в формате CSV без двойных кавычек, примените следующий код VBA.
1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. Щелкните Вставить > Модуль и вставьте следующий код в окно Модуля.
Код VBA: Сохранение данных рабочего листа в формате CSV без двойных кавычек:
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. Затем нажмите клавишу F5 для запуска этого кода, появится диалоговое окно, напоминающее выбрать диапазон данных, который вы хотите сохранить в формате CSV без двойных кавычек, см. скриншот:
4. Нажмите кнопку ОК, появится окно Сохранить как, укажите имя файла и расположение для нового файла CSV, см. скриншот:
5. Затем нажмите кнопку Сохранить, появится диалоговое окно Kutools for Excel, сообщающее, что новый файл CSV был сохранен в указанное место, см. скриншот:
6. Нажмите ОК, чтобы закрыть диалог, и, когда вы откроете новый файл CSV, двойные кавычки вокруг данных будут удалены, как показано на следующем скриншоте:
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек