Hogyan lehet kötegelt módon konvertálni több Excel fájlt CSV fájlokká az Excelben?
Az Excelben a Mentés másként funkcióval konvertálhatjuk a munkafüzetet CSV-fájlba, de tudhatnád, hogyan lehet több Excel-fájlt kötegelten konvertálni CSV-fájlokba? Ebben a cikkben bemutatok egy VBA kódot a mappában található összes Excel fájl CSV fájlokká történő konvertálásához az Excel programban.
Kötegelten konvertálja a mappa Excel fájljait CSV fájlokká a VBA segítségével
Alakítsa át a munkafüzet lapjait különálló CSV-fájlokká a Kutools for Excel segítségével
Kötegelten konvertálja a mappa Excel fájljait CSV fájlokká a VBA segítségével
Az Excelben a VBA kivételével egyetlen beépített funkció sem képes gyorsan megoldani ezt a feladatot.
1. Engedélyezze az Excel alkalmazást, és nyomja meg a gombot Alt + F11 kulcsok nyitva Microsoft Visual Basic for Applications ablak.
2. kettyenés betétlap > Modulok új modul létrehozásához.
3. Másolja az alábbi kódot, és illessze be az új modul ablakba.
VBA: Az Excel fájlok kötegelt konvertálása CSV formátumba
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. nyomja meg F5 gombot, az első felbukkanó párbeszédpanelen válassza ki a mappát, amely tartalmazza azokat az Excel fájlokat, amelyeket konvertálni szeretne CSV fájlokká.
5. kettyenés OK, majd a második felugró párbeszédpanelen válassza ki a mappát, ahová a CSV fájlokat helyezi.
6. kettyenés OK, most a mappában lévő Excel fájlokat CSV fájlokká konvertálták és egy másik mappába mentették.
Alakítsa át a munkafüzet lapjait különálló CSV-fájlokká a Kutools for Excel segítségével
Mint ismert, a teljes munkafüzetet csak egy CSV-fájlba konvertálhatjuk az Excelben a Mentés másként funkcióval. Bizonyos esetekben azonban az egyetlen lapot CSV-fájlokká kívánja konvertálni, ebben az esetben a Felosztott munkafüzet hasznossága Kutools az Excel számára segítségével.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)
1. Engedélyezze azt a munkafüzetet, amelynek a lapjait külön CSV-fájlokká kívánja konvertálni, kattintson a gombra Kutools Plus > Munkafüzet > Felosztott munkafüzet.
2. Ban,-ben Felosztott munkafüzet párbeszédpanelen ellenőrizze a felosztani kívánt lap nevét (az összes lap alapértelmezés szerint be van jelölve), ellenőrizze Mentés típus, válassza CSV (Macintosh) (* .CSV) a legördülő listából.
3. kettyenés Hasított hogy kiugrik a Tallózás a mappába párbeszédpanelen válassza ki vagy hozzon létre egy mappát a CSV-fájlok elhelyezéséhez.
4. kettyenés OK, most a munkafüzetet külön CSV fájlként osztották fel.
Felosztott munkafüzet
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!