Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
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.
