Soyez le premier à donner votre avis sur cette source.
Snippet vu 22 224 fois - Téléchargée 27 fois
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
pour 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.