Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
Sub LoopThroughFiles() Dim FileName As String, i As Integer, x As Integer, LastRow As Integer Application.ScreenUpdating = False LastRow = Cells(65356, 2).End(xlUp).Row For x = 1 To LastRow FileName = Cells(x, 2) i = i + 1 Cells(i, 3) = FileDateTime(FileName) Next Application.ScreenUpdating = True End Sub
Synes godt om
Ny brugerNybegynder
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.