*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: 1 [2]   Omlaag

Auteur Topic: files uit verschillende mappen laten weergeven als data  (gelezen 5415 keer)

0 leden en 1 gast bekijken dit topic.

Offline maikel81

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: files uit verschillende mappen laten weergeven als data
« Reactie #15 Gepost op: 30 juni 2023, 09:57:10 »
Citaat van: JEC op 30 juni 2023, 08:02:37
Graag gedaan hoor. ;)
Wat je vraagt kan allemaal. Na het weekend heb ik misschien weer even tijd. Druk druk!



Ik hoor het (hopelijk) dan wel nog van u :)

nog eens merci en fijn weekend!
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: files uit verschillende mappen laten weergeven als data
« Reactie #16 Gepost op: 03 juli 2023, 17:43:37 »
Bij deze nog een aangepaste versie met daarin je verzoeken verwerkt.

Code: [Selecteer]
Sub jec()
 Dim ar, sp, xFile, xp, it, i As Long, j As Long, x As Long
 ar = Range("A2", Range("A" & Rows.Count).End(xlUp))
 ReDim sq(UBound(ar), 500)
 
 With CreateObject("Scripting.FileSystemObject")
   For i = 1 To UBound(ar)
     sp = Split(ar(i, 1), " - ")
     For j = sp(0) To sp(UBound(sp))
        xp = "\\OX-DC-DATA\Data\4-PRODUCTION\CMR ARCHIEF\2023\" & ar(i, 1) & "\"
        If Not .FolderExists(xp) Then .createfolder xp
        If .FileExists(xp & j & ".pdf") Then
           Set xFile = .getfile(xp & j & ".pdf")
           If xFile.Name Like "*pdf" And xFile.DateLastModified > Date - 7 Then sq(i - 1, x) = Split(xFile.Name, ".pdf")(0)
        End If
        x = x + 1
      Next
      x = 0
    Next
 End With
 Range("E2").Resize(UBound(ar), 25) = sq
End Sub
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: files uit verschillende mappen laten weergeven als data
« Reactie #17 Gepost op: 03 juli 2023, 21:12:47 »
Nu inclusief hyperlinks

Code: [Selecteer]
Sub jec()
 Dim ar, sp, xFile, xp, i As Long, j As Long, x As Long
 ar = Range("A2", Range("A" & Rows.Count).End(xlUp))
 
 With CreateObject("Scripting.FileSystemObject")
   For i = 1 To UBound(ar)
      sp = Split(ar(i, 1), " - ")
      For j = sp(0) To sp(UBound(sp))
        xp = "\\OX-DC-DATA\Data\4-PRODUCTION\CMR ARCHIEF\2023\" & ar(i, 1) & "\"
        If Not .FolderExists(xp) Then .createfolder xp
        If .FileExists(xp & j & ".pdf") Then
           Set xFile = .getfile(xp & j & ".pdf")
           If xFile.Name Like "*pdf" And xFile.DateLastModified > Date - 7 Then ActiveSheet.Hyperlinks.Add Cells(i + 1, x + 5), xFile.Path, , , Split(xFile.Name, ".pdf")(0)
        End If
        x = x + 1
      Next
      x = 0
    Next
 End With
End Sub
Gelogd

Offline Pagadder

  • Volledig lid
  • **
  • Berichten: 183
Re: files uit verschillende mappen laten weergeven als data
« Reactie #18 Gepost op: 03 juli 2023, 21:19:12 »
@JEC
Mooi man \o/
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: files uit verschillende mappen laten weergeven als data
« Reactie #19 Gepost op: 03 juli 2023, 21:21:56 »
Thanks! :)
Gelogd

Offline maikel81

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: files uit verschillende mappen laten weergeven als data
« Reactie #20 Gepost op: 04 juli 2023, 10:03:02 »
Hallo JEC,

Het eerste scriptje werkt perfect, en toont netjes de ontbrekende, maar scriptje inclusief hyperlinks werkt niet, hij vergeet het vorig scriptje en zet bijna alles in hyperlink, terwijl het enkel Booklet(folder) kolom C hoort te zijn? krijg zelf de i en x niet in orde, maar ben ook geen slimmen op dit gebied :)

heb de file zoals hij nu werkende is nog eens toegevoegd
Gelogd

Offline JEC

  • Excel-Expert
  • Ervaren lid
  • *****
  • Berichten: 422
Re: files uit verschillende mappen laten weergeven als data
« Reactie #21 Gepost op: 04 juli 2023, 11:28:32 »
Dan had ik je verkeerd begrepen. Ik dacht dat iedere file een link moest worden.

Code: [Selecteer]
Sub jec()
 Dim ar, sp, xFile, xp, it, i As Long, j As Long, x As Long
 ar = Range("C4", Range("C" & Rows.Count).End(xlUp))
 ReDim sq(UBound(ar), 500)
 
 With CreateObject("Scripting.FileSystemObject")
   For i = 1 To UBound(ar)
     sp = Split(ar(i, 1), " - ")
     For j = sp(0) To sp(UBound(sp))
        xp = "\\OX-DC-DATA\Data\4-PRODUCTION\CMR ARCHIEF\2023\" & ar(i, 1) & "\"
        If Not .FolderExists(xp) Then .createfolder xp
        If .FileExists(xp & j & ".pdf") Then
           Set xFile = .getfile(xp & j & ".pdf")
           If xFile.Name Like "*pdf" And xFile.DateLastModified > Date - 500 Then sq(i - 1, x) = Split(xFile.Name, ".pdf")(0)
        End If
        x = x + 1
      Next
      x = 0
      ActiveSheet.Hyperlinks.Add Cells(i + 3, 3), xp, , , ar(i, 1)
    Next
 End With
 Range("G4").Resize(UBound(ar), 25) = sq
End Sub
Gelogd

Offline maikel81

  • Lid
  • *
  • Berichten: 10
  • Geslacht: Man
  • Hey, ik ben nieuw hier !
Re: files uit verschillende mappen laten weergeven als data
« Reactie #22 Gepost op: 04 juli 2023, 13:03:14 »
Citaat van: JEC op 04 juli 2023, 11:28:32
Dan had ik je verkeerd begrepen. Ik dacht dat iedere file een link moest worden.


Super Great!! een wel heel gemeende dikke merci ;D ;D :thumbsup: _/-\o_
Gelogd
Pagina's: 1 [2]   Omhoog
 


www.combell.com