Öffnen mehrerer Arbeitsmappen

Forumthread: Öffnen mehrerer Arbeitsmappen

Larissa

Hi,
Ich brauche noch eine Hilfe für das Finetunig in meines Werkes.
Über ein Hauptmenü möchte ich mit einem Makro 3 Arbeitsmappen öffnen, aber mit dem folgenden Makro öffne ich nur eine Mappe und ich weiß nicht genau, wie ich die zwei weiteren Mappen öffnen kann.
Nach dem öffnen der 3 Mappen soll das Hauptmenü geschlossen werden.

Sub oeffnen_mappen()
Dim sFile As String, sPath As String
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If WkbExists(sFile) = False Then
If Dir(sPath) = "" Then
MsgBox "Tabelle1" & sPath & " wurde nicht gefunden!"
Else
Workbooks.Open sPath
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
End If
Else
Workbooks(sFile).Activate
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
End If
End Sub

Vielen Dank und viele Grüße,
Larissa

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

da fehlte noch etwas..

Larissa
so müsste es funktionieren.

Tino

da fehlte noch etwas..

07.11.2009 11:40:36

Larissa

Sorry, dieses Teil fehlte noch zu dem Makro damit es funktioniert:

Private Function WkbExists(sFile As String) As Boolean
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks(sFile)
If Not wkb Is Nothing Then
WkbExists = True
End If
On Error GoTo 0
End Function

Gruß, Larissa

so müsste es funktionieren.

08.11.2009 11:57:08

Tino

Hallo,

Sub oeffnen_mappen()
Dim sFile As String, sPath As String
Dim sFehler As String
'erste Datei **********************************************************************
sFile = "Mappe1.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = "Tabelle1 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
'zweite Datei **********************************************************************
sFile = "Mappe2.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = sFehler & "Tabelle2 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
'dritte Datei **********************************************************************
sFile = "Mappe3.xls"
sPath = ThisWorkbook.Path & "\" & sFile
If Not WkbExists(sFile) Then
If Dir(sPath) = "" Then
sFehler = sFehler & "Tabelle3 '" & sFile & "' wurde nicht gefunden!" & vbCr
Else
Workbooks.Open sPath
End If
End If
If sFehler = "" Then
Workbooks("Hauptmenü.xls").Close SaveChanges:=False
Else
MsgBox sFehler, vbCritical, "Fehler"
End If
End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Forumthread: Öffnen mehrerer Arbeitsmappen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread