Accès vers Excel avec Visual Basic 07/11/2000  Patrick ABATI 
Liste des cours

Les informations données dans cette rubrique permettent:
- de récupérer des données sur une feuille Excel existante Position-Vitesse
- d'afficher le tableau des valeurs Angle et Vitesse
- de tracer la courbe Vitesse = f(Angle)
- d'envoyer les valeurs Vitesse sur le port série

I l faut commencer par créer "l'objet" application excel :
Set Feuille = CreateObject("excel.application")

Puis ajouter une feuille à la collection "classeurs":
Set Classeur = Feuille.Workbooks.Add(xlWorksheet)

On ouvre ensuite le classeur:
Workbooks.Open filename:=CurDir + "\" + NomDuFichier

Puis la feuille:
Feuille.ActiveSheet.Name = "Position-Vitesse"


L'affichage des valeurs se fait dans un contrôle MSFlexGrid et les données sont récupérées par des instructions du type:
Me.MSFlexGrid1.TextMatrix(NumeroLigne, 0) = Feuille.ActiveSheet.Range("A" & NumeroLigne)
Me.MSFlexGrid1.TextMatrix(NumeroLigne, 1) = Feuille.ActiveSheet.Range("B" & NumeroLigne)



Le tracé de la courbe est fait point par point avec l'instruction Line dans un contrôle Picture:
Me.Picture1.Line -(x, y)


L'envoi d'informations sur le port série est fait par le contrôle MSComm:
Me.MSComm1.Output = valeur


Il faut fermer l'application sans sauvegarde pour libérer la mémoire:
Feuille.DisplayAlerts = False
Feuille.Quit
Workbooks.Close

 

Un exemple opérationnel est donné dans le programme IBS 
Télécharger IBS (7 Ko) zip(VB5 édition professionnelle est nécessaire)

 

  W3C W3C W3C