---

2017-02-0908_59_39-Clipboard.jpg

Hallo Forum,

ich habe seit gestern eine Win10 Maschine mit R26 im Test. Leider funktionieren meine Macros nicht mehr.
Wie ihr im Bild seht, sind das ganz simple PRIVATE SUB Aufrufe an denen sich das Script stört.

Kann es sein, dass ich für meine Kombi meinen Code umstellen muss?
Die Verweise sind gleich wie in der letzten eingesetzten Version R22. Nur die Sprache im VBA Editor ist neu Deutsch.

Vielen Dank schon einmal

Norbert

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nachtrag der vielleicht noch wichtig ist:
Ich habe vba7.1 von den Installations CD's im Einsatz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Ist dies in allen CATVBA Makros der Fall, oder ist zB in diesem Modul/Form "Option Explicit" aktiviert, so dass alle Variable/Objekte zuvor deklariert sein müssen.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

der Fehler tritt bei allen Macros in WIN 10 auf.
Ich komme von einem Formular und vermute das sich da irgendetwas geändert hat.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe testweise eine neue Userform mit dem gleichen Aufrufen erstellt und die läuft ohne Probleme.
Anscheinend ist wirklich die User Form das Problem.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Sind denn alle notwendigen Referenzen (Tools -> References) aktiviert (ggf mit anderem Rechner vergleichen)?
Sind die Pfade zu den Bibliotheken korrekt (nicht dass noch auf ein altes Release verwiesen wird)?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

die Verweise waren alle da.
Was geholfen hat war, die Deklarationen "DIM as" auszukommentieren.
Das wissen die Fachleute hier wahrscheinlich.
Da es im alten Release funktioniert hat, hatte ich keine Notwendigkeit umzustellen.

Vielen Dank trotzdem

G

Norbert

[Diese Nachricht wurde von cmb am 09. Feb. 2017 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

kannst du kurz deinen Code für das Beispiel mit dem ExecuteScript posten.
Bei mir kommt immer Function nicht bekannt

Gruß
Manfred

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Norbert,

ich gehe davon aus, dass deine Declare Functions noch abgeändert werden müssen. Mit VBA 7.1 hat sich viel geändert.

hier mal zwei Beispiele:

Bei 64bit
    Declare PtrSafe Function GetTickCount64 Lib "kernel32"() As LongLong
Bei 32bit
    Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long

Bei VBA7
  Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" ( _
      ByVal lpClassName As String, _
      ByVal lpWindowName As String) As LongPtr
Bei VBA6
  Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
      lpClassName As String, ByVal lpWindowName As String) As Long

Ich gehe mal davon aus, dass diese Fehlermeldung sich nicht auf die Lib des angezogenen VBAŽs bezieht, sondern auf die Declare Function. Ich musste hier auch alles umstellen mit dem Umstieg von R19 auf R2016.

Kannst du denn das VBA anziehen und die definierte Funktion direkt starten? Hier müssten eigentlich bei Kompilierungsfehlern auch schon Probleme gemeldet werden.

HTH

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das mit den unterschiedlichen Declarationen hab ich schon bei einem vorigen Release gelöst...
Mein Problem aktuell ist genau der Codeschnipsel vom Threadersteller mit ExecuteSxript.
Das Problem hab ich aber nur auf einer Win10 Maschine unter Win7 läuft das Makro fehlerfrei...

Hier noch mein Code:
Sub HideShow()

Dim strProjekt As String    '
Dim strMakro As String
Dim strMakrostart As String
Dim strProjektpfad As String
Dim vntParameter() As Variant
Dim vntSystemService As Variant

strProjekt = "Hide_Show.catvba"
strMakro = "mod_hideshow"
strMakrostart = "CATMain"
strProjektpfad = "L:\cat\v5\makro\DTFW-Makro\Hide_Show" & "\" & strProjekt

Set vntSystemService = CATIA.SystemService
Call vntSystemService.ExecuteScript(strProjektpfad, catScriptLibraryTypeVBAProject, strMakro, strMakrostart, vntParameter)

End Sub

Fehlermeldung ist:
Unknown Marcofunktion CATMain

CATMain ist als Sub im Zielmakro vorhanden

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP