Sut i arbed data taflen waith fel ffeil csv gyda / heb ddyfynbrisiau dwbl?
Pan fyddwch yn allforio neu'n arbed ystod o ddata o Excel i ffeil csv, fel rheol, nid yw'r data csv o gwmpas gyda dyfynbrisiau dwbl, ond, os yw eich gwerthoedd celloedd yn cael eu gwahanu gan atalnodau neu doriad llinell, bydd y data csv a allforir o gwmpas gyda dwbl dyfyniadau. Ac yn yr erthygl hon, byddaf yn siarad am sut i arbed data taflen waith fel ffeil csv gyda neu heb ddyfynbrisiau dwbl yn ôl yr angen.
Cadw data taflen waith fel ffeil csv gyda dyfynbrisiau dwbl
Cadw data taflen waith fel ffeil csv heb ddyfynbrisiau dwbl
Cadw data taflen waith fel ffeil csv gyda dyfynbrisiau dwbl
Er mwyn arbed y data arferol fel ffeil csv gyda dyfynbrisiau dwbl, gall y cod VBA canlynol eich helpu, gwnewch fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Cadw data taflen waith fel ffeil csv gyda dyfynbrisiau dwbl:
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. Ac yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei chadw fel ffeil csv gyda dyfynbrisiau dwbl, gweler y screenshot:
4. Yna cliciwch OK botwm, ac a Save As ffenestr yn ymddangos, nodwch enw a lleoliad y ffeil, ac yna cliciwch Save botwm, gweler y screenshot:
5. Ac a Kutools ar gyfer Excelmae blwch prydlon y popped allan i'ch atgoffa bod y ffeil csv newydd wedi'i chadw yn eich lleoliad penodol, gweler y screenshot:
6. Cliciwch OK i gau'r ymgom, ac yn awr, pan fyddwch chi'n agor eich ffeil csv newydd, mae'r holl ddata wedi'u hamgylchynu gan y dyfyniadau dwbl fel y dangosir y screenshot canlynol:
Cadw data taflen waith fel ffeil csv heb ddyfynbrisiau dwbl
Os yw'ch coma wedi'i wahanu gan atalnod, toriad llinell mewn cell, pan fyddwch chi'n cadw'r data fel ffeil csv, bydd y dyfyniadau dwbl yn amgylchynu'r data fel a ddangosir:
Er mwyn cadw'r data fel ffeil csv heb y dyfynbrisiau dwbl, cymhwyswch y cod VBA canlynol.
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.
Cod VBA: Cadw data taflen waith fel ffeil csv heb ddyfynbrisiau dwbl:
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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei chadw fel csv heb ddyfynbrisiau dwbl, gweler y screenshot:
4. Cliciwch OK botwm, ac a Save As ffenestr yn cael ei harddangos, nodwch enw ffeil a lleoliad ar gyfer eich ffeil csv newydd, gweler y screenshot:
5. Ac yna cliciwch Save botwm, a Kutools ar gyfer Excelmae blwch prydlon y popped allan i ddweud wrthych fod y ffeil csv newydd wedi'i chadw yn eich lleoliad penodol, gweler y screenshot:
6. Cliciwch OK i gau'r ymgom, a phan fyddwch chi'n agor eich ffeil csv newydd, mae'r dyfyniadau dwbl sydd wedi'u hamgylchynu â data yn cael eu tynnu fel a ganlyn y llun a ddangosir:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!