I lang tid har samarbejdsbranchen fokuseret på at forbedre enhedsfunktioner – bedre kameraer, klarere lyd og smartere software. Men den virkelige forvandling handler ikke om funktioner.
Public Sub udførOpdeling() traverserMappeOgKopier MsgBox "Opdeling er udført" End Sub Private Sub traverserMappeOgKopier() Dim ark As Worksheet, arkNavn As String
For Each ark In ActiveWorkbook.Sheets arkNavn = ark.Name
ark.Select ark.Copy
ActiveWorkbook.SaveAs "C:\X" & arkNavn ActiveWorkbook.Close Next ark End Sub
Det eneste der er lidt sjovt er, at alle de nye ark bliver gemt direkte på C-drevet under navnene XSheet1, XSheet2, osv. Jeg synes ellers koden ser rigtig nok ud?
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.
