Ado.Net Excel Lire un fichier ferméRésolu

Question

Bonjour a tous....

Je suis débutant avec ADO.Net et Excel....

Je cherche depuis quelque temps un truc pour être capable de me connecter a ma BD EXCEL sans que mon fichier soit ouvert.

J'utilise ce code qui fonctionne très bien lorsque mon fichier EXCEL est ouvert mais qui ne fonctionne pas lorsque mon fichier est fermé

Dans Mon Load
ChargerNMP("c:\Classeur1.xlsx")

Dans un Module

Dim MyConnectionNMP As OleDbConnection = New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0; " & "data source=" & FichierNMP & "; " & "Extended Properties=""Excel 8.0;HDR=NO;""")
        Dim MyCommand As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter("select * from [Feuil1$]", MyConnectionNMP)
        Dim DS As System.Data.DataSet = New System.Data.DataSet

        MyCommand.Fill(DS)


Lorsque mon fichier Excel est fermé, ca dit comme erreur a la ligne MyCommand.Fill(DS):La table externe n'est pas dans le format attendu


merci de votre aide

ManuAntibes · Accepted Answer

Salut

voici un example comment manipulé excel
http://www.vbfrance.com/codes/CODE-PERMETTANT-MANIPULER-OBJETS-EXCEL-NET_38534.aspx

remplace True par False sur la ligne  appxls.Visible = True
peut etre existe t'il MyCommand.visible...

par contre pour chargé ton dataset comme ça je ne vois pas trop, mais tu as une piste.

  A+


MANUANTIBES

cs_MagDix · Answer

Désolé pour le délais.... 

Merci beaucoup... Ca m'aide vraiment à mieux comprendre....

A+

cs_MagDix · Answer

Ce lien a réglé beaucoup de mes questions à l'exeption de quelques-unes. Je n'arrive toujours pas à me créer un tableau de ma colonne A de mon fichier excel.

Je ne saisi pas comment faire ma boucle. Je ne sais pas quoi remplacer le mot "book" afin que ma boucle puisse fonctionner.  Si tu peux m'éclairer un peu... merci de ton aide.
Voici "mon" code:
        Dim appxls As Microsoft.Office.Interop.Excel.Application
        Dim book As Microsoft.Office.Interop.Excel.Workbook
        Dim excelfile As String

        appxls = New Microsoft.Office.Interop.Excel.Application
        appxls.Visible = False 'Si à True on voit le fichier EXCEL qui s'ouvre
        excelfile = "C:\Users\Documents\Excel\Fichier.xls" 
        book = appxls.Workbooks.Open(excelfile)

        Dim i As Integer
        Do Until book.Rows(i).Item(0).ToString = vbNullString
            If i = 0 Then
                ReDim Tableau(i)
            Else
                ReDim Preserve Tableau(i)
            End If
            Tableau(i) = book.Rows(i).Item(0).ToString
        Loop

Ado.Net Excel Lire un fichier fermé

3 réponses

Votre réponse

Discussions similaires