Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1352to1356
1352to1356
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dir Funktion aus Excel 4 Win macht Fehler im MAC

Forumthread: Dir Funktion aus Excel 4 Win macht Fehler im MAC

Dir Funktion aus Excel 4 Win macht Fehler im MAC
26.03.2014 19:38:33
Thomas
Hallo,
habe Probleme, ein unter Excel 2010 unter WIndows geschriebenes Makro auf einem MAC zum Laufen zu bekommen... Es soll in einem Verzeichnis geprüft werden, ob die Datei
"2014.03.xlsm" existiert.
"Produktionsdatei" = aktuelles Datum
Mit ChDir wechsele ich jeweils im entsprechenden Syntax (WIN oder MAC korrekt in das Verzeichnis "WINPfad" oder "APPLEPfad"
WINDOWS VARIANTE (OK):
If Dir(WINPfad, Format(Produktionsdatei, "yyyy.mm") & ".xlsm") = "" Then
MsgBox "Datei fehlt!", vbExclamation
Exit Sub
End If
APPLE "VERSUCH" (nicht OK):
If Dir(APPLEPfad, MacID(Format(Produktionsdatei, "yyyy.mm")) & ".xlsm") = "" Then
MsgBox "Datei fehlt!", vbExclamation
Exit Sub
End If
Aplle erkennt NIEMALS das Vorhandensein der Datei!!!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dir Funktion aus Excel 4 Win macht Fehler im MAC
26.03.2014 22:37:16
KlausF
Hallo Thomas,
so sollte es unter dem Mac klappen:
https://www.herber.de/bbs/user/89868.xls
Alternativ könntest Du auch über Applescript in VBA gehen:
Sub CeckIfFileExistsOnMac()
Dim Filestr As String
Dim scriptToRun As String
Dim Result As Boolean
Filestr = "Mac:Users:Klaus:Documents:2014.03.xlsm"  'Pfad anpassen
scriptToRun = scriptToRun & "tell application " & Chr(34) & "Finder" & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "exists file " & Chr(34) & Filestr & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "end tell" & Chr(13)
Result = MacScript(scriptToRun)
MsgBox Result
End Sub
Gibt den Wert WAHR oder FALSCH zurück
Gruß
Klaus
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige