---

Hallo!

seit ich inventor SP1 installiert habe funktioniert eine .net Makro nicht mehr. Sie wird beim öffnen einer Datei automatisch ausgeführt, und ruft im Falle einer IDW eine sub auf. soweit klappt es. die sub läuft auch durch, bleibt aber plötzlich hängen.
Alle MSGBOX erscheinen korrekt, solange sie vor der angezeichneten zeile sind.
wenn ich die SUB aber über einer normalen Makro ausführe dann gehts.

einige Tipps? hier ist die SUB:

Code:

---

      Public Sub updatetext()

            If m_inventorApplication.ActiveDocumentType = 12292 Then

                Dim invdoc As Document
                invdoc = m_inventorApplication.ActiveDocument

                Dim moFileLocations As Inventor.FileLocations
                Dim sCurrentProject As String

                moFileLocations = m_inventorApplication.FileLocations
                sCurrentProject = moFileLocations.FileLocationsFile
                Dim sPath As String
                sPath = Mid(sCurrentProject, 1, InStrRev(sCurrentProject, "\"))

                Dim oXL As Microsoft.Office.Interop.Excel.Application
                Dim oWB As Microsoft.Office.Interop.Excel.Workbook
                Dim oWS As Microsoft.Office.Interop.Excel.Worksheet

                If Dir(sPath & "contenuto cartiglio.xls") <> "" Then

                    oXL = New Microsoft.Office.Interop.Excel.Application
                    oWB = oXL.Workbooks.Open(sPath & "contenuto cartiglio.xls")  <<<<<<<<<<<<DIESE ZEILE VERURSACHT DAS PROBLEM
                    oWS = oWB.Worksheets("Foglio1")

                    Dim cliente As String
                    Dim progetto As String
                    Dim nomepezzo As String
                    Dim codicepezzo As String
                    Dim tipoattrezzatura As String

                    cliente = oWS.Range("A1").Value
                    If cliente = "" Then cliente = "-"
                    progetto = oWS.Range("A2").Value
                    If progetto = "" Then progetto = "-"
                    nomepezzo = oWS.Range("A3").Value
                    If nomepezzo = "" Then nomepezzo = "-"
                    codicepezzo = oWS.Range("A4").Value
                    If codicepezzo = "" Then codicepezzo = "-"
                    tipoattrezzatura = oWS.Range("A5").Value
                    If tipoattrezzatura = "" Then tipoattrezzatura = "-"

                    oXL.Quit()

                    Dim invdesigninfo As PropertySet
                    invdesigninfo = invdoc.PropertySets.Item("Summary Information")

                    invdesigninfo.Item("Title").Value = tipoattrezzatura
                    invdesigninfo.Item("Subject").Value = nomepezzo

                    invdesigninfo = invdoc.PropertySets.Item("Document Summary Information")

                    invdesigninfo.Item("Manager").Value = codicepezzo
                    invdesigninfo.Item("Company").Value = cliente

                    invdesigninfo = invdoc.PropertySets.Item("Design Tracking Properties")

                    invdesigninfo.Item("Project").Value = progetto

                    invdoc.Update()

                Else
                    MsgBox("Questo progetto non ha un file di cartiglio! Copiare il file 'contenuto cartiglio.xls' dalla cartella 'Z:\010 Biblioteca\Vorlagen\Inventor\Macro' nella cartella principale del progetto.")
                End If

            Else
                MsgBox("Questa macro puo essere eseguita soltanto su file .IDW")
            End If

        End Sub

---

Danke

Alcom

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

---

Hallo,

existiert die Datei sPath & "contenuto cartiglio.xls" (bzw. den Wert der Variable sPath prüfen)?

Wenn da alles klar ist, dann ist es wohl ein Excel Problem.

Und vorallem wie lautet denn die Fehlermeldung? 

------------------
Grüße Igor

FX64 Software Solutions - Inventor Tools

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

---

Hallo!

Ja der Pfad ist richtig. ich hab jetzt excel auf visible=true gesetzt und sobald Excel offen ist passiert nichts mehr. bleibt einfach stehen. Keine Fehlermeldung, kein garnichts. Hat aber bis vor einer Woche funktioniert.

Grüße

Alcom

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