Exemplo n.º 1
0
        /// <summary>
        /// 打开用于绘图的Excel程序,并进行界面设计
        /// </summary>
        /// <returns></returns>
        /// <remarks></remarks>
        private Microsoft.Office.Interop.Excel.Worksheet GetDrawingSheet()
        {
            Microsoft.Office.Interop.Excel.Application app  = default(Microsoft.Office.Interop.Excel.Application);
            Microsoft.Office.Interop.Excel.Workbook    wkbk = default(Microsoft.Office.Interop.Excel.Workbook);
            Microsoft.Office.Interop.Excel.Worksheet   sht  = default(Microsoft.Office.Interop.Excel.Worksheet);
            //获取绘图的Application对象
            ClsDrawing_ExcavationElevation ElevationDrawing = GlobalApp.ElevationDrawing;

            if (ElevationDrawing == null)
            {
                app = new Microsoft.Office.Interop.Excel.Application();
            }
            else
            {
                app = ElevationDrawing.Application;
            }
            app.Visible = false;

            //获取绘图的工作簿
            Microsoft.Office.Interop.Excel.Workbooks wkbks = app.Workbooks;
            if (wkbks.Count == 0)
            {
                wkbk = wkbks.Add();
            }
            else
            {
                wkbk = wkbks.Item(1);
            }

            //获取绘图的工作表
            sht = wkbk.Worksheets.Add();

            sht.Activate();
            //'绘图的标题
            //Static DrawingNum As Integer = 0
            //DrawingNum += 1
            //app.Caption = "绘图" & DrawingNum.ToString
            //sht.Name = "绘图" & DrawingNum.ToString
            //'
            //
            return(sht);
        }