Lecture d'un fichier excel en vb

Soyez le premier à donner votre avis sur cette source.

Snippet vu 22 224 fois - Téléchargée 27 fois

Contenu du snippet

Lecture d'un fichier Excel en VB

Source / Exemple :


Private Sub Command1_Click()

Dim sheet As Object
Dim exldoc As Object
Dim exlapp As Object
Dim i As Integer
Dim j As Integer

    Set exlapp = CreateObject("excel.application")
    Set exldoc = exlapp.workbooks.Open("C:\temp\3.save")
    Set sheet = exlapp.ActiveWorkbook.ActiveSheet
    sheet.Cells(1, 1).Value = 5 '.FormulaR1C1 = "=R[-1]C" 'écrire ds formule

    Text1.Text = sheet.Application.ActiveSheet.Cells(2, 1).Value 'lie la celule
    Text2.Text = sheet.Application.ActiveSheet.Cells(2, 1).FormulaR1C1 ' lie formule
    exlapp.workbooks.Close
    
Set sheet = Nothing
Set exldoc = Nothing
Set exlapp = Nothing

End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Voila qui entre dans mes futur demandes ! Merci - 10/10 en explication !
pour tout le monde !
Messages postés
140
Date d'inscription
jeudi 2 mai 2002
Statut
Membre
Dernière intervention
2 février 2010

j'ai 2 petites questions
tout d'abord, j'essais de dev une petite app afin de récupérer les valeurs d'un tableau excel pour les envoyer vers un serveur SQL...grace au code décrit plus haut, tout marche à peu près sauf que:
- je n'ai aucun moyen de savoir quelle version d'Excel sera installé sur la machine qui va exécuter l'app, alors comment faire pour les référence ? (mais je suis sur qu'il y aura au moins un excel)
- comment faire pour ne récupérer que les lignes qui sont renseigner sans etre obligé de se taper un FOR sur les 6300 (à peu pres) ligne possible dans un tableau en sachant qu'il est possible qu'il y est des ligne vide au milieu des lignes renseignée (donc po possible de faire un FOR en testant si y'a quelque chsoe dans la premier case) ?

merci par avance
Messages postés
17
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
17 juillet 2007

Apprêt 2,5 semaine intensive de VB Excel j'arrive a lire et écrire sans prob mai pare contre quand une personne change de classeur pendent l'exécution de mon programme sa plante.
Et aussi je n'arrive pas a chargé plusieurs cellule en nems temps.
merci pour tout
Messages postés
17
Date d'inscription
mardi 18 novembre 2003
Statut
Membre
Dernière intervention
17 juillet 2007

merci pour tout avec sa j'ai pu persque tout faire et j'ai exel 2000 donc Excel 9.00 Object Library au mieu
que j'utilise actuellement je referait ma source a la fin de mon stage
mai sous VB 5.0 la sintaxe est légerement diférente
ex:
MonXl.ActiveWorkbook.Close (True) 'pour fermer en enregistrant mai sans les parentaise sa fait une rreur
Messages postés
41
Date d'inscription
lundi 23 février 2004
Statut
Membre
Dernière intervention
12 août 2008

Hello, je suis un tout débutant en Progra mais,
je me demande s'il nest pas plus simple d'ajouter la référance Excel 10.0 Object Library a ton projet et de travailler avec ?
Afficher les 13 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.