I Microsoft Excel , kan du enkelt konvertera en arbetsbok till CSV genom att välja en lämplig filtyp i " Spara som" i dialogrutan . Med denna metod , kommer endast det aktiva bladet omvandlas . Detta beror på CSV-filer kan bara innehålla ett ark . Att konvertera flera ark i CSV , måste du exportera dem en efter en . Detta innebär att aktivera varje ark , flytta den till en tom arbetsbok och sedan spara den som en CSV -fil . För att göra saken lättare och bekvämare , använda makron . Instruktioner
1
Starta Microsoft Excel och öppna arbetsboken .
2
Tryck "ALT + F8 " för att öppna Makron fönstret . Typ " ExportSheetsToCSV " i Makronamn rutan och klicka sedan på " Skapa ".
3
Skriv följande kod i VBA editorn . Detta makro kommer att skapa CSV-filer i samma mapp som din arbetsbok med bladnamn för filnamn .
Sub ExportSheetsToCSV ( ) katalog
Dim wSheet Som Arbetsblad
Dim csvFile Som String
För varje wSheet I kalkylblad
On Error Resume Next
wSheet.Copy
csvFile = CurDir & " \\ " & wSheet.Name & " . csv "
ActiveWorkbook.SaveAs Filename : = csvFile , _
Filformat : = xlCSV , CreateBackup : = False
ActiveWorkbook.Saved = Sant
ActiveWorkbook.Close
Nästa wSheet
End Sub
4
Stäng VBA edit för att gå tillbaka till din arbetsbok .
5
Tryck "ALT + F8 " igen för att öppna makron fönstret . Välj " ExportSheetsToCSV " från listan och klicka sedan på " Kör ". Vänta Excel för att avsluta konvertera arken .
