---

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

---

Ich bin auch noch auf der Suche wie ich eine Excel-Tabelle in eine Drwaing einfügen kann.Bilder und Texte kann ich es schon.

Aber hier ein Hinweis wie man einen Wert aus einer Excel-Tabelle auslesen kann. Der Rest dürfte dann nicht all zu schwer sein.

Public Wert'() As String
Const Tabelle = "c:/test.xls"

Sub LeseExcel()
'Definieren Exeltabelle
Dim xl As Object
Set xl = CreateObject(Tabelle)
'Einlesen Wert der Exceltabelle
    Wert = xl.Worksheets("Sheet1").Range("A1").Value
   
xl.Close

Set xl = Nothing

MsgBox Wert

------------------
KDM

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

---

Versuche es mit folgendem Codebaispiel:
(der Anwender wird gfragt ob er seine Werte von der Tabelle laden will wenn ja dann wid er aufgefordert seine Tabelle zu wählen..)

angelload = MsgBox("Wollen Sie Ihre Winkelwerte aus einer Excel-Tabelle laden [ja]" + Chr(10) + "oder sollen die Standard werte für Stahl übernommen werden [Nein]?", vbYesNo, "Winkelbvergleichswerte")
   
    If angelload = 6 Then 'wenn ja dann wählt er in einer Box seine Tabelle aus
        Set objXL = CreateObject("Excel.Application")
        datei = CATIA.FileSelectionBox("Wählen Sie Ihre Tabelle für Winkelwerte aus", "*.xls", CatFileSelectionModeOpen)
       
        If datei <> "" Then
            'hier wird das Vb-makro gestartet mit dropdown-Listenfeld... noch nicht verwirklicht!!
            matfrage = InputBox("Wählen Sie ihr Material aus!" + Chr(10) + "[1] = Standard Stahl" + Chr(10) + "[2] = DX54" + Chr(10) + "[3] = H420B", "C-CON Beschnittwinkelanalyse")
            Dim mat As String
       
            If matfrage = 1 Then
                mat = "Stahl"
            ElseIf matfrage = 2 Then
                mat = "DX54"
            ElseIf matfrage = 3 Then
                mat = "H420B"
            Else
                MsgBox "Ihre Wahl kann nicht defieniert werden! Bitte wiederholen Sie Ihre Eingabe"
                CATMain
            End If
        End If
       
        zeile = 2
           
        If datei <> "" Then
            objXL.Workbooks.Open datei 'Tabelle öffnen
            Do While zeile < 5
                If CStr(objXL.Sheets("Winkelwerte").Cells(zeile, 1)) = CStr(mat) Then
                    'ab hier werden die Winkelwerte von der Tabelle gelesen!
                   
                    iBest = objXL.Sheets("Winkelwerte").Cells(zeile, 2)
                    iGood = objXL.Sheets("Winkelwerte").Cells(zeile, 3)
                    iNotGood = objXL.Sheets("Winkelwerte").Cells(zeile, 4)
                   
                    sGood = objXL.Sheets("Winkelwerte").Cells(zeile, 5)
                    sNotGood = objXL.Sheets("Winkelwerte").Cells(zeile, 6)
                                     
                    objXL.Quit
               
                Else
               
                End If
               
                zeile = zeile + 1
                     
            Loop
       
        Else 'wenn keine Tabelle gewählt wird, werden die Standardwerte für Stahl übernomen
           
            iBest = 10
            iGood = 15
            iNotGood = 20
       
            sGood = 7
            sNotGood = 5
       
        End If
   
    ElseIf angelload = 7 Then 'sonst auch Standardwerte aus dem Makro!
       
        iBest = 10
        iGood = 15
        iNotGood = 20
       
        sGood = 7
        sNotGood = 5
           
    End If

Zitat:

---

Original erstellt von shafira3:
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

---

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