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
Dim swApp As Object
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim Part As Object
Dim boolstatus As Boolean
Dim sRevision As String
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
FileName = swModel.GetPathName
FileName = Left(FileName, Len(FileName) - 7)
sRevision = swModel.CustomInfo2("", "Ind.")
Set Part = swApp.ActiveDoc
PathName = UCase(Part.GetPathName)
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Part.ClearSelection2 True
longstatus = Part.SaveAs3(FileName & "_" & sRevision & ".PDF", 0, 0)
End Sub
