Exporter mflexgrid dans document word

Commenter

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

S'inscrire maintenant

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.