Office: (Office 2013) Ordner erstellen mit mehreren Formularfeldern

ebs17 · 2. November 2014

Zeigt mir aber leider keine Zeile an, wo der Fehler aufgetretet ist.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielleicht dann eher, wenn die Fehlerbehandlung testweise auskommentiert wird
Code:

'On Error GoTo ErrHandler
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... oder wenn die Fehleranzeige umgestellt wird:
VBA-Editor / Extras / Optionen / Registerkarte Allgemein:
Unterbrechen bei Fehlern => Bei jedem Fehler

Kyron9000 · 2. November 2014

...nochmal den kompletten Code, den ich jetzt getestet habe, wobei ich mich dunkel erinnern kann,
das mit den Bookmarks schon mal anders erstellt zu haben.
Lösche mal den Ordner Angebot komplett und führe dann erst den Code aus....
Code:

Private Sub Befehl356_Click()
On Error GoTo ErrHandler
Dim objWord As Object
Dim strPfad As String
Dim strVorlage As String
Dim strZieldatei As String

If IsNull(Me!sk_Kundennummer) Then _
MsgBox "Fehler: es fehlt die Kundennummer!": Exit Sub

' Pfad zusammmensetzen aus Konstanten und Formularfeld
strPfad = "C:\Users\xxx\Desktop\Firma\xxx\sk_Abrechnungen\" _
& Me!sk_Kundennummer _
& "_" & Me!LS_Straße _
& "_" _
& Me!LS_Ort & "\"

' Pfad prüfen und ggf Verzeichnise erstellen
If Dir(strPfad) = "" Then MkDir strPfad
If Dir(strPfad & "Angebot\") = "" Then MkDir strPfad & "Angebot\"

' Variable befüllen
strVorlage = "C:\Users\xxx\Documents\Vorlage.docx"
strZieldatei = strPfad & "Angebot\" _
& "AG" & "_" _
& Me!sk_Kundennummer & "_" _
& Me!LS_Straße & "_" _
& Me!LS_Ort & ".doc"

' Zieldatei schon vorhanden, wenn ja aussteigen
If Dir(strZieldatei) "" Then _
MsgBox "Fehler: Datei ist schon vorhanden!": Exit Sub

' Worddatei aufrufen und befüllen
Set objWord = CreateObject("word.application")
With objWord
.Visible = True ' kann im Betrieb auf False gesetzt werden
.Documents.Add (strVorlage)
.ActiveDocument.Bookmarks("Anrede").Select: .Selection.Text = "Anrede"
.ActiveDocument.SaveAs strZieldatei
End With
objWord.Quit
Exit_ErrHandler:
Set objWord = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description
Resume Exit_ErrHandler
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

PS: habe jetzt nochmal kontrolliert und habe es schon mal so erstellt und hat funktioniert,
ev. nicht mehr in .docx?...
Code:

.Bookmarks("Anrede").Range = ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

AccUser2013 · 2. November 2014

Hab On Error GoTo ErrHandler deaktiviert,

der Fehler liegt bei:

Code:

' Pfad prüfen und ggf Verzeichnise erstellen
If Dir(strPfad) = "" Then MkDir strPfad
If Dir(strPfad & "Angebot\") = "" Then MkDir strPfad & "Angebot\"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Fehler Beschreibung:
Habe ich einen neuen Datensatz angelegt, wird automatisch damit ein
neuer Ordner erstellt, drücke ich auf den Button sagt Access mir dann Laufzeitfehler 75: Fehler beim Zugriff auf Pfad/Datei. Also angeblich ist der neue Ordner nicht zu finden. Wo der AngebotsOrdner und Angebot hin soll.

Lösche ich den neu angelegten Ordner komplett, und drücke dann wieder auf den Button wird der Ordner genau im gleichen
Pfad und unter den genau dem gleichen Namen erstellt + Ordner "Angebot" und die Vorlage Datei wird mit richtigen Namen kopiert.

Diesen Fehler verstehe ich wirklich nicht. Hoffe euch sagt er was, wie gesagt, um den Fehler heraus zu bekommen, wäre ich auch bereit, die Datenbank per PN zu versenden.

ebs17 · 2. November 2014

Du prüfst das Vorhandensein einer Datei. Die Prüfung auf ein Verzeichnis würde so aussehen:
Code:

If Dir(strPfad, vbDirectory) = "" Then MkDir strPfad
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zusatz: Wenn Du mehrere Verzeichnisebenen auf einmal erstellen willst, könntest Du auch die Windows-API MakeSureDirectoryPathExists verwenden.

AccUser2013 · 7. Januar 2021

von ebs17

Du prüfst das Vorhandensein einer Datei. Die Prüfung auf ein Verzeichnis würde so aussehen:
Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If Dir(strPfad, vbDirectory) = "" Then MkDir strPfad
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Super, nun funktioniert die Funktion, jetzt musste ich noch meine Textmarken befüllen. Habe nun folgenden Code:

Code:

' Worddatei aufrufen und befüllen
Set objWord = CreateObject("word.application")
With objWord
.Visible = True ' Info: True öffnet das Dokument, False zeigt das Dokument nicht an.
.Documents.Add (strVorlage)
With .ActiveDocument
.Bookmarks("Anrede").Range.Text = Nz(Me!Anrede_1, "")
.SaveAs strZieldatei
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies wird nun mein letzter Beitrag zu diesem Thema werden. Auf diesem Wege bedanke ich mich bei allen die sich um mein Problem gekümmert haben. Ihr habt mir wirklich sehr geholfen und durch eure Beschreibung konnte ich gut daraus lernen.

Euch eine schöne Woche!

Office: (Office 2013) Ordner erstellen mit mehreren Formularfeldern

Ordner erstellen mit mehreren Formularfeldern

Ordner erstellen mit mehreren Formularfeldern

Ordner erstellen mit mehreren Formularfeldern

Ordner erstellen mit mehreren Formularfeldern - Similar Threads - Ordner erstellen mehreren

Ordner mit Unterordner per VBA erstellen

Verwenden von Ordnern zum Erstellen von schreibgeschützten Dateien für Kursteilnehmer oder ...

Erstellen eines Ordners in Outlook

Erstellen und Freigeben eines öffentlichen Ordners in Outlook

Erstellen eines neuen Ordners

Ordner erstellen

Outlook IMAP lokalen Ordner erstellen