/
Forside
/
Teknologi
/
Administrative
/
MS-Office
/
Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn
*
Kodeord
*
Husk mig
Brugerservice
Kom godt i gang
Bliv medlem
Seneste indlæg
Find en bruger
Stil et spørgsmål
Skriv et tip
Fortæl en ven
Pointsystemet
Kontakt Kandu.dk
Emnevisning
Kategorier
Alfabetisk
Karriere
Interesser
Teknologi
Reklame
Top 10 brugere
MS-Office
#
Navn
Point
1
sion
18709
2
refi
14474
3
Klaudi
9389
4
Rosco40
5695
5
berpox
5456
6
dk
5398
7
webnoob
4919
8
Benjamin...
4870
9
o.v.n.
4637
10
EXTERMINA..
4373
Kan man lave indholdsfortegnelse over en m~
Fra :
Ole
Dato :
09-01-07 14:47
Hej NG
Jeg skal lave en indholsfortegnelse over en mængde filer som ligger i nogle
mapper. Hvordan laves en indholdsfortegnelse over dette i Office?
Mvh Ole
--
Indsæt mit fornavn efterfulgt af punktum i starten af min mailadresse
Jan Kronsell (
09-01-2007
)
Kommentar
Fra :
Jan Kronsell
Dato :
09-01-07 16:06
"Ole" <jepsen@bigfoot.com> skrev i en meddelelse
news:45a39cbf$0$39984$edfadb0f@dread11.news.tele.dk...
> Hej NG
>
> Jeg skal lave en indholsfortegnelse over en mængde filer som ligger i
> nogle mapper. Hvordan laves en indholdsfortegnelse over dette i Office?
>
> Mvh Ole
>
> --
> Indsæt mit fornavn efterfulgt af punktum i starten af min mailadresse
Indlæg nedenstående makro i et Excel modul. I Celle B 1, skriver du nu
stien til den mappe, du vil liste (fx c:\Dokumenter\. Afspil derefter
makroen. Så listes alle de filer, der ligger i den pågældende mappe i
A-kolonnen i regnearket med sti og navn. Derefter kan du så sortere
informationen og/eller kopiere den til Word eller, hvor du nu har brug for
den.
Sub IndholdIMappe()
Set fs = Application.FileSearch
Range("a1").Activate
With fs
.LookIn = Range("b1").Value
.Filename = "*.*"
If .Execute > 0 Then
MsgBox "Den specificerede mappe indeholder " & .FoundFiles.Count
& _
" filer. Disse listes nu i A-kolonnen", vbInformation
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Activate
Next i
Else
MsgBox "Der blev ikke fundet filer i den pågældende mappe",
vbInformation
End If
End With
End Sub
Jan
Søg
Alle emner
Teknologi
Administrative
MS-Office
Indstillinger
Spørgsmål
Tips
Usenet
Reklame
Statistik
Spørgsmål :
177495
Tips :
31968
Nyheder :
719565
Indlæg :
6408489
Brugere :
218886
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.