mangler nr i mellem file navn

Her er en makro, der læser dem ind i et nyt ark, de skrives i A kolonnen, husk at rette stien i koden til jeres sti.


Public Sub TjekPdf()
    Dim strFilnavn() As Variant, myPath As String, NO As Integer
    Worksheets.Add
    [A1] = "Filnavn"
    myPath = "C:\data\" ' ret til din sti
    If Right(myPath, 1) <> "\" Then myPath = myPath & "\"
    '  Projekt = InputBox(" Indtast de første 4 tegn i filnavnet", "Filmaske, de første 4 tegn")

    ReDim Preserve strFilnavn(NO)
    strFilnavn(NO) = Dir(myPath & "*.pdf")    ' Hent den første filnavn.
    Do While strFilnavn(NO) <> ""  ' Start løkken
        If strFilnavn(NO) <> "." And strFilnavn(NO) <> ".." Then
            NO = NO + 1
            ReDim Preserve strFilnavn(NO)
        End If
        strFilnavn(NO) = Dir    ' Hent næste filnavn.
    Loop
    Range("A2:A" & NO + 2) = Application.WorksheetFunction.Transpose(strFilnavn)
End Sub

der var lige en rem linje, der skulle væk

Public Sub TjekPdf()
    Dim strFilnavn() As Variant, myPath As String, NO As Integer
    Worksheets.Add
    [A1] = "Filnavn"
    myPath = "C:\data\" ' ret til din sti
    If Right(myPath, 1) <> "\" Then myPath = myPath & "\"
    ReDim Preserve strFilnavn(NO)
    strFilnavn(NO) = Dir(myPath & "*.pdf")    ' Hent den første filnavn.
    Do While strFilnavn(NO) <> ""  ' Start løkken
        If strFilnavn(NO) <> "." And strFilnavn(NO) <> ".." Then
            NO = NO + 1
            ReDim Preserve strFilnavn(NO)
        End If
        strFilnavn(NO) = Dir    ' Hent næste filnavn.
    Loop
    Range("A2:A" & NO + 2) = Application.WorksheetFunction.Transpose(strFilnavn)
End Sub

Tak det funger findt, kan men ikke gøre det automatisk at finde nr.som ikke findes.
og hvordan sætter men 0 foren tal. fordi jeg har nogen fakt nr. med 0 foren og andre uden.
tak for hjælpen og et svar

Har du et eksempel på filnavn, der der f.eks. en underscore imellem nummer og dato

her eks.
247345_02-09-2008_AS
247270_02-09-2008_EV
066833_03-09-2008_AS
66834_03-09-2008_AV
AS=AS/400
AV=AVATIC
jeg har brugt (=venstre(a2;6)men med 66834 fejl fordi det er 5 tal ikke 6.

fejl med 66834_ er rettede fra nu af dvs. alle faktura har 6 tal. 0 foren tal er kreditnota.

Hvis du vil have det ud som tal
=VÆRDI(VENSTRE(A2;FIND("_";A2;1)-1))

som tekst

=VENSTRE(A2;FIND("_";A2;1)-1)

Det var lige det jeg sku brug. et svar tak

et svar ;-))