Hallo
Ich verwende ein Makro, um meine Stückliste zu generieren, und mein Makro wird nicht mehr gestartet.
Ich habe am Anfang einen Fehler.
Excell wird geöffnet , aber ich spiele mit der Anweisung "Set swModelDocExt = swModel.Extension" herum.
Ich verstehe es nicht, weil es bis dahin sehr gut funktioniert hat...
Könnten Sie mir bitte helfen, das Problem zu identifizieren?
Vielen Dank im Voraus
LSE
Option Explizit
Sub main()
Dim xlApp As Excel.Application
Legen Sie xlApp = Neue Excel.Anwendung fest
Dim wbk As Excel.Workbook
Dim sht As Excel.Arbeitsblatt
Dim swApp als SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swBOMAnnotation As SldWorks.BomTableAnnotation
Dim swBOMFeature As SldWorks.BomFeature
Dim boolstatus als boolescher Wert
BomType so lange dimmen
Konfiguration als Zeichenfolge dimmen
Dim TemplateName als Zeichenfolge
Dim TableTemplate als Zeichenfolge
Dim sFileName als Zeichenfolge
Dossier_Nomenclature als Zeichenfolge dimmen
Dim-Repertoire als Streicher
Sun Repertoire_Test als Boolescher Wert
Dim Fichier_ouvrir als Tanga
Dunkler fichier_complet als Tanga
MyError als Ganzzahl dimmen
MyWarning als Ganzzahl dimmen
Dim Nom_Fichier_Excell als Variante
Pfad als Zeichenfolge dimmen
Fichier_section_source als Zeichenfolge dimmen
Öffnen eines Excell-Blatts
Mit xlApp
. Sichtbar = Wahr
Legen Sie wbk = fest. Arbeitsmappen.Hinzufügen
Setze sht = wbk. ActiveSheet (Englisch)
Enden mit
' Abrufen von Montageinformationen
Set swApp = GetObject(, "SldWorks.Application")
Festlegen von swModel = swApp.ActiveDoc
Legen Sie swModelDocExt = swModel.Extension fest
sFileName = swModel.GetPathName '= Anzeigename der Assembly mit dem Pfad
Debug.Print sFileName
2022-04-08_15h58_44.png