Hallo
Habe mich mal mit getraut, etwas zu Programmieren, um Parameter in eine Excel Datei zu schreiben. Funktioniert auch ziemlich gut, jedoch bekomme ich jedesmal einen Abbruch vom Programm, sobald ein Skizzen-Parameter "mode"/"Modus" kommt (Wert=Bedingt/Gemessen), weil er da den Wert nicht auslesen kann. Was mache ich falsch?
Hier mein Code:
Sub CATMain()
Dim i As Integer
Dim prod As Product
Set prod = CATIA.ActiveDocument.Product
Set objXL = CreateObject("Excel.Application")
objXL.Visible = True
Set oAWBook = objxl.Workbooks.Add
For i = 1 To prod.Parameters.Count
objXL.Cells(i,1).Value = prod.Parameters.Item(i).name
objXL.Cells(i,2).Value = prod.Parameters.Item(i).Value
Next
sFileName = "C:\temp\test.xls"
oAWBook.SaveAs sFileName
objXL.Quit
End Sub
------------------
V5 R18
Zeit ist das, was man an der Uhr abliest.
(Albert Einstein)
[Diese Nachricht wurde von Solidos am 16. Jan. 2009 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP