Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
On Error bei Öffnen von Word-Dokument
zurück: Formatieren einer Textboxeingabe weiter: problem mit do schleife Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
HerrLehmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2008, 11:38
Rufname:

On Error bei Öffnen von Word-Dokument - On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Hallo liebe Forumsmitglieder,

ich möchte mit meinem Excel-Programm eine Word-Vorlage öffnen und darin Daten aus der Excel-Tabelle einfügen. Das Programm funktioniert auch.
Falls der Pfad zu der Word-Vorlage nicht vorhanden sein sollte, soll dieser manuell eingegeben werden. Hierfür brauche ich eine Fehlerabfrage. Diese habe ich wie folgt geschrieben:

On Error GoTo Fehler
WordApp.Application.Documents.Open („C:\...\Vorlage.doc")

Wenn ich das Programm starte, wird nun trotzdem eine Fehlermeldung in der Zeile „WordApp.Application…“. Eigentlich müsste die „On Error GoTo Fehler“-Funktion diese doch abfangen, oder?

Viele Grüße
HerrLehmann
Gast



Verfasst am:
24. Apr 2008, 11:53
Rufname:


AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Hallo HerrLehmann,

was kommt denn für eine Fehlermeldung?
Hast Du die Sprungmarke "Fehler:" eingefügt?
Wenn ja, steht vor "Fehler" ein "Exit Sub"?

Gruss
Frank
frank1964
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2008, 11:55
Rufname:

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Schon wieder vergessen mich einzuloggen.
HerrLehmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2008, 12:00
Rufname:

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Der Fehler ist :

"Laufzeitfehler '5273'
Der Dokument- oder Pfadname ist ungültig..."

(was auch zutrifft, aber dieser Fehler soll ja abgefangen werden)

Sprungmarken habe ich definiert, einmal die zum Fehler und dann noch einmal ein GoTo zum Überspringen, sollte kein Fehler vorliegen. Daran sollte es also nicht liegen.

Mich wundert halt nur, dass ein Fehler angezeigt wird, obwohl der "On Error"-Befehl ja gerade einen Fehler in der nächsten Zeile abfangen soll.
mumpel
Fortgeschrittener


Verfasst am:
24. Apr 2008, 12:02
Rufname: René
Wohnort: Lindau (B)


AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Es gibt Fehler, welche auch mit dieser Zeile nicht abgefangen werden können. Poste doch mal den Code (nicht nur eine Zeile), dann können wir nachsehen.
_________________
Ich lade generell keine Beispieldateien herunter, die bei Filehostern abgelegt sind.
HerrLehmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2008, 13:08
Rufname:

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Hier der Code.



Code:
Sub Vollmacht_v1_erstellen()

Dim WordApp As Object
Dim BasisOrdner As String
Dim SpeicherOrdner As String
Dim Ordnerpfad
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)

SpeicherOrdner = ActiveWorkbook.Path & "\"
BasisOrdner = "N:"
Set dat = Application.FileDialog(msoFileDialogFolderPicker)

On Error GoTo SitzungEröffnen
    Set WordApp = GetObject("Word.Application")
    GoTo weiter

SitzungEröffnen:
Set WordApp = CreateObject("Word.application")

weiter:
With WordApp
    .Application.Visible = True
    .Application.Activate
End With

zurück:




' Hier kommt die entscheidende Stelle:



On Error GoTo OrdnerAuswählen
    WordApp.Application.Documents.Open (BasisOrdner & "\Gründungsunterlagen\Vollmachten und Ermächtigungen\Vollmacht_v1_gesmEV.doc")





    GoTo weiter2
   
OrdnerAuswählen:
MsgBox "Keine Vorlage gefunden. Bitte wählen Sie einen Ordner aus, in dem sich die Vorlagen befinden."
With dat
    .Title = "Netzwerk...."
    .InitialFileName = "n:\"
    If .Show = -1 Then
        BasisOrdner = .SelectedItems(1)
        MsgBox BasisOrdner
    End If
End With
GoTo zurück
weiter2:


With WordApp
    .ActiveDocument.Bookmarks("Name").Range.Text = Range("VollmachtName")
    .ActiveDocument.Bookmarks("Strasse").Range.Text = Range("VollmachtStrasse")
    .ActiveDocument.Bookmarks("Wohnort").Range.Text = Range("VollmachtWohnort")
    .ActiveDocument.Bookmarks("Aktenzeichen").Range.Text = Range("VollmachtAZ")
    .ActiveDocument.SaveAs SpeicherOrdner & "Vollmacht_v1_" & Range("Kürzel") & ".doc"
End With

   
Set WordApp = Nothing
   
End Sub
mumpel
Fortgeschrittener


Verfasst am:
24. Apr 2008, 14:09
Rufname: René
Wohnort: Lindau (B)

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Versuch's mal so:
Sub Vollmacht_v1_erstellen()
Dim WordApp As Object
Dim BasisOrdner As String
Dim SpeicherOrdner As String
Dim Datei As String
Dim Ordnerpfad
Dim dat
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
SpeicherOrdner = ActiveWorkbook.Path & "\"
BasisOrdner = "N:"
Set dat = Application.FileDialog(msoFileDialogFolderPicker)
On Error GoTo SitzungEröffnen
'Set WordApp = GetObject("Word.Application") 
'GoTo weiter 
SitzungEröffnen:
Set WordApp = CreateObject("Word.application")
weiter:
    With WordApp
        .Application.Visible = True
        .Application.Activate
    End With
Zurück:
Datei = BasisOrdner & "\Gründungsunterlagen\Vollmachten und Ermächtigungen\Vollmacht_v1_gesmEV.doc"
If Dir(Datei) <> "" Then
WordApp.Application.Documents.Open (Datei)
    With WordApp
        .ActiveDocument.Bookmarks("Name").Range.Text = Range("VollmachtName")
        .ActiveDocument.Bookmarks("Strasse").Range.Text = Range("VollmachtStrasse")
        .ActiveDocument.Bookmarks("Wohnort").Range.Text = Range("VollmachtWohnort")
        .ActiveDocument.Bookmarks("Aktenzeichen").Range.Text = Range("VollmachtAZ")
        .ActiveDocument.SaveAs SpeicherOrdner & "Vollmacht_v1_" & Range("Kürzel") & ".doc"
    End With
Set WordApp = Nothing
Else
MsgBox "Keine Vorlage gefunden. Bitte wählen Sie einen Ordner aus, in dem sich die Vorlagen befinden."
    With dat
        .Title = "Netzwerk...."
        .InitialFileName = "N:\"
       If .Show = -1 Then
         BasisOrdner = .SelectedItems(1)
         MsgBox BasisOrdner
       End If
       GoTo Zurück
    End With
End If
End Sub

_________________
Ich lade generell keine Beispieldateien herunter, die bei Filehostern abgelegt sind.
HerrLehmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
24. Apr 2008, 15:55
Rufname:

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Super, es klappt!!!
Nun hast Du das Problem mit einer Dir-Funktion gelöst. Hast Du eine Ahnung, warum es nicht mit der "on Error"-Funktion geklappt hat?
Naja. Aber es klappt ja auch so. Viele Dank für die Lösung!!

Viele Grüße
Lars
mumpel
Fortgeschrittener


Verfasst am:
24. Apr 2008, 16:01
Rufname: René
Wohnort: Lindau (B)

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Wie schon erwähnt, gibt es Fehler, welche nicht mit On Error abfangbar ist. Deine Zeile ist so ein Fehler. Weshalb das so ist, kann ich nicht sagen.
_________________
Ich lade generell keine Beispieldateien herunter, die bei Filehostern abgelegt sind.
Nepumuk
VB / VBA Programmierer


Verfasst am:
24. Apr 2008, 16:32
Rufname: Max
Wohnort: Dusseldoof

AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Hi ihr zwei,

der Fehler kommt von Word und nicht von Excel, denn du führst ja eine Word - Anweisung aus. Daher ist er auch in Excel nicht abfangbar. Das Err - Objekt ist Bestandteil der VBA - Object Library (Module Information) und jede Application hat ihren eigenen Verweis darauf. Übrigens, die ersten beiden Zahlen sind der eigentliche Fehlercode. In deinem Fall Fehler 5273 ~ 52 - Dateiname oder -nummer falsch.

_________________
De fontibus non est disputandum

Gruß
Nepumuk Cool
HerrLehmann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2008, 08:56
Rufname:


AW: On Error bei Öffnen von Word-Dokument - AW: On Error bei Öffnen von Word-Dokument

Nach oben
       Version: Office 2003

Danke. Wieder etwas gelernt.
Ihr seid echt super, was ihr alles wisst.

Gruß
HerrLehmann
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: beim Öffnen der Datei: I25 =1 2 Stoxxx 176 10. März 2011, 09:11
Stoxxx beim Öffnen der Datei: I25 =1
Keine neuen Beiträge Excel Formate: Zeilen einfärben beim Öffnen eines Excelsheets 15 Doomy 805 15. Feb 2011, 19:19
Gast Zeilen einfärben beim Öffnen eines Excelsheets
Keine neuen Beiträge Excel Formeln: Zähler beim Öffnen 2 Black Angel1 389 30. Jun 2010, 20:17
Black Angel1 Zähler beim Öffnen
Keine neuen Beiträge Excel Formate: Preise werden beim Öffnen zu Daten formatiert 5 Gast 480 16. Mai 2008, 15:41
< Peter > Preise werden beim Öffnen zu Daten formatiert
Keine neuen Beiträge Excel Formeln: Beim Öffnen der Tabelle,Öffnen sich weitere blätte 2 traum 297 11. März 2008, 20:53
traum Beim Öffnen der Tabelle,Öffnen sich weitere blätte
Keine neuen Beiträge Excel Formeln: Einzelne Arbeitsblätter mit Passwort vor dem Öffnen schützen 2 birdy222 2021 08. März 2008, 13:00
birdy222 Einzelne Arbeitsblätter mit Passwort vor dem Öffnen schützen
Keine neuen Beiträge Excel Formeln: SUMPRODUCT (mit Abfrage auf Datum Column - Error) 1 simonpfau 902 08. Feb 2008, 11:10
urs SUMPRODUCT (mit Abfrage auf Datum Column - Error)
Keine neuen Beiträge Excel Formate: Addin Eurotool.xla mit Öffnen *.xls entladen 3 MATZAKAN 6039 03. Mai 2007, 11:23
MATZAKAN Addin Eurotool.xla mit Öffnen *.xls entladen
Keine neuen Beiträge Excel Formeln: Makroabfrage beim Öffnen überspringen 1 Overtown 1093 22. März 2007, 14:03
hartmut112 Makroabfrage beim Öffnen überspringen
Keine neuen Beiträge Excel VBA (Makros): On Error GoTo funktionsweise? 1 katha 678 11. Okt 2005, 16:09
nitro_storm On Error GoTo funktionsweise?
Keine neuen Beiträge Excel VBA (Makros): Meldung über Makros beim Öffnen von Excel-Dateien 3 AMB 787 19. Sep 2005, 13:24
AMB Meldung über Makros beim Öffnen von Excel-Dateien
Keine neuen Beiträge Excel VBA (Makros): 'Öffnen routine' erzeugen 2 Gast 393 04. Aug 2005, 14:40
opelix221 'Öffnen routine' erzeugen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps