Dateiname wird per VBA generiert, wie erweitern?
- Ersteller Peter1984
- Erstellt am
Peter1984
Grand Admiral Special
Hi, folgenden Code-Schipsel habe ich von einem Studienkollegen programmiert bekommen:
Die Datei, die generiert wird, hat das Format Jahr-Rechnungsnummer.docx (z.B. 2010-1234.docx).
Es wäre schön, wenn nach der Rechnungsnummer noch der Eintrag aus "<<line1>>" stehen würde, z.b. 2010-1234-Kunde.docx.
Code-Zeile ist müsste die 4. von unten sein.
Kriegs aber leider nicht hin, kann mir bitte jemand kurz auf die Sprünge helfen?
Danke schonmal!
Code:
Sub businessBill()
Dim wdObject As Object
Dim rechnungsnr As String
Set wdObject = CreateObject("Word.Application")
wdObject.Visible = False
wdObject.Documents.Open (Application.ActiveWorkbook.Path & "\Rechnungsvorlage-gewerblich.dotx")
If (Cells(Application.ActiveCell.Row, 3).Value <> "" And Cells(Application.ActiveCell.Row, 4).Value <> "") Then
Set wdObject = replaceText(wdObject, "<<line1>>", Cells(Application.ActiveCell.Row, 2))
Set wdObject = replaceText(wdObject, "<<line2>>", "z.H. " & Cells(Application.ActiveCell.Row, 3) & " " & Cells(Application.ActiveCell.Row, 4))
Set wdObject = replaceText(wdObject, "<<line3>>", Cells(Application.ActiveCell.Row, 5))
Set wdObject = replaceText(wdObject, "<<line4>>", Cells(Application.ActiveCell.Row, 6) & " " & Cells(Application.ActiveCell.Row, 7))
Else
Set wdObject = replaceText(wdObject, "<<line1>>", Cells(Application.ActiveCell.Row, 2))
Set wdObject = replaceText(wdObject, "<<line2>>", Cells(Application.ActiveCell.Row, 5))
Set wdObject = replaceText(wdObject, "<<line3>>", Cells(Application.ActiveCell.Row, 6) & " " & Cells(Application.ActiveCell.Row, 7))
Set wdObject = replaceText(wdObject, "<<line4>>", "")
End If
rechnungsnr = getBillNumber
Set wdObject = replaceText(wdObject, "<<kdn>>", Cells(Application.ActiveCell.Row, 1))
Set wdObject = replaceText(wdObject, "<<rnr>>", DatePart("yyyy", Date) & "-" & rechnungsnr)
Set wdObject = replaceText(wdObject, "<<datum>>", Date)
wdObject.ActiveDocument.SaveAs (Application.ActiveWorkbook.Path & "\" & DatePart("yyyy", Date) & "-" & rechnungsnr & ".docx")
wdObject.Visible = True
incrementBillNumber
End SubDie Datei, die generiert wird, hat das Format Jahr-Rechnungsnummer.docx (z.B. 2010-1234.docx).
Es wäre schön, wenn nach der Rechnungsnummer noch der Eintrag aus "<<line1>>" stehen würde, z.b. 2010-1234-Kunde.docx.
Code-Zeile ist müsste die 4. von unten sein.
Kriegs aber leider nicht hin, kann mir bitte jemand kurz auf die Sprünge helfen?
Danke schonmal!
Dematerialisierer
Commodore Special
Zuletzt bearbeitet:
Peter1984
Grand Admiral Special
Wie du Recht hast!
Problem gelöst, vielen Dank!
Problem gelöst, vielen Dank!
Dematerialisierer
Commodore Special
Gerne! 
Gruß
Gruß
Peter1984
Grand Admiral Special
Abschuss wäre jetzt noch das Tagesdatum im Dateinamen! 
Dematerialisierer
Commodore Special
Ändere einfach:
...& "-" & KNr & ".docx" in
...& "-" & KNr & "-" & Date & ".docx"
Das wäre dann ...-24.02.2010.docx
- Hat Dein Kollege ja auch schonmal verwendet. Date macht dasselbe wie "= HEUTE()" in Exceltabellen!
Gruß
EDIT:
Wobei ich irgendwie Unterstriche statt Bindestrichen nehmen würde - aber das kannst Du ja bei Bedarf beliebig anpassen!
Das System bleibt ja immer gleich: in *" "* kommt der Text / *ohne " "* dann die Variablen (Deine oder Programmeigene wie Date) / dann einfach den Plunder mit *&* verbinden!
...& "-" & KNr & ".docx" in
...& "-" & KNr & "-" & Date & ".docx"
Das wäre dann ...-24.02.2010.docx
- Hat Dein Kollege ja auch schonmal verwendet. Date macht dasselbe wie "= HEUTE()" in Exceltabellen!
Gruß
EDIT:
Wobei ich irgendwie Unterstriche statt Bindestrichen nehmen würde - aber das kannst Du ja bei Bedarf beliebig anpassen!
Das System bleibt ja immer gleich: in *" "* kommt der Text / *ohne " "* dann die Variablen (Deine oder Programmeigene wie Date) / dann einfach den Plunder mit *&* verbinden!
Zuletzt bearbeitet:
Peter1984
Grand Admiral Special
Danke! 
Man lernt halt einfach nicht aus - ist aber auch gut so!
Man lernt halt einfach nicht aus - ist aber auch gut so!
Dematerialisierer
Commodore Special
Danke!
Man lernt halt einfach nicht aus - ist aber auch gut so!
Das stimmt - hab schon mehr als einmal in die Tastatur gebissen weil mit VBA irgendetwas mal wieder nicht gefunzt hat!
Aber mit solchen kleinen Programmen lernt man das wesentlich besser als mit Büchern oder in Vorträgen! - Immer ordentlich rumprobieren!
Gruß
Peter1984
Grand Admiral Special
Wie würde es dann auf englischen Systemen am besten gelöst?
Dematerialisierer
Commodore Special
Wie auf der Arbeit!
Stimmt aber leider. Mal abgesehen von den Versionsproblemen kann man selbst bei kleinsten Schlupflöchern im Code davon ausgehen, daß der DAU-Kollege gegenüber die Datei zerschießt!
Mach's z.B. halt so:
...& "_" & Format(Date, "DD_MM_YYYY") & ".docx"
Im Roten kannst Du das Format dann exakt nach Deinem Gusto ändern (Binde- statt Unterstriche / 10 statt 2010 usw.)!
Gruß
Zuletzt bearbeitet:
Ähnliche Themen
