c#读取Excel的第一个Sheet表

有朋友问道：

public ArrayList ExcelSheetName(string filepath) { ArrayList al = new ArrayList(); string strConn; strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filepath + ";Extended Properties=/"Excel 8.0;HDR=Yes;IMEX=1;/";"; OleDbConnection conn = new OleDbConnection(strConn); conn.Open(); DataTable sheetNames = conn.GetOleDbSchemaTable (System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "TABLE" }); conn.Close(); foreach (DataRow dr in sheetNames.Rows) { al.Add(dr[2]); } return al; }

这个方法获取的EXCEL表名是按字母顺序排列的，如果我要获得EXCEL的第一个工作表名，怎么做？

其实利用Framework提供的Excel 对象模型很容易解决这个问题,下面是邀月的测试过程及代码：
新建一控制台项目，添加两个dllMicrosoft.Office.Interop.Excel
Microsoft.VisualBasic
如图：

添加代码：
using System;using System.Collections.Generic;using System.Text;//add namespaceusing Microsoft.Office.Interop.Excel;namespace ReadFirstSheetNameDemo{    public class Program    {        public static void Main(string[] args)        {            //Get Xth SheetName of Excel File            Console.WriteLine(GetFirstSheetNameFromExcelFileName("C://test.xls",1));            Console.ReadKey();        }        public static string GetFirstSheetNameFromExcelFileName(string filepath,int numberSheetID)        {            if (!System.IO.File.Exists(filepath))            {                return "This file is on the sky??";            }            if (numberSheetID <= 1) { numberSheetID = 1; }            try            {                Microsoft.Office.Interop.Excel.Application obj = default(Microsoft.Office.Interop.Excel.Application);                Microsoft.Office.Interop.Excel.Workbook objWB = default(Microsoft.Office.Interop.Excel.Workbook);                string strFirstSheetName = null;                obj = (Microsoft.Office.Interop.Excel.Application)Microsoft.VisualBasic.Interaction.CreateObject("Excel.Application", string.Empty);                objWB = obj.Workbooks.Open(filepath, Type.Missing, Type.Missing,                    Type.Missing, Type.Missing, Type.Missing, Type.Missing,                     Type.Missing,Type.Missing, Type.Missing, Type.Missing,                     Type.Missing, Type.Missing,Type.Missing, Type.Missing);                strFirstSheetName = ((Microsoft.Office.Interop.Excel.Worksheet)objWB.Worksheets[1]).Name;                objWB.Close(Type.Missing, Type.Missing, Type.Missing);                objWB = null;                obj.Quit();                obj = null;                return strFirstSheetName;            }            catch (Exception Err)            {                return Err.Message;            }        }    }} 
结果：

参考资料：
http://www.cnblogs.com/downmoon/archive/2008/08/20/1272185.html
http://msdn.microsoft.com/zh-cn/library/aa168292%28office.11%29.aspx#EDAA 

邀月注：本文版权由邀月和CSDN共同所有，转载请注明出处。
助人等于自助!   [e-mail]