WinForms

Απ: Read Excel from .net

gmlogic — Mon, 19 Dec 2005 04:22:15 GMT

--------Επιλέγω το .xls Βρίσκω πιό φύλλο θέλω
Dim ExcelApp As New Excel.Application
Dim ExcelWB As Excel.Workbook = ExcelApp.Workbooks.Open(xlsPath)
Dim ThisWorksheet As New Excel.Worksheet
Dim RCount As Integer
For RCount = 1 To ExcelWB.Worksheets.Count
ThisWorksheet = ExcelWB.Worksheets(RCount)
Console.WriteLine(ThisWorksheet.Name)
Next
'--------Και μετά Select κλπ
Dim m_daLookUp As OleDb.OleDbDataAdapter
Dim m_dsLookUp As DataSet
Dim sConnectionString As String
sConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & xlsPath & _
";Extended Properties=Excel 8.0;"
ThisWorksheet = ExcelWB.Worksheets(1)
m_dsLookUp = New DataSet
m_daLookUp = New OleDb.OleDbDataAdapter( _
"select * from [" & ThisWorksheet.Name & "$]", sConnectionString)
-----------------------------------
Ok αυτό ζητούσα
Σας ευχαριστώ όλους

Απ: Read Excel from .net

gmlogic — Fri, 16 Dec 2005 23:35:25 GMT

Θέλω να βρίσκω πρώτα το [sheetName$] και μετά να εφαρμόσω τα select κλπ

Απ: Read Excel from .net

zanny — Fri, 16 Dec 2005 23:28:05 GMT

Δεν ξέρω τι ακριβώς δουλεύεις, απλά αναφέρω ότι μπορείς να δουλέψεις και με το excel χωρίς να χρησιμοποιήσεις το Excel.Application αλλά να παίξεις με oleDBConnection πχ:

Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";Extended Properties=""Excel 8.0;HDR=No;IMEX=1"""
Dim dbConnection As New OleDbConnection(connectionString)

Dim queryString As String = "SELECT * FROM [sheetName$]"
Dim dbCommand As New OleDbCommand
Dim dataSet As New DataSet
Dim dataAdapter As New OleDbDataAdapter

dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
dataAdapter.SelectCommand = dbCommand
dataAdapter.Fill(dataSet, "myTable")

Απ: Read Excel from .net

gmlogic — Fri, 16 Dec 2005 21:49:17 GMT

Παναγιώτη με βοήθησες αρκετά
Αν μπορειίς να μου πεις πως οταν
Dim ExcelWB As Excel.Workbook = ExcelApp.Workbooks.Open(XLSFile)
Θα δω ποιά Sheets υπαρχουν για να δώσω δυνατότα επιλογής
Ευχαριστώ

Απ: Read Excel from .net

gmlogic — Fri, 16 Dec 2005 21:01:01 GMT

Στο Reference Properties εχω

NAME:Interop.Excel
Description:Microsoft Excel 9.0 Object Library
Version:1.3

Εχω to Office 2003

Απ: Read Excel from .net

Παναγιώτης Καναβός — Fri, 16 Dec 2005 21:00:42 GMT

Δεν μπορείς να δημιουργήσεις ένα αντικείμενο Excel.WorkBook. Πρέπει πρώτα να δημιουργήσεις ένα αντικείμενο Excel.Application και μετά να καλέσεις την μέθοδο WorkBooks.Open όπως φαίνεται παρακάτω:

Dim ExcelApp As New Excel.Application
Dim ExcelWB As Excel.Workbook = ExcelApp.Workbooks.Open(XLSFile)

Πάντως, αν το μόνο που θέλεις είναι να διαβάσεις τα περιεχόμενα ένος αρχείου xls μπορείς να το ανοίξεις σαν datasource μέσω του Jet OLEDB Provider. Δες το How To Use ADO.NET to Retrieve and Modify Records in an Excel Workbook With Visual Basic .NET

Απ: Read Excel from .net

George J. Capnias — Fri, 16 Dec 2005 20:24:13 GMT

Στο μηχάνημα που τρέχει το πρόγραμμα είναι εγκατεστημένο το Excel; Είναι η ίδια έκδοση με αυτή που έχει αναπτυχτεί το πρόγραμμα ή παλαιότερη/νεότερη; Έχει γίνει πλήρη εγκατάσταση ή η default;

George J.

Απ: Read Excel from .net

gmlogic — Fri, 16 Dec 2005 20:02:00 GMT

Οτα τρέχει το
wb = New Excel.Workbook

παίρνω

Generic Exception Handler: System.Runtime.InteropServices.COMException (0x80040154): Το αντικείμενο COM με CLSID {00020819-0000-0000-C000-000000000046} είτε δεν είναι έγκυρο είτε δεν έχει καταχωρηθεί.
at GmPay.GmPay01.DataGrid1_LOAD() in D:\Gmapps.NET\GmPay\GmPay01.vb:line 145

Απ: Read Excel from .net

KelMan — Fri, 16 Dec 2005 19:11:45 GMT

Δεν τα βρίσκεις κάπου, είναι μέρος του .NET Framework.
Βάλε ένα Try...Catch για να πιάσεις το λάθος και να δεις λεπτομέρειες και πες μας, για να δούμε πιο συγκεκριμένα τι συμβαίνει....

Read Excel from .net

gmlogic — Fri, 16 Dec 2005 19:03:37 GMT

Προσπαθώ να ανοίξω ενα xls

και παίρνω το παρακάτω Exception

Dim wb As Excel.Workbook

wb = New Excel.Workbook

wb.Application.Workbooks.Open(xlsPath)

------------------------------------------------

'System.Runtime.InteropServices.COMException'

Υποθέτω οτι κάτι παίζει με τα InteropServices

Που μπορώ να τα βρώ και εαν είναι Free.

Ευχαριστώ πολύ

George.M