Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1080to1084
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Mappe öffnen

VBA Mappe öffnen
12.06.2009 15:27:33
Sprekelmeyer
Hi,
wenn ich eine Mappe öffne dann brauche ich ja diesen CODE:
Workbooks.Open Filename:= "G:\Mappe1.xls", UpdateLinks:=0
wenn sie bereits offen ist diesen CODE:
Workbooks("Mappe1.xls").Activate
Wie bekommt man es denn hin das das VBA sich den Code aussucht. Also wenn noch nie geöffnet dann Code 1 sonst Code 2?
MfG

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Mappe öffnen
12.06.2009 15:41:40
Wolli
Hallo Sprekelmeyer,

Sub test()
dim wb as workbook, _
geoeffnet as boolean
'feststellen, ob eine der offenen Mappen "Mappe1.xls" heißt
for each wb in application.workbooks
if wb.name = "Mappe1.xls" then geoeffnet = true
next wb
'entsprechend reagieren
if geoeffnet then
workbooks("Mappe1.xls").Activate
else
Workbooks.Open Filename:= "G:\Mappe1.xls", UpdateLinks:=0
end if
End Sub


Gruß, Wolli

AW: VBA Mappe öffnen
12.06.2009 15:44:45
hary
Hi versuch mal.

Sub offen()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = Range("A1") & ".xls" Then 'gesuchter Mappen Name in A1
MsgBox "schon geöffnet" 'hier Dein Coe fuer offene Mappe
Exit For
Else
MsgBox "nicht geöffnet" 'hier Dein Coe fuer geschlossene Mappe
End If
Next wb
End Sub


Gruss hary

Anzeige
AW: warum so kompliziert?
12.06.2009 15:46:38
Marc
so und ganz fix...

Sub check_datei()
Dim wkb As Object
On Error Resume Next
Set wkb = Workbooks("G:\Mappe1.xls")
If Err = 0 And Not wkb Is Nothing Then
MsgBox "offen!"
Else
MsgBox "geschlossen!"
End If
End Sub


AW: @ Marc
12.06.2009 16:13:04
hary
Hi Mark
warum so kompliziert? Und wenn' mal Mappe 1 und beim naechsten mal Mappe 2. ?
hat NoNet super geloest.
Gruss hary
Prüfen, ob Mappe geöffnet ist
12.06.2009 15:47:55
NoNet
Hallo S.,
das kannst Du z.B. mit folgendem Code lösen :
VBA-Code:
Sub MappeOeffnen()
    'Prüft, ob eine Mappe bereits geöffnet ist
    'falls nicht : Prüft, ob Mappe als Datei im angegebenen Ordner existiert
    'und öffnet diese Mappe falls vorhanden
    '12.06.2009, NoNet
    Dim strOrdner As String, strdateiname As String
    Dim wbMappe As Workbook
    strOrdner = "C:\Dein\Ordner\" 'Mit "\" am Ende !
    strdateiname = "Auswertung.xls"
    On Error Resume Next 'Fehlerbehandlung
    Set wbMappe = Workbooks(strdateiname)
    If Not wbMappe Is Nothing Then
        wbMappe.Activate
        MsgBox "Mappe ist bereits geöffnet !"
    Else
        'Wenn Mappe noch nicht geöffnet ist
        If Dir(strOrdner & strdateiname) <> "" Then
            'Mappe aus o.g. Ordner öffnen :
            Set wbMappe = Workbooks.Open(strOrdner & strdateiname, UpdateLinks:=False)
        Else
            MsgBox "Folgende Datei existiert nicht : " & vbf & vbLf & _
                strOrdner & strdateiname, vbOKOnly + vbCritical, "Datei nicht gefunden !"
        End If
    End If
    'Speicher für Objektvariable wieder freigeben :
    Set wbMappe = Nothing
End Sub
Gruß, NoNet
AW: Prüfen, ob Mappe geöffnet ist
Sprekelmeyer

Super für die spitzen hilfe.
Danke.
Anzeige
AW: Prüfen, ob Mappe geöffnet ist
12.06.2009 15:59:23
Sprekelmeyer
Super für die spitzen hilfe.
Danke.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige