Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
588to592
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
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

datei vorhanden - prüfen

datei vorhanden - prüfen
30.03.2005 10:17:32
Ingo
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

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

Betreff
Datum
Anwender
Anzeige
AW: datei vorhanden - prüfen
30.03.2005 10:24:58
Hajo_Zi
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.


Anzeige
AW: datei vorhanden - prüfen
30.03.2005 10:46:16
Ingo
danke hajo für die schnelle antwort
habe teile von datei_vorhanden () eingebaut. funktioniert einwandfrei.
DANKE!

98 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige