Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

How to read the first sheet in Excel

449 views
Skip to first unread message

ad

unread,
May 7, 2006, 9:41:59 PM5/7/06
to
We can use the codes below to read the sheet name mySheet in a Exel file.

string strConn = "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" +
Server.MapPath("Book1.xls") + ";Extended Properties=Excel 8.0";
OleDbConnection conn = new OleDbConnection(strConn);
OleDbDataAdapter adp = new OleDbDataAdapter("Select * from
[mySheet$]",conn);
DataSet ds = new DataSet();
....

But if we do'nt know the sheet name, but I just want read the first sheet in
the excel file.
How can I do?


Cor Ligthert [MVP]

unread,
May 8, 2006, 5:20:13 AM5/8/06
to
Ad,

da.Fill(ds, "Sheet1");

I hope this helps,

Cor


"ad" <fly...@wfes.tcc.edu.tw> schreef in bericht
news:OyM4U8hc...@TK2MSFTNGP05.phx.gbl...

ad

unread,
May 8, 2006, 12:05:04 PM5/8/06
to
Thanks,
But how to modify the line below when I don't know the WhorkSheet name at
first?

OleDbDataAdapter adp = new OleDbDataAdapter("Select * from
[mySheet$]",conn);

"Cor Ligthert [MVP]" <notmyfi...@planet.nl> 撰寫於郵件新聞:uncGV7lc...@TK2MSFTNGP03.phx.gbl...

Paul Clement

unread,
May 8, 2006, 2:22:34 PM5/8/06
to
On Mon, 8 May 2006 05:41:59 +0800, "ad" <fly...@wfes.tcc.edu.tw> wrote:

¤ We can use the codes below to read the sheet name mySheet in a Exel file.

There are only two ways, of which I am aware, that will enable you to retrieve an Excel Worksheet by
its ordinal position. First method is to use DAO:

Dim xlWB As DAO.Database
Dim strFirstSheetName As String

xlWB = OpenDatabase("C:\Test Files\Book10.xls", False, True, "Excel 8.0;")

strFirstSheetName = xlWB.TableDefs(0).Name

xlWB.Close

...and the other is to use automation with Microsoft Excel:

Dim obj As Excel.Application
Dim objWB As Excel.Workbook
Dim strFirstSheetName As String

obj = CreateObject("Excel.Application")
objWB = obj.Workbooks.Open("C:\Test Files\Book10.xls")

strFirstSheetName = objWB.Worksheets(1).Name

objWB.Close
objWB = Nothing
obj.Quit
obj = Nothing


Paul
~~~~
Microsoft MVP (Visual Basic)

0 new messages