Zoekscherm

[NicoH1967]

Hallo,

Ik wil vanuit een excel sheet een pdf zoeken uit een map op de computer.
De pdf naam bestaat uit diverse cijfers, maar ik wil op basis van de eerste zes cijfers zoeken.
Heeft er iemand wellicht een idee. Als de eerste zes cijfers overeen komen zou het resultaat wat hij geeft meerdere bestanden kunnen zijn
die daarna geopend kunnen worden.
Ik heb helaas geen voorbeeld, maar dit is een beetje het idee.

:thumb:

 

[VenA]

Je kan toch gewoon in de verkenner zoeken? Waarom dan vanuit een niet bestaand voorbeeld?

 

[NicoH1967]

Dat kan inderdaad, maar ik dat de bestanden zichtbaar worden in excel en vanuit daar automatisch openen.

 

[Senso]

Zoeken vanuit Excel in Verkenner heb ik nog niet van gehoord. Het enigste wat ik kan bedenken is hyperlinks maken naar bestanden.

 

[HSV]

Sub hsv()
Dim Acropad As String, bestand As String, strItem
 With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Users\NicoH1967\Documents\PDF"
  .Filters.Add "Adobe PDF-Bestanden (.pdf)", "*.pdf", 3
  .FilterIndex = 3
 If .SelectedItems.Count = 1 And .Show = -1 Then
    For Each strItem In .SelectedItems
    If Right(strItem, 4) = ".pdf" Then
        bestand = " " & strItem
     Else
       MsgBox "Kies een PDF bestand"
      Exit Sub
     End If
    Next strItem
 Acropad = "C:\Program Files (x86)\Adobe\Acrobat Reader Dc\Reader\AcroRd32.exe"
    Shell Acropad & bestand, vbMaximizedFocus
   End If
  End With
End Sub

 

[snb]

Of gebruik gewoon Dir.

@HSV

Mij lijkt voldoende:

If .show then
  for j=1 to .selecteditems.count

  next
end if

 

[HSV]

@snb,

Het was me te laat gisteren; 5:15 uur ging de wekker, en wilde er snel vanaf.
Het was meer een actie richting @Senso.

De code opende sowieso maar een bestand ondanks meerdere selecties.

Sub hsv()
Dim Acropad As String, strItem
 With Application.FileDialog(msoFileDialogOpen)
  .InitialFileName = "C:\Users\NicoH1967\Documents\PDF"
  .Filters.Add "Adobe PDF-Bestanden (.pdf)", "*.pdf", 3
  .FilterIndex = 3
 If .Show Then
    For Each strItem In .SelectedItems
         Acropad = "C:\Program Files (x86)\Adobe\Acrobat Reader Dc\Reader\AcroRd32.exe"
        Shell Acropad & " " & strItem, vbMaximizedFocus
    Next strItem
   End If
  End With
End Sub

 

[snb]

Je moet die wekker eens laten nakijken....

 

[NicoH1967]

Tot zover bedankt ik ga het uitproberen. Ik heb alleen nu geen windows pc en alleen een mac en dan werken de verwijzingen niet. Wellicht een tip ?? Anders ga ik hem maandag uitproberen. In ieder geval alvast bedankt en ik ga kijken of het lukt wat ik er mee voor ogen heb.:thumb:

 

[snb]

Sub M_snb()
    With Application.FileDialog(1)
        .AllowMultiSelect = True
        .InitialFileName = "G:\OF\*.pdf"
        If .Show Then
           For Each it In .SelectedItems
              ThisWorkbook.FollowHyperlink it
           Next
        End If
    End With
End Sub

 

[Senso]

@HSV

Het was meer een actie richting @Senso.

'Misschien dat computers in de toekomst nog hooguit anderhalve ton zullen wegen.'
"Popular Mechanics", 1949

'Ik zie geen enkele reden waarom iemand thuis een computer zou willen hebben.'
Ken Olson, stichter van Digital Equipment, 1977