[VB.Net] lecture de fichier EXCEL

Bonjour,

J'ai besoin de l'ire un fichier EXCEL de façon à remplir une table Oracle.

Pour cela, j'essaie d'ouvrir un fichier Excell. j'ai donc écris les lignes suivants :

Dim xlapp As Excel.Application
Dim xlSheet As Excel.Worksheet

xlapp = New Excel.Application
xlSheet = xlapp.Workbooks.Open("C:\Monfich.xls").Worksheets(0)

Ceci génère une erreur.
Pour info, j'ais uniquement installé sur mon PC Microsoft Excel 9.0 Object libray.


Pouvez vous me dire ce qui ne va pas.

Merci

c'est quoi le message d'erreur ?

Voila le stack de mon erreur :

System.Runtime.InteropServices.COMException was unhandled
ErrorCode=-2147319784
Message="Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))"
Source="Interop.Excel"
StackTrace:
at Excel.Workbooks.Open(String Filename, Object UpdateLinks, Object ReadOnly, Object Format, Object Password, Object WriteResPassword, Object IgnoreReadOnlyRecommended, Object Origin, Object Delimiter, Object Editable, Object Notify, Object Converter, Object AddToMru)
at WindowsApplication1.Form1.Form1_Load(Object sender, EventArgs e) in C:\Documents and Settings\pxcc721\Local Settings\Application Data\Temporary Projects\WindowsApplication1\Form1.vb:line 8
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
at System.Windows.Forms.SafeNativeMethods.ShowWindow(HandleRef hWnd, Int32 nCmdShow)
at System.Windows.Forms.Control.SetVisibleCore(Boolean value)
at System.Windows.Forms.Form.SetVisibleCore(Boolean value)
at System.Windows.Forms.Control.set_Visible(Boolean value)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
at System.Windows.Forms.Application.Run(ApplicationContext context)
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81
at System.AppDomain.nExecuteAssembly(Assembly assembly, String[] args)
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
at System.Threading.ThreadHelper.ThreadStart_Context(Object state)
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
at System.Threading.ThreadHelper.ThreadStart()

mets un try catch avec ex.message pour capter le message d'erreur, on en aura un moins compliqué je pense

Je n'ai aucune expérience avec mais dans ton cas ne serait-il pas plus simple dans ton cas d'utiliser le driver Excel ODBC au lieu d'ouvrir excel en oledb ?

Bonjour,

Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object

xlApp = CreateObject("Excel.Application")
( ou si tu préfère New Excel.Application ! )
xlBook = xlApp.Workbooks.open("C:\Monfich.xls").
xlSheet = xlBook.Worksheets(ici le nom ou N° de feuille)

Es-tu sûr du 0 dans "Worksheets(0)", étonnant !

Ca marche, c'est sûr.

Gilles_37