Kako v Excelu paketno pretvoriti več datotek CSV v datoteke XLS (X)?

Pretvorbo datoteke CSV v datoteko XlS ali XLSX je zelo enostavno z uporabo funkcije Shrani kot. Pretvorba več datotek CSV v datoteke XLS ali XLSX iz mape pa zamuja z ročnim shranjevanjem po eno. Tukaj predstavljam makro kodo za hitro paketno pretvorbo vseh datotek CSV v datoteke XLS (x) iz mape.

Paketno pretvorite datoteke CSV v datoteke XlS (X) z makro kodo

Paketno pretvorite datoteke CSV v datoteke XlS (X) z makro kodo

Če želite pretvoriti več datotek CSV iz ene mape v datoteke XLS (X), lahko storite naslednje:

1. Omogočite nov delovni zvezek, pritisnite Alt + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno in kliknite Vstavi > Moduli. Oglejte si posnetek zaslona:

Opombe: Prepričajte se, da so vse datoteke CSV, ki jih želite pretvoriti, zaprte.

2. Nato prilepite spodnjo kodo makra na Moduli in pritisnite F5 tipko za zagon kode.

VBA: Pretvori CSV v XLS

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. V pojavnem pogovornem oknu izberite določeno mapo z datotekami CSV, ki jih želite pretvoriti. Oglejte si posnetek zaslona:

4. klik OK, so vse datoteke CSV v izbrani mapi v njej pretvorjene v datoteke XLS.

Nasvet: Če želite datoteke CSV pretvoriti v datoteke XLSX, uporabite spodnjo kodo VBA.

VBA: Pretvorite datoteke CSV v XLSX

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

hitro pretvorite ali izvozite obseg lista, da enkrat ločite datoteke XLS / Word / PDF ali druge oblike zapisa

Običajno Excel ne podpira možnosti hitrega izvoza ali shranjevanja obsega kot datoteke CSV ali Excel. Če želite shraniti obseg podatkov kot CSV ali delovni zvezek v Excelu, boste morda morali za to uporabiti makro VBA ali kopirati obseg v odložišče in ga prilepiti v nov delovni zvezek, nato pa delovni zvezek shraniti kot CSV ali Delovni zvezek. Kutools za Excel povečuje Excel z Izvozi obseg v datoteko pripomoček za uporabnike Excela, ki želijo hitro obdelati naslednje postopke:  Kliknite za 30-dnevni brezplačni preizkus z vsemi funkcijami!

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite brez omejitev 30 dni.

Relativni članki:

• Kako pretvoriti datoteko CSV v datoteko xls ali uvoziti / odpreti CSV v Excelu?
• Kako pretvoriti besedilni dokument v Excelov delovni list?

---

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

• Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
• Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
• Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
• Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
• Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
• Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
• Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
• Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
• Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...