lire un fichier excel à partir de vb6

Question

bonjour à tous,
j'ai un fichier excel que je veux lire et écrire dans une base access à partir de vb6.
je veux de l'aide. merci et bonne journée
Phino

Renfield · Answer

Projets > References > Microsoft Excel Object Library

ndaseraphin · Answer

slt je veux le code de lecture et d'insertion dans une base access au niveau de vb6

ndaseraphin · Answer

je veux le code de lecture d'un fichier excel et d'insertion dans une base de données access au niveau de vb6

Renfield · Answer

y'a des dizaines de codes expliquant ce genre de jonglerie
ne serait il pas temps de relever tes manches et de cesser ces enfantillages ?

Renfield · Answer

Voilà un code de départ

References:
Microsoft Excel 10.0 Object Library
Microsoft ActiveX Data Objects Library 2.8

------

Dim oExcel As Excel.Application
Dim oWorkSheet As Worksheet
Dim oRange As Range
Dim oConn As Connection
Dim sBuffer As String
    Set oConn = New Connection
    oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\a.mdb;"

    Set oExcel = New Excel.Application
    Set oWorkSheet = oExcel.Workbooks.Open("C:\a.xls").Worksheets("Feuil1")
    
    For Each oRange In oWorkSheet.Range("A1:A5")
        sBuffer = Replace(oRange.Text, "'", "''")
        oConn.Execute "INSERT INTO `Table1` (`Champ1`) VALUES ('" & sBuffer & "') "
    Next oRange
    
    oExcel.Quit
    oConn.Close

whitelegend · Answer

Renfield,

Je m'incruste un peu dans le sujet mais la source que tu donnes viens de me donner la solution à un problème non résolu que j'avais posté !!! merci bcp!

J'ai même fini par abandonner ce que je voulais faire au profit d'un autre système.

Je prépare un bout de code et un message pour le poster dans mon sujet afin qu'il y ai une solution disponible.

LC

Lire un fichier excel à partir de vb6

6 réponses

Votre réponse