Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1056to1060
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

Exisitiert Datei?

Exisitiert Datei?
04.03.2009 14:32:13
Florian
Hallo liebes Forum,
ich will per Makro eine Art Katalog zusammenstellen, dazu soll für jeden Artikel (1 Artikel = 1 Worksheet) ein Foto eingef¨gut werden. Nun kann es sein, dass es zu einem Artikel mal kein Foto gibt (d.h. keinen entsprechende .jpg-Datei liegt im Ordner). In diesem Fall soll er ein (immer gleiches) Dummiebild eingefügt werden (dummy.jpg). Meine grosse Frage nun: wie fange ich die Info ab, ob die jpg-Datei existiert oder nicht?
Besten Dank schon mal!
Gruss Florian

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

Betreff
Datum
Anwender
Anzeige
AW: Exisitiert Datei?
04.03.2009 14:34:52
Hajo_Zi
Hallo Florian,

Option Explicit
Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
' nicht für Version 2007
If Dir(ThisWorkbook.Path & "\Adresse1.xls") Then
MsgBox "vorhanden"
Else
MsgBox "nicht vorhanden"
End If
End Sub
Sub Datei_vorhanden()
' von Berti Koern
Dim Fso, Dateiname
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "D:\Eigene Dateien\Hajo\Adresse.xls"
' Ergänzung öffnung Hajo
If Fso.FileExists(Dateiname) Then
Workbooks.Open Dateiname
End If
Set Fso = Nothing
End Sub
Sub Vorhanden_Phad()
' Fehler falls LW nicht vorhanden
If Dir("L:\Eigene Dateien\")  "" Then
MsgBox "vorhanden"
Else
MkDir "L:\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\"
Set Fso = Nothing
End Sub



Anzeige
AW: Exisitiert Datei?
04.03.2009 18:05:23
Florian
Hi Hajo,
besten Dank, kanns leider erst morgen testen.
Gruss Florian

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige