wild card ?

[thst]

Hallo Allemaal,

Ik verzend vanuit Excel automatisch een e-mail met een bijlage.
maar ik heb meerdere bijlagen met testa.pdf, testb.pdf

nu gebruikte ik in VBA als naam test* maar dat werkt niet.

Wie heeft de oplossing ?

Angela

 

[wiki]

Je vraag is voor mij onduidelijk. Waarom gebruik je test* als je weet hoe de bestanden heten. Of moeten de bijlagen nog gemaakt worden?

gr wim

 

[thst]

Wat is er niet duidelijk aan ?

nu wordt een bijlage bij de mail toegevoegd, naam + a
maar het zou kunnen dat er nog een bestand met naam + b is.
dan zou die ook als bijlage verstuurt moeten worden.

vandaar mijn vraag of er voor VBA ook een wildcard oplossing is.


Angela

 

[Wigi]

Gebruik Dir of FileSearch (deze laatste niet in Excel 2007) om een lijst van bestanden in een map te 'genereren'.

 

[thst]

Wigi,

Ik heb geen idee hoe ik dat zou moeten aanpakken.

Angela

 

[Wigi]

Wigi,

Ik heb geen idee hoe ik dat zou moeten aanpakken.

Angela

Ik ook niet op de pakweg 2,5 minuut tijd die jij er nu aan "besteed" zou hebben.

 

[thst]

Wigi,

Om eerlijk te zijn; ik snap niet helemaal wat je bedoelt.
De bestanden waar het om gaat staan al in een map.

Angela

 

[Wigi]

Ik bedoel dat je je moet informeren naar de mogelijkheden van Dir (werkt in alle recente Excel versies) en/of Application.FileSearch (werkt niet meer in Excel 2007).

Wigi

 

[thst]

Wigi,

Ik heb nu een code die vind alle bestanden in de map, maar hij plaatst ze in een box,
zo kan ik er niet veel mee, zouden ze ook in excel in kolom A kunnen komen ?

Sub Folder_Namen_Ophalen()

Dim bestand As String
Dim Result As String
bestand = Dir("d:\test\*") 'wijzigen welke je wil
Do Until bestand = ""
Result = Result & bestand & vbCr
bestand = Dir() ' volgende
Loop

MsgBox Result
End Sub


Angela

 

[Warme bakkertje]

Sub Folder_Namen_Ophalen()
    fn = Dir("D:\Test\*.pdf")
    Do While fn <> ""
        myResult = myResult & fn & "|"
        fn = Dir()
     Loop
    [a1].Resize(UBound(Split(myResult, "|"))) = WorksheetFunction.Transpose(Split(myResult, "|"))
End Sub

 

[thst]

Warm Bakkertje,

Als ik de code nog eens opstart blijven de vorige gegevens staan.
Is het ook mogelijk dat ze leeg gemaakt worden ?

Angela

 

[Warme bakkertje]

Zet bovenaan

[A1].currentregion.clearcontents

Zorg er dan wel voor dat Kolom A geen aangrenzende kolom heeft of die is ook leeg

 

[snb]

@Rudi

mooie code :thumb:

 

[Warme bakkertje]

Beste snb, ik heb het afgelopen jaar niets anders gedaan dan jouw codes lezen, dus ergens zal er al wel eens iets blijven hangen zeker

 

[thst]

Warme bakkertje,

De aangrenzende kolom is leeg en krijg toch een error !


Angela

 

[Warme bakkertje]

Sub Folder_Namen_Ophalen()
    [a1].CurrentRegion.ClearContents
    fn = Dir("D:\Test\*.pdf")
    Do While fn <> ""
        myResult = myResult & fn & "|"
        fn = Dir()
     Loop
    [a1].Resize(UBound(Split(myResult, "|"))) = WorksheetFunction.Transpose(Split(myResult, "|"))
End Sub