Servus,
ich habe jetzt folgendes als Code:
Dim myCatiaApp As INFITF.Application
Dim myCatiaDoc As MECMOD.PartDocument
Dim myPart As MECMOD.Part
Dim xlsApp As Excel.Application
Dim xlsWB As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim xlsCell As Excel.Range
Dim xlsDatei As String
xlsApp = New Excel.Application
xlsApp.Visible = True
xlsWB = xlsApp.Workbooks.Open("F:\PFD\Macros_Tools\CATIA_to_Excel\Parameter_To_Excel\Parameter_CATIA.xlsx")
xlsSheet = xlsWB.Worksheets(1)
xlsCell = xlsSheet.Range("A1")
Dim myParam As KnowledgewareTypeLib.Parameter
Dim myParamName As String
myCatiaApp = GetObject("", "CATIA.Application")
myCatiaDoc = myCatiaApp.ActiveDocument
myPart = myCatiaDoc.Part
For i = 1 To myCatiaDoc.Part.Parameters.Count - 1
myCatiaDoc.Selection.Search("(Name=Fall* & CATKnowledgeSearch.InternalParameter),all")
myParamName = myCatiaDoc.Selection.Item(i + 1).Name
myCatiaDoc.Selection.Copy()
xlsSheet.Range("A1").Select()
myCatiaDoc.Selection.Paste()
Next
Was ich damit aber kopiere ist nicht der Name vom Parameter, sondern den ganzen Parameter. Und ich füge es auch nicht nach Excel ein sondern in CATIA.
Was muss ich da ändern?
THX
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP