Just nu i M3-nätverket
Jump to content

Hämta filnamn till excel


Huge-RuLeS

Recommended Posts

Är det möjligt att hämta exempelvis alla filnamn från en katalog och få in dom i Excel?

 

Exempelvis:

Jag har en katalog med tio musikfiler som jag vill få in i A kolumnen i excel.

 

Går det att göra och isf kan man dölja filändelsen? (alltså avi, mpg, mp3 osv)

 

Hoppas på svar

MVH

 

Link to comment
Share on other sites

Hej,

 

Har gjort detsamma med XL-filer och då använt VBA-kod i stil med:

 

[color="#0000ff"]Set[/color] fs = [b]Application[/b].FileSearch
[color="#0000ff"]With[/color] fs
    .LookIn = [GRÅ]"Folder"[/GRÅ]
    .FileName = [GRÅ]"*.xls"[/GRÅ]
    [color="#0000ff"]If[/color] .[color="#0000ff"]Execute[/color](SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 1 [color="#0000ff"]Then[/color]
        [color="#0000ff"]For[/color] i = 1 [color="#0000ff"]To[/color] .FoundFiles.Count - 1
            fname = [color="#0000ff"]Mid[/color](.FoundFiles(i), [color="#0000ff"]Len[/color](.FoundFiles(i)) - 7, 4)
        [color="#0000ff"]Next[/color] i
    [color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]With[/color]

 

Där jag får ut filnamnen i bokstavsordning. Dock vet jag att de bara är 4 tecken (i det här fallet årtal).

Koden hittade jag (åtminstone delar av) någonstans, men kommer inte ihåg var. Dock finns det mycket mer information om liknande saker på http://www.xldennis.com

 

mvh

/Johan

 

[inlägget ändrat 2005-02-15 20:55:17 av Pejo]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...