Hvordan konvertere alle Excel-ark til CSV Med makroer

I Microsoft Excel, kan du enkelt konvertere en arbeidsbok til CSV ved å velge en passende filtype under "Lagre som" i dialogboksen. Ved hjelp av denne metoden, vil bare det aktive arket skal konverteres. Dette er fordi CSV-filer kan bare inneholde ett ark. For å konvertere flere ark i CSV, må du eksportere dem én etter én. Dette innebærer aktivering hvert ark, flytte den til en tom arbeidsbok og deretter lagre det som en CSV-fil. For å gjøre denne oppgaven enklere og mer praktisk, bruke makroer.

Bruksanvisning

1 Start Microsoft Excel og åpne arbeidsboken.

2 Trykk "ALT + F8" for å åpne Makroer vinduet. Skriv "ExportSheetsToCSV" i Makronavn-boksen, og klikk deretter på "Create".

3 Skriv inn følgende kode i VBA editor. Denne makroen vil opprette CSV-filer i samme mappe som arbeidsboken ved hjelp av ark navn etter filnavn.

Sub ExportSheetsToCSV ()

Dim wSheet Som regneark

Dim csvFile As String

For hver wSheet I Regneark

On Error Resume Next

wSheet.Copy

csvFile = CurDir & "\" & wSheet.Name & "CSV"

ActiveWorkbook.SaveAs Name: = csvFile, _

Filformatet: = xlCSV, CreateBackup: = False

ActiveWorkbook.Saved = True

ActiveWorkbook.Close

Neste wSheet

End Sub

4 Lukk VBA redigerings å gå tilbake til arbeidsboken.

5 Trykk "ALT + F8" igjen for å åpne Makroer vinduet. Velg "ExportSheetsToCSV" fra listen og klikk deretter på "Kjør". Vent til Excel for å avslutte konvertere arkene.

Hint

• Hvis du ønsker å lagre CSV-filer i en annen mappe, erstatte "CurDir" i linje 9 med banen til en annen mappe. Du kan også flytte arbeidsboken til en annen mappe før du kjører makroen.
• Som standard makroer er deaktivert for Microsoft Excel. For å aktivere dem, klikker du Microsoft Office-knappen, gå til "Alternativer for Excel" og deretter sørge for at "Show Utvikler fanen på båndet" er merket. Klikk på "OK". I noen tilfeller kan det være nødvendig å starte MS Excel for at endringene skal tre i kraft.