Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  VBA: Compile error: Object required

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  VBA: Compile error: Object required (1273 mal gelesen)
FabianCAD
Mitglied
Technischer Systemplaner


Sehen Sie sich das Profil von FabianCAD an!   Senden Sie eine Private Message an FabianCAD  Schreiben Sie einen Gästebucheintrag für FabianCAD

Beiträge: 13
Registriert: 24.10.2017

Inventor Professional 2015
AutoCAD Mechanical 2015/17
NVIDIA Quadro 2000

erstellt am: 02. Nov. 2017 08:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen,
ich probiere jetzt schon seit längerem herum, komme aber nicht auf die Lösung für mein Problem.

Und zwar wird mir in der unten gekennzeichneten Zeile der Fehler "Compile Error: Object required" angezeigt.

Code:
Public Sub Stücklistenteil_konfigurieren()
Dim oDoc As Document
Set oDoc = ThisApplication.ActiveDocument
If oDoc.DocumentType <> kAssemblyDocumentObject Or oDocType <> kPartDocumentObject Or oDocType <> kDrawingDocumentObject Then
    If Not oDoc.SelectSet.Count = 1 Then
        MsgBox ("Bitte wähle eine Komponente aus!")
        Do While Not oDoc.SelectSet.Count = 1
            DoEvents
        Loop
    End If
    If Not oDoc.SelectSet.Count = 1 Then
        MsgBox ("In dieser Ansicht sind mehrere Komponenten enthalten! Geh in die Baugruppe und wähle dort die entsprechende Komponente aus!")
        Stop
    Else
        If oDoc.SelectSet.Item(1).ReferencedDocumentDescriptor.ReferencedDocumentType = kPartDocumentObject Then
            Dim oPart As Object
            Set oPart = oDoc.SelectSet.Item(1).ReferencedDocumentDescriptor.ReferencedDocument
            Dim oSelectSet As SelectSet
            Set oSelectSet = oDoc.SelectSet
            Dim oSelectedItem As Variant
            Set oSelectedItem = oSelectSet.Item(1)
            Dim oDocumentDescriptor As DocumentDescriptor
            Set oDocumentDescriptor = oSelectedItem.ReferencedDocumentDescriptor
            Dim oReferencedDocument As Object
            Set oReferencedDocument = oDocumentDescriptor.ReferencedDocument
            Dim oDisplayName As String
            Set oDisplayName = oReferencedDocument.DisplayName  <-- Hier bei oDisplayName tritt der Fehler auf
            frm_Baut_Konf.Show
            frm_Baut_Konf.txt_BautNr.Text = oDisplayName
           
        Else:
            MsgBox ("In der Ansicht ist kein Bauteil enthalen!")
            Stop
        End If
    End If
Else
    MsgBox ("Die Funktion ist entweder in einer Zeichnung, Baugruppe oder einem Bauteil verfügbar!")
    Stop
End If
End Sub

Vielen Dank im Voraus!

Gruß Fabian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

himmelblau
Mitglied



Sehen Sie sich das Profil von himmelblau an!   Senden Sie eine Private Message an himmelblau  Schreiben Sie einen Gästebucheintrag für himmelblau

Beiträge: 532
Registriert: 11.11.2004

erstellt am: 02. Nov. 2017 08:55    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für FabianCAD 10 Unities + Antwort hilfreich

FabianCAD
Mitglied
Technischer Systemplaner


Sehen Sie sich das Profil von FabianCAD an!   Senden Sie eine Private Message an FabianCAD  Schreiben Sie einen Gästebucheintrag für FabianCAD

Beiträge: 13
Registriert: 24.10.2017

Inventor Professional 2015
AutoCAD Mechanical 2015/17
NVIDIA Quadro 2000

erstellt am: 02. Nov. 2017 08:57    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Oh entschuldigung, werde ich nächstes mal machen, bin noch nicht lange im Forum

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

mcap
Mitglied
CAD-Supporter


Sehen Sie sich das Profil von mcap an!   Senden Sie eine Private Message an mcap  Schreiben Sie einen Gästebucheintrag für mcap

Beiträge: 132
Registriert: 13.11.2014

Lenovo P360
ACAD 2022/24
IV 2022/24
WIN 10/64

erstellt am: 02. Nov. 2017 10:51    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für FabianCAD 10 Unities + Antwort hilfreich

Hallo,
Du hast ja oDisplayName As String deklariert, dann kannst du auch kein Objekt zuweisen.
Mach einfach:

oDisplayName = oReferencedDocument.DisplayName

dann sollte es klappen.

------------------
Gruss Marco

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

FabianCAD
Mitglied
Technischer Systemplaner


Sehen Sie sich das Profil von FabianCAD an!   Senden Sie eine Private Message an FabianCAD  Schreiben Sie einen Gästebucheintrag für FabianCAD

Beiträge: 13
Registriert: 24.10.2017

Inventor Professional 2015
AutoCAD Mechanical 2015/17
NVIDIA Quadro 2000

erstellt am: 02. Nov. 2017 10:53    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Ah danke, hat jetzt geklappt, ich musste zusätzlich noch das "Set" entfernen. Dankeschön!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz