Application.Filesearch

[Stinger738]

goeiemiddag heren.

ik ben bezig met een programma te schrijven om bepaalde bestanden op een schijf te openen en die weer onder elkaar te zetten in een excel document.

op het moment ben ik bezig met het stukje van application.FileSearch hiervoor gebruik ik de volgende code:

Sub sBestandzoeken()

vPath = "K:\Data\Su-ict\(s)Systeembeheer\CSS\Beheer\CSS\Onderstations (Opto22)\Onderstation.Software"
TbxPath = ""

If vCancel = True Then
MsgBox "De routine is onderbroken en afgesloten"
Exit Sub
End If

vLengtePath = Len(vPath) + 1

sWistekst

Set fs = Application.FileSearch
With fs
    .LookIn = vPath
    .Filename = "*.xls"
    .SearchSubFolders = True
    If .Execute > 0 Then
        'MsgBox "There were " & .FoundFiles.Count & _
        " file(s) found."
        For i = 1 To .FoundFiles.Count
            'MsgBox .FoundFiles(i)
            vBestandsnaam = .FoundFiles(i)
            vLengte = Len(vBestandsnaam) - vLengtePath
            vDocumentnaam = Right(vBestandsnaam, vLengte)
            vLengte = Len(vDocumentnaam) - 4
            vLinknaam = Left(vDocumentnaam, vLengte)
            [B]ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
            vBestandsnaam, SubAddress:="", ScreenTip:="", TextToDisplay:= _
            vLinknaam[/B]
            Selection.EndKey Unit:=wdLine
            Selection.TypeParagraph
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

End Sub

ik kom niet uit het dik gedrukte deel.
het stukje code dat dik gedrukt is, is afkomstig uit een Word VBA document maar ik wil deze omzetten in een Excel VBA document maar op de een of andere reden kan ik het maar niet aan de praat krijgen.

ik wil dat hij alle paden die hij vind onder elkaar plaatst, in cel A1 en naar beneden.( A2 , A3 )

wie kan mij helpen?

Met Vriendelijke Groet.

Mitch

 

[etri]

Word werkt met Documents (documenten) en Excel met Worksheets. Dus je code gaat inderdaad niet werken!! De Hyperlinks propertie in Excel vraagt (volgens mij) ook andere (lees: minder?) parameters.

Deze code werkt wel:

    Dim x As Worksheet
    Dim oAnchor As Object
    Dim sAddress As String
    Dim sScreentip As String
    Dim sTextToDisplay As String
    
    Set x = ActiveSheet
    Set oAnchor = Worksheets(1).Range("E5")
    sAddress = "http://www.helpmij.nl"
    sScreentip = "Ga naar de Helpmij site voor al uw vragen..."
    sTextToDisplay = "Helpmij site"

    x.Hyperlinks.Add oAnchor, sAddress, , sScreentip, sTextToDisplay

 

[jofred]

Mitch/Stinger.

Misschien heb je iets aan bijgevoegd bestandje.
Je kunt in cel B1 de naam opgeven van de uit te lezen map (inclusief de submappen)
Geef je niets op, dan wordt de map waarin dit bestand staat uitgelezen.
In cel B2 geef je evt. op welke tekenreeks in de bestandsnaam moet staan.

Groet,

 

[Relleboer]

Ik den dat bijgevoegt bestand je heel ver op weg helpt. Ik heb het zelf al eens ergens gevonden weet alleen niet meer waar.

 

[CFF]

Ik den dat bijgevoegt bestand je heel ver op weg helpt. Ik heb het zelf al eens ergens gevonden weet alleen niet meer waar.

Dit is een heel mooi bestandje. Ik zou dit raag willen gebruiken om een (bestel)formulier te maken voor foto's die ik voor klanten gemaakt heb. Nu zijn de klanten alleen geinteresseerd in de naam van de foto en de rest van de directory hebben ze niet nodig.
Hoe kan ik dit bestandje aanpassen zodat het alleen de bestandsnaam weergeeft?

Ben een leek op dit gebied, maar probeer graag door vallen en opstaan dingen te leren. Hier kom ik echter niet uit.

Alvast hartelijk bedankt.

Jos