Fazit
Man sieht, es ist also relativ in VBA einfach zu überprüfen, ob ein Ordner existiert. Und man sollte davon regen Gebrauch machen, gerade dann, wenn es unsicher ist, ob das Verzeichnis schon angelegt worden ist oder der Ordnerpfad durch Benutzerangaben vorgegeben worden ist. Bestseller Nr. 2
Post Views:
5. 172
Vba Prüfen Ob Datei Vorhanden W
Das verstehe ich nicht. Viele Gre aus dem neuerlich verschneiten Karlsruhe
Verfasst am: 06. Mrz 2010, 16:50 Rufname:
Dim strPfadDuchsuchen As String
Dim strPfadUndDatei As String
Dim strPfad As String
Dim strDatei As String
strPfad = "D:\test\" 'immer mit \ am ende! strPfadDuchsuchen = strPfad & "~*"
strDatei = Dir(strPfadDuchsuchen, 63)
If Len(strDatei) > 2 Then
strPfadUndDatei = strPfad & strDatei
SetAttr strPfadUndDatei, vbNormal 'das "Versteckt" entfernen
Kill strPfadUndDatei
Verfasst am: 07. Mrz 2010, 23:49 Rufname:
Perfekt, danke!! Babio
Verfasst am: 18. VBA: Überprüfung, ob Datei existiert und Abfrage vor dem Überschreiben. Mai 2010, 13:37 Rufname:
Hallo zusammen,
ich habe ein hnliches Problem. Nur ist mir der absolute Pfad meiner Datei leider nicht bekannt. Ich arbeite zurzeit an einer Messdatenautomatisierung. Den Ordner, in dem sich die Auswertungs-Automatisierung befindet, soll man einfach zu den Messdaten kopieren und das ganze auswerten knnen => Pfad immer unterschiedlich. Habe mir das Ganze so vorgestellt:
for x = 1 to 15
15= maximale Anzahl der Messreihen, es knnen aber auch weniger sein, dann
existiert die dazugehrige Datei nicht.
Vba Prüfen Ob Datei Vorhanden Youtube
Im Falle einer Übereinstimmung wird der Rückgabewert auf wahr gesetzt. Anschließend beenden wir die Funktion. Dim Blatt As Worksheet
TabEx = False
For Each Blatt In heets
If = strTab Then
TabEx = True
Exit Function
End If
Next Blatt
111 VBA Makros die Ihr Leben leichter machen
Wollen Sie Ihre langweiligen Routineaufgaben loswerden? Möchten Sie Excel an Ihre Bedürfnisse anpassen, Berechnungen automatisieren, eigene Dialogfelder erstellen und vieles mehr? Dieses Buch zeigt Ihnen, wie Sie Ihre Aufgaben schnell und einfach mit VBA erledigen. Diese Funktion können Sie nun immer aus einem Makro aufrufen, wenn Sie auf eine Tabelle zugreifen. Zum Beispiel wenn Sie eine Tabelle löschen möchten oder Werte in eine Tabelle reinschreiben wollen. In diesen Fällen ist es sinnvoll sicherzustellen, dass die Tabelle überhaupt existiert. Anbei ein Beispiel-Makro, welches den Tabellen-Namen an die Funktion übergibt und den booleschen Wert zurückerhält. Vba prüfen ob datei vorhanden youtube. Sub TestTabelle()
If TabEx("Tabelle1") = True Then
MsgBox "Die Tabelle existiert"
Else
MsgBox "Die Tabelle existiert nicht"
End Sub
Wie Sie sehen existiert die Tabelle1 tatsächlich.
Ich habe es schon ohne Anführungsstriche versucht, mit verschiedenen Klammern und mit '= Dateiname Then', leider erfolglos
If Dir(" & Dateiname") = "" Then
MsgBox ("Achtung! Datei existiert bereits. Überschreiben? ") Else
ActiveSheet. ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Meinen bisherigen Recherchen zufolge kann das Problem nicht über ein Object gelöst werden, weil das für Excel für Mac nicht verfügbar ist. Auch bei Ron de Bruin habe ich mich schon umgeschaut und bin zu keiner Lösung gekommen. Hat jemand einen Lösungsvorschlag? Vorab schon mal vielen Dank und Grüße
MikroMeso
_____
Excel 2011 für Mac (14. 6. VBA - prüfen. ob eine Datei vorhanden ist - MS-Office-Forum. 3) auf Mac OS X (10. 9. 5)
Hi,
ich würde es so versuchen:
If Dir( & "\" & Dateiname) <> "" Then
Bis später,
Karin
Hallo Karin,
vielen Dank für deinen Vorschlag. Leider führt diese Zeile zu 'Laufzeitfehler "13": Typenkonflikt'
Wie gesagt arbeite ich auf Word für Mac und das scheint insbesondere bei der Pfadbezeichnung Eigenheiten zu haben.