Hogyan menthetők a munkalap adatai csv fájlként dupla idézőjelek nélkül / nélkül?
Amikor egy adatsort exportál vagy ment az Excelből a csv fájlba, általában a csv adatok nem kettős idézőjelekkel vannak körülvéve, de ha a cellaértékeket vesszővel vagy sortöréssel választja el, akkor az exportált csv adatok kettős értékkel lesznek körülvéve idézetek. És ebben a cikkben arról fogok beszélni, hogyan lehet a munkalap adatait csv fájlként menteni dupla idézőjelekkel vagy anélkül, szükség szerint.
Munkalap adatainak mentése csv fájlként dupla idézőjelekkel
Munkalap adatainak mentése csv fájlként dupla idézőjelek nélkül
Munkalap adatainak mentése csv fájlként dupla idézőjelekkel
A normál adatok dupla idézőjelű csv fájlként történő mentéséhez a következő VBA-kód segíthet, kérjük, tegye a következőket:
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Munkalap adatainak mentése csv fájlként dupla idézőjelekkel:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az adattartományt, amelyet dupla idézőjelekkel csv fájlként szeretne menteni, lásd a képernyőképet:
4. Ezután kattintson OK gombot és a Mentés másként ablak jelenik meg, adja meg a fájl nevét és helyét, majd kattintson a gombra Megtakarítás gomb, lásd a képernyőképet:
5. És a Kutools az Excel számáramegjelenik a prompt doboz, amely emlékeztet arra, hogy az új csv fájlt elmentette a megadott helyre, lásd a képernyőképet:
6. Kattints OK a párbeszédpanel bezárásához, és most, amikor megnyitja az új csv fájlt, az összes adatot dupla idézőjelek veszik körül, a következő képernyőkép szerint:
Munkalap adatainak mentése csv fájlként dupla idézőjelek nélkül
Ha az adatait vesszővel választja el, a sor törése egy cellában, amikor az adatokat csv fájlként menti, az adatokat kettős idézőjel veszi körül, az alábbiak szerint:
Az adatok csv fájlként történő mentéséhez dupla idézőjelek nélkül, kérjük, alkalmazza a következő VBA kódot.
1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Munkalap adatainak mentése csv fájlként dupla idézőjelek nélkül:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt arra, hogy válassza ki az adattartományt, amelyet csv-ként szeretne menteni dupla idézőjelek nélkül, lásd a képernyőképet:
4. Kattints OK gombot és a Mentés másként ablak jelenik meg, kérjük, adja meg az új csv fájl fájlnevét és helyét, lásd a képernyőképet:
5. Kattintson a gombra Megtakarítás gomb, a Kutools az Excel számáraA rendszer megjelenik a prompt doboz, amely azt mondja, hogy az új csv fájlt elmentette a megadott helyre, lásd a képernyőképet:
6. Kattints OK a párbeszédpanel bezárásához, és amikor megnyitja az új csv fájlt, az adatokkal körülvett dupla idézőjelek eltávolításra kerülnek, a következő képernyőkép szerint:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!