C# 写Excel时, sheet.get_Range(“A1“, “I50“).Cells.Interior.Color ,保存文件时,程序就卡再哪里不动,请问有大神知道吗?

该篇文章详细描述了如何使用VisualBasicforApplications(VBA)在Excel中创建新工作簿,添加工作表,设置特定范围的边框、颜色和字体,并保存文件的过程。
摘要由CSDN通过智能技术生成

Excel.Workbooks oBooks;
        Excel.Workbook book;
        Excel.Sheets oSheets;
        Excel.Worksheet sheet;
        Excel.Range Cells;

        Excel.Application pltExcel;
        pltExcel = new Excel.Application();
        SaveFileDialog xlsSave = new SaveFileDialog();
        xlsSave.Filter = "xls Files|*.xls";
        xlsSave.FileName = this.txtLotID.Text;
        DialogResult dlgResult;
        dlgResult = xlsSave.ShowDialog();
        if (dlgResult == DialogResult.OK)
        {

            pltExcel.Workbooks.Add(true);
            oBooks = pltExcel.Workbooks;
            book = oBooks[1];
            oSheets = book.Worksheets;
            sheet = (Excel.Worksheet)oSheets[1];
            sheet.Name = this.txtLotID.Text;
            Cells = sheet.Cells;
          //
            sheet.get_Range("A1", "I50").Borders.LineStyle = 1;
            sheet.get_Range("A1", "I50").Borders.Weight = 3;
                sheet.get_Range("A1", "I50").Cells.Interior.Color = System.Drawing.Color.LightGray.ToArgb();
                //sheet.get_Range("A1", "I50").Font.Size = 8;
                //sheet.get_Range("A1", "I50").Font.Bold = true;
                //sheet.get_Range("A1", "I50").Font.Name = "思源黑体 CN Regular";


                //Cells[17, 1] = "NO";
                //Cells[17, 2] = "Description";
                //sheet.get_Range("B17", "C17").Merge(Cells.get_Range("B17", "C17").MergeCells);
                //Cells[17, 4] = "Tool";
                //Cells[17, 5] = "Recipe";
                //Cells[17, 6] = "SMIF ID";
                //Cells[17, 7] = "Sign In";
                //Cells[17, 8] = "Sign Out";
                //Cells[17, 9] = "Memo";
                //sheet.get_Range("A17", "I17").Font.Size = 12;


                //Cells[11, 1] = "Frame CD SPEC";
                //Cells[11, 5] = "Registration SPEC";
                //Cells[11, 6] = "Defect SPEC";

                //sheet.get_Range("A11", "C11").Merge(Cells.get_Range("A11", "C11").MergeCells);
                //sheet.get_Range("D11", "E11").Merge(Cells.get_Range("D11", "E11").MergeCells);
                //sheet.get_Range("F11", "I11").Merge(Cells.get_Range("F11", "I11").MergeCells);
                // sheet.get_Range("A11", "I11").Font.Size = 12;
                // Cells[16, 1] = "ENG NOTE";

                pltExcel.ActiveWorkbook.SaveAs(xlsSave.FileName,
                                            Excel.XlFileFormat.xlWorkbookNormal, Type.Missing,
                                            Type.Missing, Type.Missing, Type.Missing,
                                            Excel.XlSaveAsAccessMode.xlNoChange, Type.Missing,
                                            Type.Missing, Type.Missing, Type.Missing, Type.Missing);

            pltExcel.Quit();
            Marshal.ReleaseComObject(Cells);
            Marshal.ReleaseComObject(sheet);
            Marshal.ReleaseComObject(oSheets);
            Marshal.ReleaseComObject(book);
            Marshal.ReleaseComObject(oBooks);
            Marshal.ReleaseComObject(pltExcel);
            pltExcel = null;
            oBooks = null;
            book = null;
 

  • 12
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值