Office: Dateien erkennen und mit fortlaufender Nummer speichern

Ich hab da eine Fragen für die ich auch trotz umfangreicher Suche hier im Forum keine passende Antwort gefunden habe, die ich umsetzen könnte.
Ich habe ein Formular (Dokumentenvorlage) erstellt, das automatisch den Inhalt von einem Textfeld plus das aktuelle Datum als Dateiname für ein neues Dokument verwendet und speichert.
Jetzt möchte ich, wenn ein neues Dokument erstellt wird, im vorgegebenen Speicherort nach einem gleichnamigen vorhandenem Dokument geprüft wird. Ist eine gleichnamiges Dokument vorhanden, soll das neue Dokument automatisch mit einer Höherzählung versehen werden. z.B.:

0123456789_01072005_00.dok
0123456789_01072005_01.dok
0123456789_01072005_02.dok
usw.

Leider bin ich zu wenig bewannt in VBA, als das mir die Tips von:
http://mypage.bluewin.ch/reprobst/WordFAQ/Index.htm
weiter helfen würden.

Ich wäre sehr dankbar, wenn mir hier jemand weiterhelfen kann.

:)

 

Hi,

habe mal soetwas zusammengebastelt.
Prüf mal, ob es passt.

Hinweise:
das Dokument muss bereits gespeichert worden sein.
Anstelle von c_Name musst Du irgendwie den Inhalt vom "Textfeld" einlesen

Code:

code colored by CHF code converter *top

HTH

 

Hallo Christian, *Smilie *Smilie *Smilie

vielen Dank für deine prompte Beantwortung meiner Frage. Hab alles mal so angepasst wie ich es brauche, und siehe da, es funktioniert tadellos.
Es ist einfach toll, wie ihr hier in diesem Forum drauf seid. Ich werde natürlich noch weiter rumstöbern, in der Hoffnung das ich das eine oder andere für mich Interessante noch finden werde.
Nochmals, vielen Dank

 

Hallo Christian,

ich habe mal die alte Anfrage von mir mit deiner Lösung ausgegraben. Es haben sich inzwischen veränderungen ergeben. Das Formular habe ich als Vorlage abgespeicher. Jetzt liegt sie auf einem Netzlaufwerk. Wenn ich jetzt speichere, wir die neue Datei immer auf dem lokalen Laufwerk C:\ abgelegt. Die Datei soll aber auf dem Netzlaufwerk und dem selben Ordner abgelegt werden, wo sich die Vorlage (Datei.dot) befindet. Habe schon einige probiert mit Pfad auslesen usw., komme aber nicht weiter.

Für eine weitere Hilfe bin ich sehr dankbar.

 

Hallo,
ich bin neu hier und hab auch dank diesem Beitrag ein Problem gelöst.
Ich wollte hier nur meine Lösung veröffentlichen

Code:

Zwar gibt es noch ein klitzekleines Problem und zwar sobald die Nummer 10 erreicht wurde er bei 2 hängen bleibt und somit das Protokoll 2 immer wieder überschreibt. Dazu muss ich auch noch einen Schutz einbauen, damit ich vor dem Überschreiben zumindest gefragt werde.

Ich bin mir sicher es gibt bessere Lösungsansätze, doch ist mit meinem bescheidenen zur Zeit nur dies möglich gewesen. Hätte auch tolle fertige Codes gefunden, doch habe ich diese nicht verstanden und somit bin ich meinen eigenen Weg gegangen.

P.S. es sind auch 2 Code Teile drin die mit der Funktion selbst nichts zu tun haben. Die Zeile gleich nach der 20 ist um abzufragen ob bei erfällen der Bedingung ein neues Protokoll erstellt werden soll, denn all dies läuft automatisch beim Öffnen der Datei durch. Dann bei Zeile 25 habe ich die Nummer des Zählers, welche mit der des Protokolls gleich ist der Textmarke PN zugeordnet.

Grüße
Eagle

 

Hallo zusammen,

da es hier in dem Chat genau um mein Problem ging, nämlich eine Nummerierung für gleiche Dateinamen zu kreieren, glaube ich, dass ich hier an der richtigen Stelle bin, auch wenn es schon lange her ist.

Ich bin blutiger VBA Anfänger, habe aber mit Stolz ein Programm geschrieben, welches mir in Outlook Anhänge markierter Mails automatisch im vorgegeben Pfad herunter lädt.
Habe auch schon herumprobiert, wo ich eure Ideen in mein Programm einpflegen kann. leider ohne Erfolg. Hier mein Programm:

Code:

An welcher Stelle müsste ich ansetzen, dass bei gleichen Dateinamen eine Nummerierung erfolgen kann. Hier ein Beispiel:

Dateiname (PDF) 1: GWI_D-AIPW
Dateiname 2: GWI_D-AIPW 2
usw.

Es kann davon ausgegangen werden, dass die Dateinamen vom Sender schon mit Dateiname 1 benannt wurde.

Besten Dank und viele Grüße

Sascha

 

Hallo und willkommen Sascha,

Du könntest eine Funktion wie diese in Dein Projekt aufnehmen: Code:

Zum Aufrufen musst Du nur diese Zeile Code:

ändern in Code:

 

Hallo haklesoft,

vielen Dank für den Lösungsansatz. Die positive Nachricht vorweg, es kommen schon mal keine Fehlermeldungen ;-) Das Programm macht aber leider noch nichts. Ich habe die Vermutung, dass dies vielleicht an dem Befehl Option Explicit liegen könnte, da vba diesen Befehl mit einer Linie vom eigentlich programmierten abkoppelt.

Ich habe es auch mit und ohne Backslash beim Pfad versucht, beides ohne Erfolg.

Nur um nochmal auf Nummer Sicher zu gehen... Die Function und das Sub werden in verschieden Module geschrieben oder ?

Viele Grüße

Sascha

 

Option Explicit schreibt man grundsätzlich im Modulkopf vor alle Deklarationen und Befehle.

Nein, wieso? Wenn Du das wolltest, müsstest Du die Funktion Public machen.

Vielleicht ist nur Dein Funktionsaufruf nicht korrekt?

 

Moin,

habe das jetzt ins selbe Modul geschrieben. Kenn das nur von Matlab, dass man eine Function aus einem anderen Modul aufrufen kann. Das Modul sieht nun so aus.. Habe ich die Function richtig plaziert ? Es passiert nach weiter herumprobieren nichts.

Code:

Grüße

 

Moin, moin,

da ich Deine Umgebung nicht nachstellen werde könntest Du Dich in der hohen Kunst des Debuggens üben.

Du könntest den Code im Einzelschritt(F8) durchlaufen und Dir dabei jeweils die Variablen und Ergebnisse anzeigen lassen. Oder setzte mit F9 Haltestellen um Codezeilen und Inhalte zu überprüfen.

Alternativ könntest Du Debug.Print's in Deinen Code einfügen um so z.B. strPfad zu überprüfen, strPfad mit Dir(strPfad, vbDirectory) auf Korrektheit checken, intAnlagen auszugeben, .Attachments.Item(i).FileName abzuklopfen und die Über- und Rückgabe sPath & sVor & c & sNach überprüfen.

Und ganz wichtig: On Error Resume Next muss deaktiviert werden sonst kannst Du nicht feststellen, was da falsch läuft.

Einen Verweis auf die Outlook-Bibliothek hast Du gesetzt?

Wenn Du den Modul-Code aber gar nicht in Word sondern in Outlook ausführst, musst Du dies ändern: Code:

 

Es ist der absolute Wahnsinn, es funktioniert jetzt tatsächlich, es hat an der Code Änderung, angepasst an Outlook, funktioniert :-) :-)

Unglaublich, was alles mögliche ist.

Ich bedanke mich vielmals für deine professionelle Unterstützung.

Viele Grüße, bis bald und einen schönen Tag wünscht

Sascha