Comment transferer des donnees vers excel a partir de vb6

demha58 - 17 oct. 2015 à 21:37
ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
- 18 oct. 2015 à 08:39
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

1 réponse

ManuAntibes
Messages postés
491
Date d'inscription
mardi 24 octobre 2000
Statut
Membre
Dernière intervention
18 novembre 2021
4
18 oct. 2015 à 08:39
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+
0