Exporter mflexgrid dans document word
Soyez le premier à donner votre avis sur cette source.
Snippet vu 3 591 fois - Téléchargée 26 fois
Contenu du snippet
il faut referance le word application dans votre projet
Source / Exemple :
Private Sub Image2_Click()
'Importer.DataGrid1.Print
'DataGrid1.t
'Early object binding
Dim oWord As Word.Application
Dim oDoc As Word.Document
Dim oRange As Word.Range
'Uncomment below for late object binding
'Dim oWord As Object
'Dim oDoc As Object
'Dim oRange As Object
Dim row As Integer
Dim col As Integer
Dim i As Integer
Dim n As Integer
Dim sTemp As String
Dim arr() As String
ReDim arr(MSFlexGrid1.Rows - 1, MSFlexGrid1.Cols - 1)
'Créer une instance de word
Set oWord = CreateObject("Word.Application")
'rendre le document word visible
oWord.Visible = True
'Ouivrir un nouveau document
Set oDoc = oWord.Documents.Add
For row = 0 To MSFlexGrid1.Rows - 1
n = 0
For col = 0 To MSFlexGrid1.Cols - 1
arr(i, n) = MSFlexGrid1.TextMatrix(row, col)
n = n + 1
Next
i = i + 1
Next
'ENregistrer sur un tableau
For i = LBound(arr, 1) To UBound(arr, 1)
For n = LBound(arr, 2) To UBound(arr, 2)
sTemp = sTemp & arr(i, n)
If n = UBound(arr, 2) Then
sTemp = sTemp & vbCrLf
Else
sTemp = sTemp & vbTab
End If
Next
Next
'Avoir l'emplacelent sur le document
Set oRange = oDoc.Bookmarks("\EndOfDoc").Range
oRange.Text = sTemp
'Convertire le format et le texte
oRange.ConvertToTable vbTab, Format:=wdTableFormatColorful2
Set oRange = Nothing
End Sub
A voir également
- Wordreferance
- Word referance - Meilleures réponses
- Wordreferance.com - Meilleures réponses
- Exportation des données excel dans un document word ✓ - Forum - Visual Basic 6
- Générer un document word depuis un modèle php - Conseils pratiques - PHP
- Exporter données excel vers word vba - Forum - Visual Basic
- Imprimer un document word - Codes sources - Visual Basic / VB.NET (Imprimante)
- Récupérer les propris d'un document word - Codes sources - Visual Basic / VB.NET (VBA)
Merci pour la solution (je n'ai testé que celle de garoui pour le moment).
J'ai un petit problème et j'espère avoir votre aide : en fait j'ai les cellules de la première ligne fusionnées par triplets dans mon MSFlexGrid (C'est à dire que chaque trois cellules forment une seule). Qu'est ce que je dois ajouter au code pour avoir le même résultat en Word ?
- Messages postés
-
17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
67SVP, aidez moi, ... j'utilise VB 6.0 édition professionnel, mais pour essayer de declarer le variable word???; cela ne marche pas
Càd exemple:
dim oWord as Word.application
Ceci ne mais donne pas l'oportunite de regenere Word dans la liste de proprété qui sorte et ci je vais faire la mailin à copier, le programme affiche une erreur sur cette déclaration.
Merci à tous pour votre contrbibution...
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.