Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Werte aus Excel importieren

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
Autor Thema:  Werte aus Excel importieren (1668 mal gelesen)
Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 07. Mai. 2010 19:21    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 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

zoltan.bekesi
Mitglied



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

Beiträge: 321
Registriert: 22.10.2006

Job:
CATIA V5R19 / XP 32bit
MS Office 2003
Microstation V8 2004 Edition
DELL Precision M6300

erstellt am: 08. Mai. 2010 10:42    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 Sven2010 10 Unities + Antwort hilfreich

Hallo Sven,

versuche es mit Input1 = parameters1.Item("MATERIAL_CODE").ValueAsString

Gruß,
Zoltan

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

Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 08. Mai. 2010 13:20    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

Hi Zoltan,

auch schon versucht, leider ohne Erfolg 

Er geht immer mit "Input1" als String zur Suche in die Excel.
Sonst noch eine Idee wie ich das gewünschte Ergebnis evtl. auf einem anderen Weg erreichen könnte?

Gruß
Sven

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

bgrittmann
Moderator
Konstrukteur


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

Beiträge: 11780
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 08. Mai. 2010 13:43    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 Sven2010 10 Unities + Antwort hilfreich

Servus

Was für einen Typ hat der Parameter "MATERIAL_CODE"?
Welchen Typ haben die Zellen in Excel?
Ich vermute, dass du den Typ konvertieren musst. zB in Typ Integer:

Code:
Input1 = CInt(parameters1.Item("MATERIAL_CODE").Value)

Gruß
Bernd


------------------
Warum einfach, wenn es auch kompliziert geht.

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

Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 08. Mai. 2010 13:49    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 Bernd,

MATERIAL_CODE ist ein String!
CInt wandelt also in Integer um?
Zellen in Excel sind als Standard definiert, sollte ich dort etwas anderes verwenden damit es klappt?

Werde ich nachher gleich mal ausprobieren, muss nur noch meine V5 Kiste hochfahren 

Danke
Sven

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

Sven2010
Mitglied



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

Beiträge: 56
Registriert: 20.04.2010

V5R19SP3
Hotfix 50

erstellt am: 08. Mai. 2010 22:43    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 Bernd,

vielen vielen Dank, funktioniert einwandfrei mit dem Code.
Einfach ein klasse Board hier 
Gibt 10 Unities für deine Hilfe.

Gruß
Sven

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)2023 CAD.de | Impressum | Datenschutz