Lecture fichier excel dans Catia

Voir le sujet précédent Voir le sujet suivant Aller en bas

R?solu Lecture fichier excel dans Catia

Message par Docserta le Jeu 10 Nov 2011 - 8:26

Bonjour,

Je réalise un projet CATVba de récupération d'attributs 3D dans un 2D.
Je souhaite ouvrir un fichier excel et transférer les lignes/colonnes dans une variable array.

Je sais le faire a partir d'un fichier texte (voir ci dessous), mais comment faire avec un fichier excel?

Code:
Dim fs, f
    Set fs = CreateObject("scripting.filesystemobject")
    Fichtxt = CheminDestNomenclature & NomNomenclTxt
    Set f = fs.opentextfile(Fichtxt, ForReading, 1)
    For i = 1 To 5
        LigneNomTempo(i) = f.ReadLine
    Next

Merci de votre aide


Dernière édition par Docserta le Mar 15 Nov 2011 - 1:16, édité 1 fois
avatar
Docserta
actif
actif

Messages : 41
Date d'inscription : 10/11/2011
Localisation : Rennes

Revenir en haut Aller en bas

R?solu Re: Lecture fichier excel dans Catia

Message par Guss_ le Lun 14 Nov 2011 - 22:22

Salut,

Voilà un extrait d'une de mes macros utilisant Excel

Code:
 Dim Excel As Object
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True
    End If
    On Error GoTo 0
    Excel.Visible = True
    Excel.Workbooks.Add
    Set wbks = Excel.ActiveWorkbook
    Set wbk = wbks.Sheets(1)
'------- passage catia -> excel
    For L = 1 To lignes
        For C = 1 To colonnes
            wbk.Cells(L, C) = nomenclature.GetCellString(L, C)
            wbk.Cells(L, C).borders.LineStyle = 1
            wbk.Cells(L, C).borders.Weight = 2
        Next
    Next
'------ mis en page excel
    wbk.Columns(1).ColumnWidth = 14.29
    wbk.Columns(2).ColumnWidth = 2.57
    wbk.Columns(3).ColumnWidth = 4.43
    wbk.Columns(4).ColumnWidth = 42.71
    wbk.Columns(5).ColumnWidth = 30.71


extrait de la macro que tu peu trouver ici :
http://catiav5.forumactif.org/t168p90-section-programmation-catscript-vba-vbnet#1497

Guss_
Fédérateur
Fédérateur

Messages : 498
Date d'inscription : 08/01/2010

Revenir en haut Aller en bas

R?solu Re: Lecture fichier excel dans Catia

Message par Docserta le Mar 15 Nov 2011 - 1:16

Merci Guss.
avatar
Docserta
actif
actif

Messages : 41
Date d'inscription : 10/11/2011
Localisation : Rennes

Revenir en haut Aller en bas

R?solu Re: Lecture fichier excel dans Catia

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum