datei vorhanden - prüfen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: datei vorhanden - prüfen von: Ingo
Geschrieben am: 30.03.2005 10:17:32

hallo
ich öffne per makro aus einer excel-datei eine zweite excel-datei mit folgendem makro.

Dim myFile As String, File As String, File2 As String, FILEPATH As String, PATH As String

File = ActiveSheet.Name & ".xls" 'name of source file
File2 = ActiveSheet.Name 'name of source sheet
Application.StatusBar = "accessing data of " & File & "...."
MsgBox "accessing data " & File & "..." & vbCr & vbCr
PATH = ThisWorkbook.PATH & "\" & File
myFile = PATH
Destination = ActiveWorkbook.Name
...

ich möchte aber noch ein überprüfung haben, bzw. eine meldung bei nicht vorhandener zweiter excel-datei.
kann mir bitte jemand helfen. stehe irgendwie auf dem schlauch...

danke

Bild


Betrifft: AW: datei vorhanden - prüfen von: Hajo_Zi
Geschrieben am: 30.03.2005 10:24:58

Hallo Ingo,

Option Explicit


Sub Vorhanden_Datei()
'   Fehler falls LW nicht vorhanden
    If Dir("D:\Eigene Dateien\Hajo\Adresse1.xls") <> "" Then
        MsgBox "vorhanden"
    Else
        MsgBox "nicht vorhanden"
    End If
End Sub



Sub Vorhanden_Phad()
'   Fehler falls LW nicht vorhanden
    If Dir("C:\Eigene Dateien\") <> "" Then
        MsgBox "vorhanden"
    Else
        MkDir "C:\Eigene Dateien\\"
        MsgBox "nicht vorhanden"
    End If
End Sub



Sub Ordner_vorhanden()
'   von Berti Koern
    Dim Fso, Ordnername
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Ordnername = "C:\Eigene Dateien\"
'    MsgBox Fso.FolderExists(Ordnername)
    If Fso.FolderExists(Ordnername) = False Then MkDir "C:\Eigene Dateien\"
End Sub



Sub Datei_vorhanden()
'   von Berti Koern
    Dim Fso, Dateiname
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
'   Egänzung öffnung Hajo
    If Fso.FileExists(Dateiname) Then
        Workbooks.Open Dateiname
    End If
End Sub



Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.




Bild


Betrifft: AW: datei vorhanden - prüfen von: Ingo
Geschrieben am: 30.03.2005 10:46:16

danke hajo für die schnelle antwort

habe teile von datei_vorhanden () eingebaut. funktioniert einwandfrei.
DANKE!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "datei vorhanden - prüfen"