Kako paketno pretvoriti več datotek Excel v datoteke CSV v Excelu?
V Excelu lahko delovni zvezek pretvorimo v datoteko CSV s funkcijo Shrani kot, toda ali lahko veste, kako paketno pretvoriti več datotek Excel v ločene datoteke CSV? V tem članku predstavljam kodo VBA za paketno pretvorbo vseh datotek Excel v mapi v datoteke CSV v Excelu.
Paketno pretvorite datoteke Excel iz mape v datoteke CSV z VBA
Pretvorite liste delovnega zvezka v ločene datoteke CSV s programom Kutools za Excel
Paketno pretvorite datoteke Excel iz mape v datoteke CSV z VBA
V Excelu ni vgrajene funkcije, ki bi to nalogo lahko hitro rešila, razen VBA.
1. Omogočite Excel in pritisnite Alt + F11 tipke odprte Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduli ustvariti nov modul.
3. Kopirajte spodnjo kodo in jih prilepite v novo okno modula.
VBA: paketno pretvorite datoteke Excel v 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. Pritisnite F5 v prvem pogovornem oknu izberite mapo z datotekami Excel, ki jih želite pretvoriti v datoteke CSV.
5. klik OK, nato v drugem pojavnem pogovornem oknu izberite mapo, kamor želite namestiti datoteke CSV.
6. klik OK, zdaj so datoteke Excel v mapi pretvorjene v datoteke CSV in shranjene v drugo mapo.
Pretvorite liste delovnega zvezka v ločene datoteke CSV s programom Kutools za Excel
Kot že vemo, lahko celotno delovno knjigo v Excelu pretvorimo samo v eno datoteko CSV s funkcijo Shrani kot. Toda včasih želite en list pretvoriti v datoteko CSV, v tem primeru datoteko Razdeljeni delovni zvezek uporabnost Kutools za Excel vam lahko pomaga.
Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. |
Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)
1. Omogočite delovni zvezek, v katerega želite pretvoriti njegove liste kot ločene datoteke CSV, kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek.
2. V Ljubljani Razdeljeni delovni zvezek pogovorno okno, označite ime lista, ki ga želite razdeliti (vsi listi so privzeto označeni), označite Shrani kot tip, izberite CSV (Macintosh) (* .CSV) s spustnega seznama.
3. klik Split izstopiti a Brskaj po mapi pogovorno okno, izberite ali ustvarite mapo, v katero želite namestiti datoteke CSV.
4. klik OK, zdaj je delovni zvezek razdeljen kot ločeni datoteki CSV.
Razdeljeni delovni zvezek
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!