Office: (Office 2010) Laufzeitfehler 1004 ignorieren

Hallo Leute,
kann mir mal bitte jemand sagen, was ich in meinem Code falsch gemacht habe?
Ich habe zwar einen Code gefunden aber irgendwie passt das nicht ganz :-(


Befehl soll lauten;
Falls er die Datei "E:\Daten\Peter.xlsx" nicht findet, soll er einfach weitermachen und die Laufzeitfehlermeldung 1004 IGNORIEREN.



Sub MehrerePDfS()
' MehrerePDfS Makro
'
'
For j = 0 To UBound(MyArr)
Set ws = Nothing

On Error Resume Next
Set ws = Worksheets(MyArr(j))
On Error GoTo 0

If Not ws Is Nothing Then

Workbooks.Open Filename:= _
"E:\Daten\Peter.xlsx"
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("GuV").Activate
ChDir _
"E:\Daten\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Daten\Peter.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False
ActiveWindow.Close savechanges = False

End If
Next

Workbooks.Open Filename:= _
"E:\Daten\Christian.xlsx"
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Sheets("GuV").Activate
ChDir _
"E:\Daten\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"E:\Daten\Christian.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False
ActiveWindow.Close savechanges = False


End Sub

:)

 

prüfe mit Dir ob Datei vorhanden.
Code:

 

Lieber Hajo,
zunächst vielen Dank für deine Antwort!

Leider klappt das irgendwie nicht bei mir.
Wenn er die Datei nicht findet (aus welchen Grund auch immer) kommt weiterhin Laufzeitfehler 1004.


Das ist der Ausschnitt;

 

Dein Code steh nach End If, ich würde vermuten er gehört davor, da er nur ausgeführt werden soll falls Datei vorhanden.

 

Hi Hajo, ich hab den Code nach oben verschoben. MS Excel sagt "E:\.....Peter.xls" kann nicht gefunden werden. Überprüfen Sie die Rechtschreibung, oder verwenden Sie einen anderen Pfad. Das ist genau das, was ich verhindern will. Wenn er den genauen Pfad nicht findet, soll er weitermachen und nicht meckern.

 

ich stehe nicht in der Aufgabe drin. Die Msgbox ""E:\.....Peter.xls" kann nicht gefunden werden" sehe ich nicht in Deinem Code. Ich habe auch keine Ahnung mit was er weiter machen soll. Der Code muss dann nach End If.

 

Lieber Hajo,
lieben Dank für deine schnelle Antwort.
Vielleicht habe ich mich falsch ausgedrückt.

Hintergrund ist der:

- das Makro bezieht sich auf einen Ordner XYZ, wo 20 Excel-Datein jeden Monat hinzugefügt werden (im VBA-CODE hat jede Excel-Datei einen eigenen Pfad zum Ordner CXYZ)
- zum 01.01 eines Monats sollen bestimmte Tabellenblätter jeder einzelnen Excel-Datei ins PDF umgewandelt werden (meine Aufgabe)
Das ganze läuft einwandfrei unter der Voraussetzung, dass alle 20 Excel-Datein zum 01.01 vorliegen. ABBBERRR....

Das Problem ist, zum 01.01 liegen NICHT immer alle 20 Excel-Datein im Ordner XYZ (manche Mitarbeiter brauchen mehr Zeit)
aber ich muss trotzdem das Makro laufen lassen und die PDFS generieren - auch wenn am Ende z. B. nur 4 von 20 PDFs generiert werden.
Wenn z. B. am 01.01. Excel-Datei Nr.13.xls fehlt, dann meckert er, dass der Pfad nicht gefunden wurde (Datei fehlt ja im Ordner XYZ) und somit entsteht der Laufzeitfehler 1004.

Ich suche nun einen VBA-Code, damit das Makro z. B. dann einfach die Excel-Datei Nr.13 überspringt und weiter fortsetzt mit mit dem nächsten Pfad/Datei.

 

ich hätte das anders gelöst, alle Dateien in dem Ordner öffnen und PDF erzeugen.
Das ist aufwendig, dazu habe ich keine Zeit.

 

Wieso prüfst Du nicht als allererstens ob die benötigte Datei vorhanden ist?
Code:

Dazu braucht es kein FSO und auch sonst keine Kopfstände *wink.gif*

 

"alle Dateien in dem Ordner öffnen "
das hört sich doch gut an :-) ich wusste nicht, dass sowas möglich ist.

Ich brauche aus dem Ordner XYZ, die "Tabelle1", "Tabelle2", und "Tabelle3" jeder einzelnen Excel-Datei.
Am Ende muss ich also 20 PDF-Dokumente (weil 20 Excel-Datein) haben.

Wo finde ich solch einen Code?

 

so ist der Pfad / Datei definitiv da :-)

Code:

Gruß
woerny

 

er meckert bei ">" und sagt Variable erforderlich. Woran könnte das liegen?

 

ich habs mit On Error Resume Next probiert

laufzeitfehler kommt nicht mehr, aber es kommt die Fehlermeldung, dass PFad nicht gefunden wurde *frown.gif* echt ärgerlich. d sitzt man echt den halben tag

 

Hallo Leute,
kennt jemand vielleicht eine andere Lösung zur Umgehung der Fehlermeldung "Überprüfen Sie die Rechtschreibung, oder verwenden Sie einen anderen Pfad"

 

Hallo Name?,

zuerst mal die Frage: Inwiefern überschneidet sich diese Anfrage mit Deiner anderen, wo es auch um Erzeugung von PDFs geht? Nicht, dass hier doppelt und dreifach und dann noch aneinander vorbei gearbeitet wird.

Warum brauchst Du eine andere Lösung? Wende die, die vorgeschlagen wurden, doch einfach mal richtig an.

Schau doch mal:
Code:

DIR(...) gibt den Dateinamen zurück, sofern eine passende Datei gefunden wurde, andernfalls einen Leerstring ("").
Die Prüfung, ob die Datei gefunden wurde, muss also lauten:
Code:

oder:
Code:

Zudem hilft es wenig, im Verzeichnis "E:\Daten\" nach einer Datei zu suchen und diese dann unter "E:\" öffnen zu wollen. Die Pfadangabe sollte schon gleich sein.

Was ist MyArr?

Mal ein rudimentärer Code, um Deinen drumherumgebaut, wobei die unbekannten Dinge gelöscht sind - bei Bedarf wieder einfügen.

Code:

Grüße
EarlFred