De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
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.
