Hallo zusammen,
ich versuche gerade ein Script zu schreiben, welches aus einem vorhandenen Attribut eines Part oder Produkt den Wert ausliest, damit in Excel geht und dort nach dem Wert sucht. Wird er gefunden, werden die entsprechenden weiteren Werte aus Excel gelesen und weiterverabreitet in Catia (Füllen weiterer Attribute mit den Werten aus Excel).
Mein Script sieht bislang so aus:
...
Dim Excel As Object
Dim WB As Workbook
Dim WS As Worksheet
On Error Resume Next
Set Excel = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set Excel = CreateObject("Excel.Application")
Excel.Visible = True 'Excel im Hintergrund
End If
Excel.Workbooks.Open "Pfad"
Set Tabelle1 = Excel.ActiveWorkbook.Sheets(1)
Input1 = parameters1.Item("MATERIAL_CODE").Value
Material = Excel.Application.WorksheetFunction.VLookup(Input1, Tabelle1.Range(Tabelle1.Cells(2, 1), Tabelle1.Cells(4, 3)), 2, false)
Material_local = Excel.Application.WorksheetFunction.VLookup(Input1, Tabelle1.Range(Tabelle1.Cells(2, 1), Tabelle1.Cells(4, 3)), 3, false)
....
Das Problem: Der Wert "Input1", welcher ich aus einem Parameter auslese, wird mit dem obigen Code in Excel nicht gefunden.
Trage ich jedoch anstatt Input1 den tatsächlichen Wert in den VLookup Befehl (bspw. 1000), dann läuft das Ganze wunderbar.
So: Wie mache ich Catia klar, dass es nicht nach dem String "Input1" suchen soll sondern nach dessen Wert???
Ich habe schon alles versucht und bin total am verzweifeln
Kann mir vielleicht einer helfen???
Danke und Gruß
Sven
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP