Witam
Używam makra do wygenerowania zestawienia komponentów, a makro nie jest już uruchamiane.
Na początku mam błąd.
Excell otwiera się , ale mieszam się z instrukcją "Set swModelDocExt = swModel.Extension"
Nie rozumiem, bo do tej pory działało to bardzo dobrze...
Czy mógłbyś mi pomóc zidentyfikować problem?
Z góry dziękuję
LSE
Opcja jawna
Sub main()
Dim xlApp As Excel.Application
Ustaw xlApp = Nowy Excel.Aplikacja
Dim wbk As Excel.Workbook
Dim sht As Excel.Arkusz roboczy
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swBOMAnnotation As SldWorks.BomTableAnnotation
Dim swBOMFeature As SldWorks.BomFeature
Dim boolstatus As Boolean
Dim BomType tak długo, jak długo
Przyciemnij konfigurację jako ciąg
Dim TemplateName As Ciąg
Dim TableTemplate As String
Dim sFileName As Ciąg
Dim Dossier_Nomenclature As String (Ciąg)
Dim Repertoire Jako Smyczek
Sun Repertoire_Test jako wartość logiczna
Dim Fichier_ouvrir As Thong
Dim fichier_complet jako stringi
Dim myError As Liczba całkowita
Dim myWarning As Integer (liczba całkowita)
Dim Nom_Fichier_Excell Jako wariant
Przyciemnij ścieżkę jako ciąg
Dim Fichier_section_source As String (Ciąg)
Otwieranie arkusza Excell
Z xlApp
. Widoczne = Prawda
Ustaw wbk = . Skoroszyty.Dodaj
Ustaw sht = wbk. Arkusz ActiveSheet
Zakończ się na
' Pobieranie informacji o zespole
Ustaw swApp = GetObject(, "SldWorks.Application")
Ustaw swModel = swApp.ActiveDoc
Ustaw swModelDocExt = swModel.Extension
sFileName = swModel.GetPathName ' = wyświetlana nazwa zestawu ze ścieżką
Debug.Print nazwa_pliku
2022-04-08_15h58_44.png