Makro soll entscheiden, ob Datei vorhanden :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werbung: CD/DVD Bedrucken Pressen Kopieren Hüllen

[Excel 2000] Makro soll entscheiden, ob Datei vorhanden

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

Bernd27
Office-Hilfe.com-Neuling

Anmeldedatum: 22.06.2009
Beiträge: 2

Verfasst am: 22.06.2009, 22:41

Ich brauche für ein Makro eine Abfrage die kontrolliert, ob im Verzeichnis C:\Daten eine bestimmte Exceldatei existiert - oder nicht. Wie kann ich das machen?

Embarassed

Bernd

Hajo_Zi
MVP für Microsoft Office Excel

Anmeldedatum: 26.05.2008
Beiträge: 1247
Wohnort: Neubrandenburg

Verfasst am: 23.06.2009, 05:24

Hallo Bernd,

Code:

Option Explicit

Sub Vorhanden_Datei()
' Fehler falls LW nicht vorhanden
If Dir(ThisWorkbook.Path & "\Almanach.xls", vbNormal) = "" Then
MsgBox "nicht vorhanden"
Else
MsgBox "vorhanden"
End If
End Sub

Sub Datei_vorhanden()
' von Berti Koern
Dim Fso As Object, Dateiname As String
Set Fso = CreateObject("Scripting.FileSystemObject")
Dateiname = "L:\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("C:\Eigene Dateien\", vbDirectory) <> "" Then
MsgBox "vorhanden"
Else
MkDir "L:\Eigene Dateien\"
MsgBox "nicht vorhanden"
End If
End Sub

Sub Ordner_vorhanden()
' von Berti Koern
Dim Fso As Object, Ordnername As String
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

Gruß Hajo

_________________
Betriebssystem: Windows 7 - 64 Bit, Office 2010. Bitte Version angeben. Bei keiner Angabe gehe ich von meinem Angaben aus. Mails nur nach Aufforderung.

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Excel öffnet XMl-Datei nicht	AvantiC	Microsoft Excel Hilfe	0	06.09.2010, 08:40
	Exel datei nach Text und Zahlenwerten...	foerstina	Microsoft Excel Hilfe	6	05.09.2010, 15:17
	Makro für Zahlenanordnung gesucht...	tobstein	Microsoft Excel Hilfe	5	27.08.2010, 07:16
	Daten aus Zwischenablage per Makro ei...	schelmno.1	Microsoft Excel Hilfe	8	26.08.2010, 17:06
	Makro zum löschen von Inhalten -DRINGEND	Excelking	Microsoft Excel Hilfe	2	26.08.2010, 16:09

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de