Conas sonraí bileog oibre a shábháil mar chomhad csv le / gan luachana dúbailte?
Nuair a dhéanann tú raon sonraí a onnmhairiú nó a shábháil ó Excel go comhad csv, de ghnáth, ní bhíonn na sonraí csv thart le luachana dúbailte, ach, má tá camóg nó briseadh líne scartha le do luachanna cille, beidh na sonraí csv a onnmhairítear thart le dúbailte Sleachta. Agus an t-alt seo, labhróidh mé faoi conas sonraí bileog oibre a shábháil mar chomhad csv le luachana dúbailte nó gan iad de réir mar is gá duit.
Sábháil sonraí bileog oibre mar chomhad csv le luachana dúbailte
Sábháil sonraí na mbileog oibre mar chomhad csv gan luachana dúbailte
Sábháil sonraí bileog oibre mar chomhad csv le luachana dúbailte
Chun na gnáthshonraí a shábháil mar chomhad csv le luachana dúbailte, d’fhéadfadh an cód VBA seo a leanas cabhrú leat, déan mar a leanas le do thoil:
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sábháil sonraí bileog oibre mar chomhad csv le luachana dúbailte:
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. Agus ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a shábháil mar chomhad csv a roghnú le luachana dúbailte, féach an scáileán:
4. Ansin cliceáil OK cnaipe, agus a Sábháil Mar tá an fhuinneog le feiceáil, sonraigh ainm agus suíomh an chomhaid le do thoil, agus ansin cliceáil Sábháil cnaipe, féach ar an scáileán:
5. Agus a Kutools le haghaidh ExcelTá bosca pras popped amach chun a mheabhrú duit gur sábháladh an comhad csv nua isteach i d’áit shonraithe, féach an scáileán:
6. Cliceáil OK chun an dialóg a dhúnadh, agus anois, nuair a osclaíonn tú do chomhad csv nua, tá na sonraí go léir timpeallaithe ag na comharthaí athfhriotail dúbailte mar a leanas an pictiúr a thaispeántar:
Sábháil sonraí na mbileog oibre mar chomhad csv gan luachana dúbailte
Má tá camóg, briseadh líne i gcill scartha ó do chuid sonraí, nuair a shábhálann tú na sonraí mar chomhad csv, beidh na luachana dúbailte timpeall ar na sonraí mar a thaispeántar:
Chun na sonraí a shábháil mar chomhad csv gan na luachana dúbailte, cuir an cód VBA seo a leanas i bhfeidhm.
1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.
Cód VBA: Sábháil sonraí bileog oibre mar chomhad csv gan luachana dúbailte:
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tá bosca pras popped amach chun a mheabhrú duit an raon sonraí a theastaíonn uait a shábháil mar csv a roghnú gan luachana dúbailte, féach an scáileán:
4. Cliceáil OK cnaipe, agus a Sábháil Mar taispeántar an fhuinneog, sonraigh ainm comhaid agus suíomh do chomhad csv nua, féach an scáileán:
5. Agus ansin cliceáil Sábháil cnaipe, a Kutools le haghaidh ExcelTá bosca pras popped amach chun a rá leat gur sábháladh an comhad csv nua isteach i d’áit shonraithe, féach an scáileán:
6. cliceáil OK chun an dialóg a dhúnadh, agus, nuair a osclaíonn tú do chomhad csv nua, baintear na luachana dúbailte atá timpeallaithe le sonraí mar a leanas an pictiúr a thaispeántar:
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
