16.11.2018, 11:31
Hi,
von Herber habe ich diesen Code:
Damit bekomme ich die Datei geöffnet und in den Vordergrund geholt. Ich möchte sie aber nur als Datenquelle nutzen.
Wie kann ich es nun machen, daß diese Datei dann ausgeblendet, also nicht sichtbar ist?
von Herber habe ich diesen Code:
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 SubDamit bekomme ich die Datei geöffnet und in den Vordergrund geholt. Ich möchte sie aber nur als Datenquelle nutzen.
Wie kann ich es nun machen, daß diese Datei dann ausgeblendet, also nicht sichtbar ist?