eine vorgefertigte Beispieldatei soll bearbeitet werden und danach abgespeichert werden. Es soll nicht möglich sein die Datei unter dem gleichen Namen zu speichern. Bisheriger Code
Private WithEvents oAppEvents As ApplicationEvents
Public Sub autoopen1()
Dim oApp As Inventor.Application
Set oApp = ThisApplication
Set oAppEvents = oApp.ApplicationEvents
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
End Sub
Private Sub oAppEvents_OnSaveDocument(ByVal DocumentObject As Document, ByVal BeforeOrAfter As EventTimingEnum, ByVal Context As NameValueMap, HandlingCode As HandlingCodeEnum)
Dim oApp As Inventor.Application
Set oApp = ThisApplication
If BeforeOrAfter = kBefore Then
MsgBox ("Speichern unter angegebenen Namen nicht möglich.Vorlage kann nicht überschrieben werden!")
HandlingCode = kEventCanceled
Call Speichern_unter_neuem_Namen
End If
If BeforeOrAfter = kAfter Then
MsgBox ("Dokument gespeichert")
End If
End Sub
Sub Speichern_unter_neuem_Namen()
Dim Neuer_Dateiname
Neuer_Dateiname = Application.GetSaveAsFilename(InitialFileName:="", Filefilter:="*.iam")
If Neuer_Dateiname = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Neuer_Dateiname
End Sub
Leider bekomme ich im untersten Sub bei Neuer_Dateiname=.... einen Fehler Objekt erforderlich. Hat jemand eine Idee?
mfG, Florian