wie muss der Code lauten zum öffnen einer externen Arbeitsmappe?
Gruss
Bernd
Option Explicit
Sub tt()
On Error GoTo DateiNichtDa
Workbooks.Open "c:\deinemappe.xls"
On Error GoTo 0
'weiterer Code
Exit Sub
DateiNichtDa:
MsgBox "DateiNichtDa"
Resume Next
End Sub
Sub auf()
Const DATEI As String = "c:\deinemappe.xls"
If Not Dir(DATEI) = "" Then
Workbooks.Open DATEI
Else
MsgBox "Datei " & DATEI & " nicht gefunden!"
End If
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen