当前上下文中不存在名称“COM”

baomihua21 2013-06-22 09:48:47

我用的是vs2010，以前用的函数

   public string DataExcel(System.Data.DataTable dt, string strTitle, string FilePath, Hashtable nameList)

        {

            //dgv.DataSource as System.Data.DataTable;



            COM.Excel.cExcelFile excel = new COM.Excel.cExcelFile();

            ClearFile(FilePath);

            string filename = "[" + DateTime.Now.ToString("yyyy-MM-dd") + "]" + ".xls";

            excel.CreateFile(FilePath + filename);

            excel.PrintGridLines = false;



            COM.Excel.cExcelFile.MarginTypes mt1 = COM.Excel.cExcelFile.MarginTypes.xlsTopMargin;

            COM.Excel.cExcelFile.MarginTypes mt2 = COM.Excel.cExcelFile.MarginTypes.xlsLeftMargin;

            COM.Excel.cExcelFile.MarginTypes mt3 = COM.Excel.cExcelFile.MarginTypes.xlsRightMargin;

            COM.Excel.cExcelFile.MarginTypes mt4 = COM.Excel.cExcelFile.MarginTypes.xlsBottomMargin;



            double height = 1.5;

            excel.SetMargin(ref mt1, ref height);

            excel.SetMargin(ref mt2, ref height);

            excel.SetMargin(ref mt3, ref height);

            excel.SetMargin(ref mt4, ref height);



            COM.Excel.cExcelFile.FontFormatting ff = COM.Excel.cExcelFile.FontFormatting.xlsNoFormat;

            string font = "宋体";

            short fontsize = 9;

            excel.SetFont(ref font, ref fontsize, ref ff);



            byte b1 = 1,

                b2 = 12;

            short s3 = 12;

            excel.SetColumnWidth(ref b1, ref b2, ref s3);



            string header = "页眉";

            string footer = "页脚";

            excel.SetHeader(ref header);

            excel.SetFooter(ref footer);





            COM.Excel.cExcelFile.ValueTypes vt = COM.Excel.cExcelFile.ValueTypes.xlsText;

            COM.Excel.cExcelFile.CellFont cf = COM.Excel.cExcelFile.CellFont.xlsFont0;

            COM.Excel.cExcelFile.CellAlignment ca = COM.Excel.cExcelFile.CellAlignment.xlsCentreAlign;

            COM.Excel.cExcelFile.CellHiddenLocked chl = COM.Excel.cExcelFile.CellHiddenLocked.xlsNormal;

……

……]}