PDF Datei aus ordner auslesen

[psychodennis89]

Hallo leute, ich habe ein Makro um eine Rechnung z.b. in einem Ordner unter dem Namen "Rechnung 20171.pdf" zu speichern. jetzt möchte ich gern eine Formel oder ein Makro erstellen welches die größte Datei in diesem Ordner ausliest und die nächste/fortlaufende Rechnungsnummer automatisch vergibt. wie kann ich das am besten realisieren?

[Fennek]

Hallo,

versuche:

Code:

Sub Fen()
'Orndner anpassen
f = Split(CreateObject("wscript.shell").exec("cmd /c dir ""c:\temp\Rechnung *.pdf"" /b/no").stdout.readall, vbCrLf)(0)
msgbox f
end sub

mfg

(Vorlage von snb)

[psychodennis89]

der angegebene code funktioniert leider nicht, bei diesem code wird die rechnung nur erneut, mit dersselben Rechnungsnummer erstellt,
das makro sollte auch automatisch beim öffnen ablaufen oder kann dies vielleicht auch über eine formel gelöst werden?

[RPP63]

Moin!
Über wie viele Rechnungen/Anno reden wir?
Unabhängig davon würde ich wie folgt formatieren:
20170001
(für max. 9999 Rechnungen)
Dann kannst Du anhand Fenneks Code einfach per Right(…,4) die letze Rechnungsnummer auslesen.

Gruß Ralf

[psychodennis89]

vielen dank, 9999 sollen reichen, in wie fern Right(4, )

[snb]

Keep it simple !
Erstelle eine Datei, z.B namens "G:\OF\20170000_snb"

Wie bekommt man nun jedesmal ein neue Rechnungsnummer ?

Code:

Sub M_snb()
   nr=val(dir("G:\OF\*_snb"))+1
  name "G:\OF\" & dir("G:\OF\*_snb") As "G:\OF\" & nr & "_snb"
End Sub

Wie machst du die Datei ?

Code:

sub M_snb()
  createobject("scripting.filesystemobject").createtextfile "G:\OF\" & format(date,"yyyy0000_") & "snb"
End Sub

[psychodennis89]

Hallo, so erstelle ich die Datei

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung " & Range("J12") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

  ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 4.2, 240, 327, 67.2 _
        ).Select
    Selection.ShapeRange.TextFrame2.TextRange.Font.Size = 48
    Selection.ShapeRange.TextFrame2.VerticalAnchor = msoAnchorMiddle
    Selection.ShapeRange.TextFrame2.TextRange.ParagraphFormat.Alignment = _
        msoAlignCenter
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "Kopie"
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5). _
        ParagraphFormat
        .FirstLineIndent = 0
        .Alignment = msoAlignCenter
    End With
    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 5).Font
        .NameComplexScript = "+mn-cs"
        .NameFarEast = "+mn-ea"
        .Fill.Visible = msoTrue
        .Fill.ForeColor.ObjectThemeColor = msoThemeColorDark1
        .Fill.ForeColor.TintAndShade = 0
        .Fill.ForeColor.Brightness = 0
        .Fill.Transparency = 0
        .Fill.Solid
        .Size = 48
        .Name = "+mn-lt"
    End With
    
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\denni\Desktop\Rechnung " & Range("J12") & " Kopie" & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True

Selection.ShapeRange.ScaleWidth 0.895412844, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.7142857143, msoFalse, msoScaleFromTopLeft
    Selection.Delete

[psychodennis89]

das wäre jetzt mein angepasster Makro code,


Sub RNNR()
   nr = Val(Dir("C:\Users\denni\Desktop\OF\*_snb")) + 1
  Name "G:\OF\" & Dir("C:\Users\denni\Desktop\OF\*_snb") As "C:\Users\denni\Desktop\OF\" & nr & "_snb"
End Sub




die erzeug leider nur ein fehler meldung (Laufzeitfehler 53)
und wo gebe ich ein, in welche zeile die neue Rechnungsnummer geschrieben werden soll ???

[RPP63]

Ich schlage vor, Du lädst mal Deine Datei hoch.
Sonst wird das hier eine Tapete.

[anklickbare Links]
Dateien hochladen

Beachte bitte:
Excel-Datei, kein Bild

Gruß Ralf

[snb]

Code:

Sub M_snb()
   nr = Val(Dir("C:\Users\denni\Desktop\*_snb")) + 1
   Name "C:\Users\denni\Desktop\" & Dir("C:\Users\denni\Desktop\*_snb") As "C:\Users\denni\Desktop\" & nr & "_snb"
  sheets(1).cells(4,4)=nr
End Sub

Und schau mal:
http://www.amazon.de/Excel-VBA-f%C3%BCr-...3527709282

Etwas genereller codiert:

Code:

Sub M_snb()
   c00 = CreateObject("wscript.shell").specialfolders(4) & "\"
   c01 = Dir(c00 & "*_snb")

   If c01 = "" Then CreateObject("scripting.filesystemobject").createtextfile c00 & Format(Date, "yyyy0000_") & "snb"
   If c01 = "" Then c01 = Format(Date, "yyyy0000")

   nr = Val(c01) + 1
   Name c00 & c01 As c00 & nr & "_snb"
   msgbox nr
End Sub