Guten Morgen zusammen,
ich bekomme den unten aufgelisteten Code irgendwie nicht zum Laufen - das Iprop "Anzeigename" wird nicht mit in den Dateinamen geschrieben?
Ich würde mich sehr über eine Unterstützung freuen. Vielen Dank
Sub Export_Part()
'Reference zum Aktiven Dokument erstellen
Dim oDocument As Document
Set oDocument = ThisApplication.ActiveDocument
Dim bErr As Boolean
Dim fso As Object
Set fso = CreateObject("Scripting.FilesystemObject")
Dim ret As Variant
Set ddoc = ThisApplication.ActiveDocument
'Nachricht fall Dokument noch nicht gespeichert ist
If ddoc.FullFileName = "" Then
MsgBox "Bitte zuerst die Datei speichern... "
Exit Sub
End If
Dim oDiName As Inventor.Property
On Error GoTo ErrorHandler
Set oDiName = ddoc.PropertySets(4).Item("Anzeigename")
'Dateinamen mit Pfad erstellen
If bErr = False Then
filename = "C:\Collaboration\Exchange\" & "\" & "oDiName" & ".ipt"
'oDataMedium.filename = Strings.Replace(filename, "/", "_")
'Else
'oDataMedium.filename = "C:\Collaboration\Exchange\" & "oDiName" & ".ipt"
End If
Call oDocument.SaveAs("C:\Collaboration\Exchange\" & oDiName.PropId & ".ipt", True)
FileSaveAs.ExecuteSave
MsgBox "Part wurde unter -- C:\Collaboration\Exchange -- gespeichert!!"
Exit Sub
ErrorHandler:
bErr = True
Resume Next
End Sub
------------------
MFG
BlueJay
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP