Ich konnte es nicht gleich testen, aber jetzt wird es noch lustiger:
Ich habe nun das Skript so ergänzt:
Code:
Dim pm as Object
'MsgBox "a"
Set pm = CreateObject("PlanMaker.Application")
'MsgBox "b"
pm.Application.Visible = True
'MsgBox "c"
foo = pm.Application.ActiveWorkbook.FullName
'MsgBox "d"
pm.ActiveWorkbook.Save
'MsgBox "e"
pm.ActiveWorkbook.SaveAs "C:\Dokumente und Einstellungen\Peter\Eigene Dateien\shop\shopartikel.csv", pmFormatPlainTextAnsi
'MsgBox "f"
pm.ActiveWorkbook.Close smoDoNotSaveChanges
'MsgBox "g"
pm.Workbooks.Open foo
'MsgBox "h"
pm.ActiveWorkbook.Saved = True
Sobald ich eine Box aus der Auskommentierung rausnehme, egal welche, dann kommt die Fehlermeldung nicht mehr.
Dies wäre schon ein Fortschritt, statt 13 mal die Fehlermeldung wegzuklicken könnte ich mir jedesmal auch einen schönen Tag wünschen
und nur einmal die Box wegklicken.
Trotzdem wundert mich das! Auf einer Version von SMO (rev. 584) auf einen anderen Rechner funktioniert es tadellos.
Anmelden
Registrieren
FAQ
Suche
, könnte ich ja dann die jeweils nächste testen.