Conas baisc ilchomhaid Excel a thiontú go comhaid CSV in Excel?
In Excel, is féidir linn an leabhar oibre a thiontú go comhad CSV leis an bhfeidhm Save as, ach an bhféadfá a fhios a bheith agat conas baisc ilchomhaid Excel a thiontú go comhaid CSV ar leithligh? San Airteagal seo, tugaim isteach cód VBA chun gach comhad Excel i bhfillteán a thiontú go comhaid CSV in Excel.
Baisc comhaid Excel d’fhillteán a thiontú go comhaid CSV le VBA
Tiontaigh bileoga de leabhar oibre i gcomhaid CSV ar leithligh le Kutools for Excel
Baisc comhaid Excel d’fhillteán a thiontú go comhaid CSV le VBA
In Excel, níl aon fheidhm ionsuite ann chun an post seo a réiteach go tapa seachas VBA.
1. Cumasaigh Excel, agus brúigh Alt + F11 eochracha oscailte Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil chun Modúl nua a chruthú.
3. Cóipeáil thíos an cód agus greamaigh iad chuig fuinneog nua an Mhodúil.
VBA: Baisc comhaid Excel a thiontú go CSV
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4. Brúigh F5 eochair, roghnaigh san fhillteán tá na comhaid Excel a theastaíonn uait a thiontú go comhaid CSV sa chéad dialóg popping.
5. cliceáil OK, ansin sa dara dialóg popping, roghnaigh an fillteán chun na comhaid CSV a chur.
6. cliceáil OK, anois tá na comhaid Excel san fhillteán tiontaithe go comhaid CSV agus sábháladh iad i bhfillteán eile.
Tiontaigh bileoga de leabhar oibre i gcomhaid CSV ar leithligh le Kutools for Excel
Mar is eol dúinn, ní féidir linn an leabhar oibre iomlán a thiontú go comhad CSV amháin in Excel lena fheidhm Save As. Ach i roinnt uaireanta, ba mhaith leat an bhileog aonair a thiontú go comhad CSV, sa chás seo, an Leabhar Oibre Scoilt fóntais de Kutools le haghaidh Excel Is féidir cabhrú leat.
Kutools le haghaidh Excel, le níos mó ná 300 feidhmeanna úsáideacha, déanann sé do phoist níos éasca. |
Tar éis a shuiteáil Kutools for Excel, déan mar atá thíos le do thoil:Download Kutools Íoslódáil saor in aisce do Excel Anois!)
1. Cumasaigh an leabhar oibre a theastaíonn uait a bhileoga a thiontú mar chomhaid CSV ar leithligh, cliceáil Kutools Plus > Leabhar Oibre > Leabhar Oibre Scoilt.
2. Sa Leabhar Oibre Scoilt dialóg, seiceáil ainm na bileoige a theastaíonn uait a roinnt (déantar gach bileog a sheiceáil de réir réamhshocraithe), seiceáil Ach amháin mar cineál, roghnaigh CSV (Macintosh) (* .CSV) ón liosta anuas.
3. cliceáil Scoilt a pop amach a Brabhsáil Chun Fillteán dialóg, roghnaigh nó cruthaigh fillteán chun na comhaid CSV a chur.
4. cliceáil OK, anois tá an leabhar oibre roinnte mar chomhaid CSV ar leithligh.
Leabhar Oibre Scoilt
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á!