Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Makroaufzeichnung aus Excel 2010 nach CATIA

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:  Makroaufzeichnung aus Excel 2010 nach CATIA (683 mal gelesen)
IAmTheFabian
Mitglied
Konstrukteur


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

Beiträge: 58
Registriert: 17.10.2013

CATIA V5 R19
Windows 7 Professionel
Intel Core 2
Duo8GB RAM
64Bit System

erstellt am: 02. Apr. 2014 08:13    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

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

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: 02. Apr. 2014 08:18    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 IAmTheFabian 10 Unities + Antwort hilfreich

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

IAmTheFabian
Mitglied
Konstrukteur


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

Beiträge: 58
Registriert: 17.10.2013

CATIA V5 R19
Windows 7 Professionel
Intel Core 2
Duo8GB RAM
64Bit System

erstellt am: 02. Apr. 2014 08:26    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

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

IAmTheFabian
Mitglied
Konstrukteur


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

Beiträge: 58
Registriert: 17.10.2013

CATIA V5 R19
Windows 7 Professionel
Intel Core 2
Duo8GB RAM
64Bit System

erstellt am: 02. Apr. 2014 09:14    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


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

IAmTheFabian
Mitglied
Konstrukteur


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

Beiträge: 58
Registriert: 17.10.2013

CATIA V5 R19
Windows 7 Professionel
Intel Core 2
Duo8GB RAM
64Bit System

erstellt am: 02. Apr. 2014 10:45    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

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

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