Як зберегти дані робочого аркуша як файл CSV з / без подвійних лапок?
Коли ви експортуєте або зберігаєте діапазон даних з Excel у файл CSV, зазвичай дані CSV не оточуються подвійними лапками, але, якщо значення комірок відокремлюються комою або розривом рядка, експортовані дані CSV будуть навколо з подвійними котирування. І в цій статті я розповім про те, як зберегти дані робочого аркуша як файл CSV із подвійними лапками або без них, як вам потрібно.
Зберігайте дані робочого аркуша як файл CSV із подвійними лапками
Зберігайте дані робочого аркуша як файл CSV без подвійних лапок
Зберігайте дані робочого аркуша як файл CSV із подвійними лапками
Щоб зберегти звичайні дані у форматі CSV-файлу з подвійними лапками, вам може допомогти такий код VBA, будь-ласка, зробіть наступне:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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. Потім натисніть OK кнопка і а Зберегти як з'явиться вікно, будь ласка, вкажіть ім'я файлу та місце розташування, а потім натисніть зберегти , див. знімок екрана:
5. І а Kutools для Excelз'явиться вікно запиту ', щоб нагадати, що новий файл csv було збережено у вказаному вами місці, див. знімок екрана:
6. Клацання OK щоб закрити діалогове вікно, і тепер, коли ви відкриваєте новий файл csv, усі дані оточені подвійними лапками, як показано на наступному знімку екрана:
Зберігайте дані робочого аркуша як файл CSV без подвійних лапок
Якщо ваші дані відокремлені комою, розривом рядка в комірці, коли ви зберігаєте дані як файл CSV, дані будуть оточені подвійними лапками, як показано нижче:
Щоб зберегти дані у форматі csv без подвійних лапок, застосуйте такий код VBA.
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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. Клацання OK кнопка і а Зберегти як Відобразиться вікно, будь ласка, вкажіть ім'я файлу та місце розташування нового файлу CSV, див. знімок екрана:
5. А потім клацніть зберегти кнопку, a Kutools для Excelз'явиться вікно запиту ', щоб повідомити, що новий файл CSV збережено у вказаному вами місці, див. знімок екрана:
6. Натисніть OK щоб закрити діалогове вікно, і, коли ви відкриваєте новий файл csv, подвійні лапки, оточені даними, видаляються, як показано на наступному скріншоті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!