Also beim externen Script bekomme ich immer eine Fehlermeldung!?
Ich versuche aber nur ein Beispiel Script aus "erste Schritte" laufen zu lassen.
Und zwar dieses:
---------------------------------------------------------------------
Attribute VB_Name = "Modul1"
Dim E3 As e3Application
Dim prj As e3Job
Dim sht As e3Sheet
Dim dev As e3Device
Sub Start()
Set E3 = CreateObject("CT.Application")
Set prj = E3.CreateJobObject
Set sht = prj.CreateSheetObject
Set dev = prj.CreateDeviceObject
shtid = sht.Search(0, "NEU")
If (shtid = 0) Then
shtid = sht.Create(0, "NEU", "DINA3", 0, 0)
End If
ret = sht.SetAssignment("Anlage")
ret = sht.SetLocation("Steffen")
ret = sht.SetCompleteName("NEW", "-gg4ab647cdef",_
"#570768")
dev.Create "test", "", "", "5SG5573", "1", 0
dev.SetCompleteName "FUSE", "Anlage", "Ort"
Set E3 = Nothing
End Sub
---------------------------------------------------------------------
Und da bekomme ich immer eine Fehlermeldung!? Wie muss ich denn das Script genau starten?? Oder fehlt in dem Quellcode noch was oder ist ein Fehler drin?? Kann ich mir aber eigentlich nicht vorstellen, da es wie gesagt 1:1 übernommen wurde aus der Online-Hilfe.
thx
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP