---

Hallo Zusammen,

Gibt es da jemand mir helfen kann ?

Ich möchte Excel data (Cells) mit VBA makro CATIA V5 einlesen.
Aber leider funktioniert das Script nicht.
Ich kann die werte nicht bekommen.
Anbei schreibe ich mein Script

Vielen Dank  Voraus für die Hilfe
Sub CATMain()

Text as String
Set excel = CreateObject("Excel.application")
    excel.Workbooks.Add
    Text = excel.worksheet("Tabelle1").Cells(1, 1).Value 
    Msgbox Text

End Sub

------------------
succesfull

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

---

Hallo,
ich Lese die Tabelle in eine Variable ein s.u.
Hoffe das ist hilfreich.

#############################################
Public myWerte  '() as String
Const myTabelle = "c:/test.xls"

Sub LeseExcel()
' Definieren der Exeltabelle
Dim xl As Object
Set xl = CreateObject(myTabelle)
' Einlesen der Blätter der Exceltabelle
    myWerte = xl.worksheets("Blatt.1").range("A1", "U8").Value
xl.Close
Set xl = Nothing
End Sub
######################################

------------------
Mit freundlichem Gruß von Carl Tenschert

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

---

Hallo Carl,

Danke schon für deine Code und Hilfe,
aber ich habe einige Kleinigkeiten.
Wie kann man dieses Werte auf bildschirm zeigen.
Ich habe einfach
MsgBox(myWerte) geschrieben.
Als ich kompilieren habe, kam immer Fehlermeldung "Type Unverträglich"
auf diese code.
Kanns du mir mal wahrscheinlich nochmal helfen.

Vielen dank im Voraus für die Hilfe

------------------
succesfull

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

---

Hallo
Bei Abfrage von "A1:E14" erhälst Du ein 2 dimensionales Array "tabelle(i,j)".
mit Folgender Schleife müßte es gehen

#####ungetestet############################

for i= 1 to Ubound(tabelle,1)
for j = 1 to Ubound (tabelle,2)
  Ausgabe = Ausgabe & " " & tabelle(i,j)
Next j
Ausgabe = Ausgabe & Chr(10)
Next i

msgbox(Ausgabe)
#####ungetestet############################

Erkärung:
Ubound('Name der Variable', welche "Richtung") gibt anzahl der Variablen in der 1,2 Richtung.
Chr(10) <- Neue Zeile

------------------
Mit freundlichem Gruß von Carl Tenschert

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