comment transferer des donnees vers excel a partir de vb6

Question

bonjour; 
je veux ecrire  le resultat  de mes requetes sous vb6 dans des feuilles excel
utilises comme base de donnee
et merci d'avance pour votre aide

ManuAntibes · Answer

salut

voici un exemple de manipulation de fichier Excel.

Imports Microsoft.Office.Interop ' mettre avant Public Class

Dim appxls As Excel.Application

'TODO : Excel - Manipulation de fichier Excel
#Region "Manipulation de fichier Excel"
    'TODO : Excel - Ouvrir fichier
    Private Sub OuvrirExcelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OuvrirExcelButton.Click

appxls = New Excel.Application 'Microsoft.Office.Interop.Excel.Application
        appxls.Visible = True
        book = appxls.Workbooks.Open("C:\chemin\fichier_excel.xls")
    End Sub

'TODO : Excel - Fermer fichier
    Private Sub FermerExcelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FermerExcelButton.Click
        Try
            Me.Cursor = Cursors.WaitCursor
            book.Close(True, , )
            appxls.Quit()
            book = Nothing
            appxls = Nothing
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            Me.Cursor = Cursors.Default
        End Try

End Sub

'TODO : Excel - Transfert de données
    Private Sub EnvoyeExcelButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EnvoyeExcelButton.Click
     dim var as string = Nothing
   var = appxls.Application.Worksheets("Nom de l'onglet").range("C2").value ' récup une donnée d'excel
   appxls.Application.Worksheets("Nom de l'onglet").range("C3").value = var 'enregistre donnée sur excel 
    End Sub

#End Region


voici j'espère que sur VB6 cela fonctionnera, car j'ai développé ça sur vb.net, il y aura peut être une petite différence.
en tous cas il faut aussi que tu récupères les références Système.xml

A+

Comment transferer des donnees vers excel a partir de vb6

1 réponse

Votre réponse

Discussions similaires