21. august 2012 - 15:18Der er
6 kommentarer og 1 løsning
Excel VBA Folder navn
Hej Fra VBA i Excel, vil jeg gerne have fat i et folder navn.
Jeg ved fx. At det ligger på c:\ Det første at navnet på det mappe jeg vil have fat i hedder 1234 men jeg kender ikke resten. Hele mappen hedder fx. 1234 ABC DEFG , men som sagt vil jeg gerne have at vide i vba at mappen hedder: C:\1234 ABC DEFG.
Nogle der har en ide til at løse dette?
Jeg har fundet noget der hedder FileSystemObject, men VBA og jeg er ikke helt enig om det ;-) & måske er jeg også fejl på det?+
Sub ListFolder() sFolderPath = "C:\" Dim FS As New FileSystemObject Dim FSfolder As Folder Dim subfolder As Folder Dim i As Integer
Set FSfolder = FS.GetFolder(sFolderPath)
For Each subfolder In FSfolder.SubFolders If InStrRev(subfolder, "1234") > 0 Then i = i + 1 Cells(i, 1) = subfolder End If Next subfolder Set FSfolder = Nothing End Sub
Hej IT-GuFFe Det var lige det jeg søgte. Mange tak for hjælpen. Jeg prøver at tildele Pointgivning til dig, men sidst fik jeg lavet noget forkert, så håber det lykkes denne gang :-)
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.