Hallo
Ik gebruik een macro om mijn stuklijst te genereren en mijn macro wordt niet meer gestart.
Ik heb een bug in het begin.
Excell opent , maar ik knoei met de instructie "Set swModelDocExt = swModel.Extension"
Ik begrijp het niet, want het werkte tot dan toe heel goed...
Kunt u mij alstublieft helpen het probleem te identificeren?
Bij voorbaat dank
LSE
Optie Expliciete
Sub hoofd()
Dim xlApp als Excel.Application
Stel xlApp in = Nieuwe Excel.Toepassing
Dim wbk als Excel.Workbook
Dim sht als Excel.Werkblad
Dim swApp als SldWorks.SldWorks
Dim swModel als SldWorks.ModelDoc2
Dim swModelDocExt als SldWorks.ModelDocExtension
Dim swBOMAnnotatie als SldWorks.BomTableAnnotation
Dim swBOMFeature As SldWorks.BomFeature
Dim boolstatus als Booleaanse
Dim BomType zo lang
Dim configuratie als tekenreeks
Dim TemplateName als tekenreeks
Dim TableTemplate als tekenreeks
Dim sFileName als tekenreeks
Dim Dossier_Nomenclature als snaar
Dim repertoire als snaar
Zon Repertoire_Test als Booleaanse
Dim Fichier_ouvrir als string
Dim fichier_complet als string
Dim myError als geheel getal
Dim myWarning als geheel getal
Dim Nom_Fichier_Excell als variant
Dim pad als snaar
Dim Fichier_section_source als snaar
Een Excell-blad openen
Met xlApp
. Zichtbaar = Waar
Stel wbk in = . Werkmappen.Toevoegen
Stel sht in = wbk. Actief blad
Eindigen met
' Montage-informatie ophalen
Stel swApp = GetObject(, "SldWorks.Application") in
Stel swModel = swApp.ActiveDoc in
Stel swModelDocExt = swModel.Extension in
sFileName = swModel.GetPathName '= weergavenaam van de assembly met het pad
Foutopsporing.Print sFileName
2022-04-08_15h58_44.png