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 对象模型很容易解决这个问题,下面是邀月的测试过程及代码：


新建一控制台项目，添加两个dll

Microsoft.Office.Interop.Excel


Microsoft.VisualBasic




如图：









添加代码：


using System;
using System.Collections.Generic;
using System.Text;
//add namespace
using 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共同所有，转载请注明出处。
助人等于自助!   3w@live.cn