Avatar billede martin_moth Mester
19. maj 2004 - 06:26 Der er 2 kommentarer og
1 løsning

Excel VBA: Gem hvert ark som selvstændig fil

Har en xls-fil med en masse ark.

Jeg vil gerne have en macro, der looper over alle faneblade/sheets, og gemmer hver tsheet som en xls-fil med KUN dette sheet. Filnavnet skal være lig sheetnavnet.

Altså har jeg fx. 20 sheets der hedder Sheet1, Sheet2, ..., Sheet20, skal jeg få 20 filer, der hedder Sheet1.xls, Sheet2.xls, ..., Sheet20.xls
Avatar billede kabbak Professor
19. maj 2004 - 09:45 #1
noget i denne stil

Sub GemSinkelArk()
StrPath = "C:\Din Mappe\" ' ret til din mappe
For Each sh In ThisWorkbook.Worksheets
    Sheets(sh.Name).Select
    ActiveSheet.Copy
    ActiveWorkbook.SaveAs Filename:=StrPath & sh.Name & ".xls"
    ActiveWindow.Close SaveChanges:=False
  Next
End Sub
Avatar billede martin_moth Mester
19. maj 2004 - 17:04 #2
Kanon...

Smid et svar
Avatar billede kabbak Professor
19. maj 2004 - 20:07 #3
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester