Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako pretvoriti več Excelovih datotek v datoteke CSV v Excelu?

V Excelu lahko delovni zvezek pretvorimo v datoteko CSV s funkcijo Shrani kot, ali bi lahko vedeli, kako pretvoriti več datotek Excel v ločene datoteke CSV? V tem članku uvajam kodo VBA za serijsko pretvorbo vseh Excelovih datotek v mapo v datoteke CSV v Excelu.

Batch pretvorite datoteke Excel iz mape v datoteke CSV z VBA

Pretvorite liste delovne knjige v ločene datoteke CSV s programom Kutools for Exceldobra ideja3

Brskanje z zavihki in urejanje več delovnih skupin Excel / Word dokumentov kot Firefox, Chrome, Internet Raziščite 10!

Morda ste pozabljeni, da si ogledate več spletnih strani v Firefoxu / Chrome / IE in preklopite med njimi tako, da preprosto kliknete ustrezne jezičke. Tu tabla Office podpira podobno obdelavo, ki vam omogoča, da brskate po več Excelovih delovnih zvezkih ali Wordovih dokumentih v enem oknu programa Excel ali oknu Worda in preprosto preklapljate med njimi tako, da kliknete njihove zavihke. Kliknite brezplačno 45 dnevno preizkusno različico zavihka Office!

od excel

Batch pretvorite datoteke Excel iz mape v datoteke CSV z VBA

V Excelu ni vgrajene funkcije, ki bi hitro rešila to delo, 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: Batch pretvori datoteke Excel v CSV

Sub WorkbooksSaveAsCsvToFolder () 'UpdatebyExtendoffice20181031 Dim xObjWB As Delovni zvezek Dim xObjWS As Delovni list Dim xStrEFPath As String Dim xStrEFFile As String Dim xObjFD Kot FileDialog Dim xObjSFD Kot FileDialog Dim xStrSPath As String Dim xStrCSVFName Kot String Application.ScreenUpdating = False Application.EnableEvents = False Application. Izračun = xlCalculationManual On Napaka Nadaljevanje Naslednji Set xObjFD = Application.FileDialog (msoFileDialogFolderPicker) xObjFD.AllowMultiSelect = Lažno xObjFD.Title = "Kutools for Excel - Izberite mapo, ki vsebuje datoteke Excel" Če xObjFD.Show <> -1 Potem zapustite Sub xStrEFPath = xObjFD.SelectedItems (1) & "\" Nastavi xObjSFD = Application.FileDialog (msoFileDialogFolderPicker) xObjSFD.AllowMultiSelect = Lažno xObjSFD.Title = "Kutools for Excel - Izberite mapo za iskanje datotek CSV" Če xObjSFD.Show <> -1 Potem zapustite Ex xStrSPath = xObjSFD.SelectedItems (1) & "\" xStrEFFile = Dir (xStrEFPath & "* .xls *") Dokler xStrEFFile <> "" Nastavi xObjWB = Delovni zvezek s.Open (Filename: = xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & levo (xStrEFFile, InStr (1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Ime datoteke: = xStrCSVFName, FileFormat: = xlCSV xObjWB . Zapri savechanges: = Lažno xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True End Sub

4. Pritisnite F5 tipko, izberite mapo, ki vsebuje datoteke Excel, ki jih želite pretvoriti v datoteke CSV v prvem pop-up pogovornem oknu.
doc serija do csv 1

5. klik OK, nato pa v drugem pojavnem pogovornem oknu izberite mapo za postavitev datotek CSV.
doc serija do csv 2

6. klik OK, zdaj so datoteke Excel v mapi pretvorjene v datoteke CSV in shranjene v drugi mapi.
doc serija do csv 3


Pretvorite liste delovne knjige v ločene datoteke CSV s programom Kutools for Excel

Kot smo znani, lahko celotno delovno knjižico pretvorimo v eno datoteko CSV v Excelu s funkcijo Save As. Toda v nekaterih primerih želite pretvoriti en sam list v datoteko CSV, v tem primeru pa Delovni zvezek Split uporabnost Kutools za Excel vam lahko pomaga.

Kutools za Excel, z več kot 200 priročne funkcije, olajšajo vaše delo.

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesete Kutools za Excel zdaj!)

1. Omogočite delovno knjigo, s katero želite pretvoriti svoje liste kot ločene datoteke CSV, kliknite Kutools Plus > Delovni zvezek > Delovni zvezek Split.
doc serija do csv 4

2. V Ljubljani Delovni zvezek Split pogovorno okno, preverite ime lista, ki ga želite razdeliti (vsi listi se privzeto preverijo), preverite Shrani kot izberite, izberite CSV (Macintosh) (* .CSV) s spustnega seznama.
doc serija do csv 5

3. klik Split da odpreš a Brskaj po mapi dialog, izberite ali ustvarite mapo za postavitev datotek CSV.
doc serija do csv 6

4. klik OK, zdaj delovni zvezek je razdeljen kot ločene datoteke CSV.
doc serija do csv 7



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Sam · 20 days ago
    Another small remark:

    If the cells in the original Excel files are all formatted as "General", some accuracy is lost when the file is saved as a CSV
    For example, if a cell value in Excel is 0.123456789123456, then the value in the CSV will be 0.123456789 (missing the remaining decimals), as long as the cell was formatted as 'General'. This can be solved by formatting all cells in the Excel file to anything else than 'General' (for example, 'Text'). In that case, the CSV *will* still have the full detail/accuracy. I.e. the values in the Excel files will be fully intact after saving as a CSV.

    How could this macro be changes, so it sets the formatting of all cells in the Excel file to 'Text', before saving as a CSV?
    I imagine that it must somehow make use of the following, but I can't figure out how to correctly include in within the macro:

    Cells.Select
    Selection.NumberFormat = "@"
  • To post as a guest, your comment is unpublished.
    Sam · 27 days ago
    Works great, thanks for the code!
    My only remark would be that this code cuts of file names when there is a "." in the filename itself (e.g. file.123.csv turns into file.csv).
  • To post as a guest, your comment is unpublished.
    Aman · 5 months ago
    Ty it really works dear !!