---

Wieso kann ich aufgenommene Quellcodes aus Excel nicht in CATIA übernehmen?

Ich möchte eine Rahmenlinie einer Zelle generieren.

    Excel.WorkSheets.Item(1).Range("A10:C10").Select
   
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
   
   
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With

------------------
Anfänger!

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

---

Servus
Hast du die Reference zu Excel in Catia-VBA aktiviert? Welche Fehlermeldung kommt? Wo/Wie ist Selection dimensioniert/deklariert?

Gruß
Bernd

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

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

---

So habe ich die Referenz deklariert:

Code:

---

Sub Exceltabelle()

'Applikation Excel öffnen
Dim Excel
Set Excel = CreateObject("Excel.Application")
Excel.Application.Visible = True

'Excel Dokument erzeugen
Dim neue_wb
Set neue_wb = Excel.Workbooks.Add

'Das Dokument deklarieren
Dim workbook
Set workbook = Excel.Workbooks.Item(1)

'Das Arbeitsblatt deklarieren
Dim blatt
Set blatt = workbook.Sheets.Item(1)

---

Bekomme in jeder Zeile in der Selection.Borders... steht, die Fehlermeldung : Object required

Die Selektion in Excel funktioniert und ist auch sichtbar:

Code:

---

Excel.WorkSheets.Item(1).Range("A10:C10").Select

---

------------------
Anfänger!

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

---

xlt.JPG

Habs herausgefunden.

Man muss für die Elemente (xlEdgeLeft,XlEdgeTop,usw.), Konstanten eingeben.

Siehe Anhang.

------------------
Anfänger!

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

---

Ich muss die Konstanten nicht eingeben.
Es hat nicht funktioniert, weil ich im VB Editor unter Tools-References die Microsoft Excel 14.0 Object Libary nicht selektiert hatte.

Danke trotzdem an Bernd! 

------------------
Anfänger!

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