Jak hromadně převádět více souborů aplikace Excel do souborů CSV v aplikaci Excel?
V aplikaci Excel můžeme převést sešit na soubor CSV pomocí funkce Uložit jako, ale víte, jak hromadně převádět více souborů aplikace Excel do samostatných souborů CSV? V tomto článku představuji kód VBA pro dávkový převod všech souborů Excel ve složce na soubory CSV v aplikaci Excel.
Dávkový převod souborů Excel složky do souborů CSV pomocí VBA
Převádějte listy sešitu do samostatných souborů CSV pomocí programu Kutools pro Excel
Dávkový převod souborů Excel složky do souborů CSV pomocí VBA
V aplikaci Excel neexistuje žádná vestavěná funkce, která by mohla tuto úlohu rychle vyřešit, kromě VBA.
1. Povolte Excel a stiskněte Alt + F11 klíče otevřené Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul k vytvoření nového modulu.
3. Zkopírujte níže uvedený kód a vložte je do nového okna modulu.
VBA: Dávkový převod souborů Excel do formátu 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. lis F5 klíč, vyberte složku obsahující soubory aplikace Excel, které chcete převést na soubory CSV, v prvním vyskakovacím dialogovém okně.
5. cvaknutí OK, pak ve druhém vyskakovacím dialogovém okně vyberte složku, do které chcete umístit soubory CSV.
6. cvaknutí OK, nyní byly soubory aplikace Excel ve složce převedeny na soubory CSV a uloženy do jiné složky.
Převádějte listy sešitu do samostatných souborů CSV pomocí programu Kutools pro Excel
Jak jsme věděli, můžeme celý sešit převést pouze do jednoho souboru CSV v aplikaci Excel pomocí funkce Uložit jako. Ale v některých případech chcete převést jeden list do souboru CSV, v tomto případě Rozdělit sešit užitečnost Kutools pro Excel vám může pomoci.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)
1. Povolte sešit, který chcete převést na jeho listy jako samostatné soubory CSV, klepněte na Kutools Plus > Cvičebnice > Rozdělit sešit.
2. V Rozdělit sešit v dialogu zaškrtněte název listu, který chcete rozdělit (ve výchozím nastavení jsou zaškrtnuty všechny listy), zaškrtněte Uložit jako typ, vyberte CSV (Macintosh) (* .CSV) z rozevíracího seznamu.
3. cvaknutí Rozdělit vyskočit a Procházet složku V dialogovém okně vyberte nebo vytvořte složku pro umístění souborů CSV.
4. cvaknutí OK, sešit byl nyní rozdělen jako samostatné soubory CSV.
Rozdělit sešit
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!