Cet exemple permets d'envoier (et de formater) des données vers excel assez simplement ...
Source / Exemple :
' Une des fonctions ... ;-)
Private Sub cmdValeur_Click()
' si il n'y a pas encore de Document en cree un
If AppExcel.Workbooks.Count = 0 Then
AppExcel.Workbooks.Add
End If
With AppExcel.Worksheets(1).Cells(vsbCell.Value, hsbCell.Value)
.Value = txtValue.Text
' mets en gras
.Font.Bold = chkBold.Value
' mets en couleur.
' ATTENTION :
' Excel utilise une palette de couleur.
' La palette comporte 56 entrées, chacune représentée par une valeur RGB.
' (RGB : Rouge Vert Bleu.)
' 3 méthodes différentes pour définir la palette.
AppExcel.ActiveWorkbook.Colors(1) = RGB(0, 255, 140) ' la construction RGB
AppExcel.ActiveWorkbook.Colors(2) = &H707000 ' la Valeur Hexadécimale
AppExcel.ActiveWorkbook.Colors(3) = vbBlue ' la Constante VB
' ensuite on attribue l'index d'une couleur à la cellule
.Font.ColorIndex = 0
If optColor(0).Value Then .Font.ColorIndex = 1
If optColor(1).Value Then .Font.ColorIndex = 2
If optColor(2).Value Then .Font.ColorIndex = 3
End With
End Sub
Conclusion :
Attention pour les nouveaux projet il faut Ajouter la reference à Excel
(Project->Reference et cocher "Microsoft Excel 9.0 Object Library")
ou une version plus haute ...
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.