|
Hi,
was genau möchtest Du prüfen: (wo liegt das File)
a) ob Dein System die Exceldatei geöffnet hat
b) ob irgendjemand die Exceldatei geöffnet hat (bspw. über Freigabe oder auf Netzwerk liegend)
Setze in PPT den Verweis auf Excel (sodass Du die IntelliSense zur verfügung hast -> EarlyBinding):
PPT: Extras -> Verweise -> M$ Excel ... -> ok
Sub TestA
Dim xlApp as Excel.Application
DIm xlWkb as Excel.Workbook
Dim xlWks as Excel.Worksheet
'
'Dein Code in Abhängikeit ob a) oder b) zutrifft
'Achtung:es könnten zwei Instanzen aktiv sein (Stichwort: GetObject())
'öffne also die Datei und werte die Fehlermeldung dazu aus
End Sub
|