Hallo,
Um alle Fab-Dokumente mit einem einzigen Klick zu veröffentlichen, möchte ich ein PDF, einen Schritt und ein Excel-Formular der Liste der geschweißten Teile generieren.
Ich habe es geschafft, das PDF und die Schrittmakros zu erstellen (es ist mein erstes), aber nicht das Excel-Makro
Hat jemand etwas?
Zur Info: Mein VBA-PDF, um die abgerufenen Informationen und den Namen des Outputs anzuzeigen.
Danke
Dimmen Sie swApp als Objekt
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt als SldWorks.ModelDocExtension
Schwacher Teil als Objekt
Dim Boolstatus Als Boolean
Dim sRevision als Saite
Dimmer Langstatus So lang, lange Warnungen So lange
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName
DateiName = Links(DateiName, Len(DateiName) - 7)
sRevision = swModel.CustomInfo2(" ", " Ind. ")
Set Part = swApp.ActiveDoc
PathName = UCase(Part.GetPathName)
Dim myModelView Als Objekt
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Teil.ClearSelection2 True
longstatus = Part.SaveAs3(DateiName & " _ " & sRevision & " .PDF ", 0, 0)
Ende des Untertitels