Avatar billede marten123 Nybegynder
27. juni 2005 - 13:45 Der er 4 kommentarer og
1 løsning

Splitte sheets i en fil i seperate filer

Hej,

Hvorledes får jeg lavet en makro således at sheets i en fil splittes og gemmes i seperate filer i samme folder?

eks.:
Fil: "test" har 2 sheets: "test1" og "test2".

Jeg ønsker at makroen skal lave 2 filer med hver 1 ark:
fil1: "test1"
fil2: "test2"
Avatar billede bak Forsker
27. juni 2005 - 18:02 #1
Sub Test()
  Dim ws As Worksheet
  Dim wbk As Workbook
  Set wbk = ActiveWorkbook
  For Each ws In wbk.Worksheets
      ws.Copy
      ActiveWorkbook.SaveAs Filename:="C:\" & ws.Name
  Next
End Sub
Avatar billede marten123 Nybegynder
28. juni 2005 - 16:26 #2
Fungerer super. Er det muligt at promte stien?
Avatar billede marten123 Nybegynder
28. juni 2005 - 17:22 #3
Eller hellere: Gemme der hvor den oprindelige fil ligger
Avatar billede bak Forsker
28. juni 2005 - 17:52 #4
Sub Test()
  Dim ws As Worksheet
  Dim wbk As Workbook
  Set wbk = ActiveWorkbook
  For Each ws In wbk.Worksheets
      ws.Copy
      ActiveWorkbook.SaveAs Filename:=wbk.Path & "\" & ws.Name
  Next
End Sub
Avatar billede marten123 Nybegynder
29. juni 2005 - 13:31 #5
super
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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