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
- Lecture d'un fichier excel en vb
- Module pour créer et supprimer des onglets dans un fichier excel en vb ou vba - Codes sources - Visual Basic / VB.NET (Modules)
- PHP : Lecture d'un fichier excel - CodeS SourceS - Guide
- Enregister sous un fichier Excel en vb.net ✓ - Forum - VB.NET
- Lecture d'un fichier excel et stockage des données dans une List ✓ - Forum - Java
- SaveAS CSV d'un fichier excel en VBS ✓ - Forum - Visual Basic 6
- Messages postés
-
332
- Date d'inscription
- lundi 29 septembre 2008
- Statut
- Membre
- Dernière intervention
- 10 avril 2020
1pour tout le monde !
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
Et aussi je n'arrive pas a chargé plusieurs cellule en nems temps.
merci pour tout
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
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 ?
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.