Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Bestandsnamen in map kopieren naar excel

  1. #1
    Vraag is opgelost

    Smile Bestandsnamen in map kopieren naar excel

    Beste forumgebruikers,

    Ik heb een vraag.

    Is het mogelijk om in een map met afbeeldingen de bestandsnaam.jpg te kopieren naar excel? Resulaat is dat alle bestandsnamen uit die map in een kolom komen te staan.
    Ik heb geen idee of dit mogelijk is en heb op dit forum geen antwoord kunnen vinden.

    Ben benieuwd, en alvast bedankt!

    Sigorei

  2. #2

  3. #3
    Code:
    Sub overzicht()
      with createobject("scripting.filesystemobject").getfolder("C:\afbeeldingen")
      for each fl in .files
         if right(fl.name,4)=".jpg" then cells(rows.count,1).end(xlup).offset(1)=fl.name
      next
      End with
    End Sub
    Wijzig de naam van de folder (groen) door jouw folder met afbeeldingen
    Laatst aangepast door snb : 8 november 2008 om 17:12
    VBA voor smarties

    VBA is een taal die je moet leren met een grammatica- en een woordenboek.
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.
    overmorgen

  4. #4

    Compileer fout

    Bedankt voor de reacties Wigi en snb! Ik krijg het nog niet voorelkaar..
    Als ik de code van snb via de macro functie van Excel invoer en daarna de macro start dan geeft VBA een compileer fout aan, zie bijlage. Voeg ik het script wel op de juiste manier toe?
    De afbeeldinging zijn allen jpg files. Dit te info. Alvast bedankt voor uw reactie
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  macro.jpg‎
Bekeken: 73
Grootte:  87,9 KB  
    Laatst aangepast door Sigorei : 8 november 2008 om 15:01

  5. #5

    Macro

    Als ik de code van WIGI gebruik gedownload van www.exceltip.com dan krijg ik ook een compileerfout als ik deze code invoer in de macro funtie van Excel. Zie bijlage.
    Ik heb de "ListFilesInFolder" aangepast naar C:\afb\ waar de afbeedlingen staan.
    In excel worden wel kolommen aangemaakt met de volgende tekst:

    Folder contents:

    File Name:
    File Size:
    File Type:
    Date Created:
    Date Last Accessed: Date Last Modified:
    Attributes:
    Short File Name:

    Wat gaat er mis?
    Alvast bedankt!
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  macro2.jpg‎
Bekeken: 50
Grootte:  96,4 KB  

  6. #6
    Mega Honourable Senior Member Warme bakkertje's avatar
    Geregistreerd
    13 april 2008
    Locatie
    Merksem
    Afstand tot server
    ±181 km
    In de macro van snb staat een haakje teveel

    Code:
    Sub overzicht()
      With CreateObject("scripting.filesystemobject").GetFolder("C:\Afb\")
      For Each fl In .Files
         If Right(fl.Name, 4) = ".jpg" Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = fl.Name
        End If
      Next
      End With
    End Sub
    Heb je bij de code van Wim je verwijzing naar Microsoft Scripting Runtime aangevinkt ?

    Mvg

    Rudi
    Laatst aangepast door Warme bakkertje : 8 november 2008 om 15:10
    Mvg,
    Rudi

    Er zijn geen domme vragen, enkel domme antwoorden

  7. #7

    gelukt!

    Bedankt warme bakkertje voor je reactie!
    Het is gelukt met dit script, ik heb wel de regel "End If" weggehaald want anders kreeg ik weer een compileer fout! Allen bedankt!

  • Dit topic is automatisch gesloten omdat er sinds vier maanden niet meer op gereageerd is.

    Indien gewenst kan de topicstarter een verzoek tot heropening indienen.
  • Berichtenregels

    • U mag geen nieuwe vragen starten.
    • U mag niet reageren op berichten.
    • U mag geen bijlagen versturen.
    • U mag uw berichten niet bewerken.
    •  
    Helpmij.nl
    Helpmij.nl

    Helpmij.nl en business

    Partners
    Sponsoren
    Linkpartners
    Aanbiedingen