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