基于.Net挫以,word和Excel表的生成和導(dǎo)出

以下是我調(diào)用的關(guān)鍵程序集

using Microsoft.Office.Core;

根據(jù)這個(gè)程序集我進(jìn)行了里面的封裝以便更快捷的編碼得到相應(yīng)的報(bào)表樣式

生成Excel報(bào)表

 /// <summary>
        /// 創(chuàng)建Excel內(nèi)容并導(dǎo)出
        /// </summary>
        /// <param name="filepath">路徑</param>
        /// <returns></returns>
        public bool NewExport(string filepath)
        {
            bool bSuccess = true;
            Microsoft.Office.Interop.Excel.Application appexcel = new Microsoft.Office.Interop.Excel.Application();
            System.Reflection.Missing miss = System.Reflection.Missing.Value;
            appexcel = new Microsoft.Office.Interop.Excel.Application();
            Microsoft.Office.Interop.Excel.Workbook workbookdata = null;
            Microsoft.Office.Interop.Excel.Worksheet worksheetdata = null;
            Microsoft.Office.Interop.Excel.Range range;
            workbookdata = appexcel.Workbooks.Add(true);
            //appexcel.Cells[1, 4].Value = "第一行第四列";
            appexcel.Visible = false;
            appexcel.DisplayAlerts = false;
            //初始化range
            range = appexcel.Cells[1, 1];
            //設(shè)置兩個(gè)單元格列子
            SetCell(1, 1, "", 0, null, true, 0, 0, appexcel, range);
            SetCell(1, 2, 1, 339, "全國(guó)-上柜月報(bào)表", 0, null, true, 0, 30, appexcel, range);
            try
            {
                //導(dǎo)出和保存Excel表  
                workbookdata.SaveAs(filepath, miss, miss, miss, miss, miss, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlNoChange, miss, miss, miss);
                workbookdata.Close(false, miss, miss);
                appexcel.Workbooks.Close();
                appexcel.Quit();

                System.Runtime.InteropServices.Marshal.ReleaseComObject(workbookdata);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(appexcel.Workbooks);
                System.Runtime.InteropServices.Marshal.ReleaseComObject(appexcel);
                GC.Collect();
            }
            catch (Exception ex)
            {
                string ErrorMsg = ex.Message;
                Console.WriteLine(ErrorMsg);
                MessageBox.Show(ErrorMsg);
                bSuccess = false;
            }

            MessageBox.Show(bSuccess.ToString());
            return bSuccess;
        }
        /// <summary>
        /// 設(shè)置一個(gè)不用合并單元格的樣式和內(nèi)容
        /// </summary>
        /// <param name="row">單元格的行數(shù)</param>
        /// <param name="col">單元格的列數(shù)</param>
        /// <param name="text">單元格文本</param>
        /// <param name="fontsize">單元格字體大小</param>
        /// <param name="fontname">單元格字體樣式</param>
        /// <param name="color">單元格是否要背景色</param>
        /// <param name="width">單元格寬度</param>
        /// <param name="height">單元格高度</param>
        /// <param name="appexcel"></param>
        /// <param name="range"></param>
        private void SetCell(int row, int col, string text, int fontsize, string fontname, bool color, int width, int height, Microsoft.Office.Interop.Excel.Application appexcel, Microsoft.Office.Interop.Excel.Range range)
        {
            range = appexcel.Cells[row, col];
            range.Value = text;
            range.Borders.LineStyle = 1;
            range.HorizontalAlignment = XlHAlign.xlHAlignCenter;
            range.EntireColumn.AutoFit();
            if (fontname != null)
            {
                range.Font.Name = fontname;
            }
            if (color == true)
            {
                //range.Cells.Interior.Color = Color.FromArgb(r1, r2, r3).ToArgb();     //設(shè)置單元格的背景色 
                range.Cells.Interior.Color = Color.LightGray;     //設(shè)置單元格的背景色 
            }

            if (fontsize != 0)
            {
                range.Font.Size = fontsize;
            }

            if (width != 0)
            {
                range.ColumnWidth = width;
            }
            if (height != 0)
            {
                range.RowHeight = height;
            }
            range.Merge(true);

        }
        /// <summary>
        /// 設(shè)置一個(gè)需要合并單元格的樣式和內(nèi)容
        /// </summary>
        /// <param name="row">單元格的行數(shù)</param>
        /// <param name="col">單元格的列數(shù)</param>
        /// <param name="row2"></param>
        /// <param name="col2"></param>
        /// <param name="text">單元格文本</param>
        /// <param name="fontsize">單元格字體大小</param>
        /// <param name="fontname">單元格字體樣式</param>
        /// <param name="color">單元格是否要背景色</param>
        /// <param name="width">單元格寬度</param>
        /// <param name="height">單元格高度</param>
        /// <param name="appexcel"></param>
        /// <param name="range"></param>

        private void SetCell(int row, int col, int row2, int col2, string text, int fontsize, string fontname, bool color, int width, int height, Microsoft.Office.Interop.Excel.Application appexcel, Microsoft.Office.Interop.Excel.Range range)
        {
            range = appexcel.Range[appexcel.Cells[row, col], appexcel.Cells[row2, col2]];
            range.Value = text;
            range.Borders.LineStyle = 1;
            range.HorizontalAlignment = XlHAlign.xlHAlignCenter;
            range.EntireColumn.AutoFit();
            if (fontname != null)
            {
                range.Font.Name = fontname;
            }
            if (color == true)
            {
                range.Cells.Interior.Color = Color.LightGray;     //設(shè)置單元格的背景色 
            }

            if (fontsize != 0)
            {
                range.Font.Size = fontsize;
            }
            if (width != 0)
            {
                range.ColumnWidth = width;
            }
            if (height != 0)
            {
                range.RowHeight = height;
            }
            range.Merge(false);
        }

生成word報(bào)表
關(guān)鍵程序集
using Microsoft.Office.Interop.Word;

 object filename = path; //文件保存路徑
                    //創(chuàng)建Word文檔
                    Microsoft.Office.Interop.Word.Application WordApp = new Microsoft.Office.Interop.Word.Application();
                    Microsoft.Office.Interop.Word.Document WordDoc = WordApp.Documents.Add(ref Nothing, ref Nothing,
                        ref Nothing, ref Nothing);

                    //添加頁眉
                    WordApp.ActiveWindow.View.Type = WdViewType.wdOutlineView;
                    WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekPrimaryHeader;
                    WordApp.ActiveWindow.ActivePane.Selection.InsertAfter("工商協(xié)同信息交流");
                    WordApp.Selection.ParagraphFormat.Alignment = WdParagraphAlignment.wdAlignParagraphCenter; //設(shè)置右對(duì)齊
                    WordApp.ActiveWindow.View.SeekView = WdSeekView.wdSeekMainDocument; //跳出頁眉設(shè)置

                    WordApp.Selection.ParagraphFormat.LineSpacing = 15f; //設(shè)置文檔的行間距

                    //移動(dòng)焦點(diǎn)并換行
                    object count = 14;
                    object WdLine = WdUnits.wdLine; //換一行;
                    WordApp.Selection.MoveDown(ref WdLine, ref count, ref Nothing); //移動(dòng)焦點(diǎn)

                    // 插入段落
                    Microsoft.Office.Interop.Word.Paragraph para;
                    para = WordDoc.Content.Paragraphs.Add(ref Nothing);

                    //插入一個(gè)段落
                    para.Range.Text = "";//段落內(nèi)容
                    para.Range.Font.Size = 30;//段落字體大小
                    para.Range.Font.Bold = 4;//段落字體粗細(xì)
                    para.Range.Font.Name = "黑體";//段落字體樣式
                    para.Range.Font.Color = WdColor.wdColorRed;//段落字體顏色
                    para.Alignment = WdParagraphAlignment.wdAlignParagraphCenter;//段落位置
                    para.Range.InsertParagraphAfter();//段落后插入相當(dāng)于回車鍵

                     WordApp.Selection.MoveDown(ref WdLine, ref count, ref Nothing); //移動(dòng)焦點(diǎn)

                                        //文檔中創(chuàng)建表格
                                        //參數(shù)為表格的行數(shù)和列數(shù),2行3列
                  Table newTable =
                                            WordDoc.Tables.Add(WordApp.Selection.Range, DDSCModel.Count + 2, 3,
                                                ref Nothing, ref Nothing);
                                        //設(shè)置表格樣式
                  newTable.Borders.OutsideLineStyle = WdLineStyle.wdLineStyleThickThinLargeGap;
                  newTable.Borders.InsideLineStyle = WdLineStyle.wdLineStyleSingle;
                  newTable.Columns[1].Width = 160f;//每一列的的寬度
                  newTable.Columns[2].Width = 160f;
                  newTable.Columns[3].Width = 160f;


                 //填充表格內(nèi)容
                 newTable.Cell(1, 1).Range.Text = "單位:箱";
                 newTable.Cell(1, 1).Range.Font.Color = WdColor.wdColorBlack;
                 newTable.Cell(1, 1).Range.Font.Size = 10;
                 newTable.Cell(1, 1).Range.Bold = 1; //設(shè)置單元格中字體為粗體
                                                                            //合并單元格
                 newTable.Cell(1, 1).Merge(newTable.Cell(1, 3));
                 WordApp.Selection.Cells.VerticalAlignment =
                 WdCellVerticalAlignment.wdCellAlignVerticalCenter; //垂直居中
                 WordApp.Selection.ParagraphFormat.Alignment =
                 WdParagraphAlignment.wdAlignParagraphLeft; //水平居中

                                        //插入圖片
                                          string FileName = @"D:\SVN2\真龍運(yùn)行數(shù)據(jù)推送項(xiàng)目\DataSend\DataSend.Word\3.png"; //圖片所在路徑
                    object LinkToFile = false;
                    object SaveWithDocument = true;
                    object Anchor = WordDoc.Application.Selection.Range;
                    //文件保存
                    WordDoc.Application.ActiveDocument.Shapes.AddPicture(FileName, ref LinkToFile,
                        ref SaveWithDocument, 0f, 0f, 400f, 500f);
 WordDoc.SaveAs(ref filename, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing,
                            ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing, ref Nothing,
                            ref Nothing, ref Nothing, ref Nothing);
                        WordDoc.Close(ref Nothing, ref Nothing, ref Nothing);
                        WordApp.Quit(ref Nothing, ref Nothing, ref Nothing);
                    
最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末辜王,一起剝皮案震驚了整個(gè)濱河市熄攘,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌于样,老刑警劉巖,帶你破解...
    沈念sama閱讀 216,843評(píng)論 6 502
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件潘靖,死亡現(xiàn)場(chǎng)離奇詭異穿剖,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)卦溢,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,538評(píng)論 3 392
  • 文/潘曉璐 我一進(jìn)店門糊余,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人单寂,你說我怎么就攤上這事贬芥。” “怎么了凄贩?”我有些...
    開封第一講書人閱讀 163,187評(píng)論 0 353
  • 文/不壞的土叔 我叫張陵誓军,是天一觀的道長(zhǎng)袱讹。 經(jīng)常有香客問我疲扎,道長(zhǎng),這世上最難降的妖魔是什么捷雕? 我笑而不...
    開封第一講書人閱讀 58,264評(píng)論 1 292
  • 正文 為了忘掉前任椒丧,我火速辦了婚禮,結(jié)果婚禮上救巷,老公的妹妹穿的比我還像新娘壶熏。我一直安慰自己,他們只是感情好浦译,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,289評(píng)論 6 390
  • 文/花漫 我一把揭開白布棒假。 她就那樣靜靜地躺著溯职,像睡著了一般。 火紅的嫁衣襯著肌膚如雪帽哑。 梳的紋絲不亂的頭發(fā)上谜酒,一...
    開封第一講書人閱讀 51,231評(píng)論 1 299
  • 那天,我揣著相機(jī)與錄音妻枕,去河邊找鬼僻族。 笑死,一個(gè)胖子當(dāng)著我的面吹牛屡谐,可吹牛的內(nèi)容都是我干的述么。 我是一名探鬼主播,決...
    沈念sama閱讀 40,116評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開眼愕掏,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼度秘!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起饵撑,我...
    開封第一講書人閱讀 38,945評(píng)論 0 275
  • 序言:老撾萬榮一對(duì)情侶失蹤敷钾,失蹤者是張志新(化名)和其女友劉穎,沒想到半個(gè)月后肄梨,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體阻荒,經(jīng)...
    沈念sama閱讀 45,367評(píng)論 1 313
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,581評(píng)論 2 333
  • 正文 我和宋清朗相戀三年众羡,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了侨赡。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 39,754評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡粱侣,死狀恐怖羊壹,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情齐婴,我是刑警寧澤油猫,帶...
    沈念sama閱讀 35,458評(píng)論 5 344
  • 正文 年R本政府宣布,位于F島的核電站柠偶,受9級(jí)特大地震影響情妖,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜诱担,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,068評(píng)論 3 327
  • 文/蒙蒙 一毡证、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧蔫仙,春花似錦料睛、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,692評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽屎勘。三九已至,卻和暖如春居扒,著一層夾襖步出監(jiān)牢的瞬間挑秉,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 32,842評(píng)論 1 269
  • 我被黑心中介騙來泰國(guó)打工苔货, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留犀概,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 47,797評(píng)論 2 369
  • 正文 我出身青樓夜惭,卻偏偏與公主長(zhǎng)得像姻灶,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子诈茧,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,654評(píng)論 2 354

推薦閱讀更多精彩內(nèi)容

  • Spring Cloud為開發(fā)人員提供了快速構(gòu)建分布式系統(tǒng)中一些常見模式的工具(例如配置管理产喉,服務(wù)發(fā)現(xiàn),斷路器敢会,智...
    卡卡羅2017閱讀 134,652評(píng)論 18 139
  • 文件格式(或文件類型)是指電腦為了存儲(chǔ)信息而使用的對(duì)信息的特殊編碼方式曾沈,是用于識(shí)別內(nèi)部?jī)?chǔ)存的資料。比如有的儲(chǔ)...
    一只不靠譜的猿_閱讀 3,669評(píng)論 0 10
  • 自從學(xué)習(xí).NET以來鸥昏,優(yōu)雅的編程風(fēng)格塞俱,極度簡(jiǎn)單的可擴(kuò)展性,足夠強(qiáng)大開發(fā)工具吏垮,極小的學(xué)習(xí)曲線障涯,讓我對(duì)這個(gè)平臺(tái)產(chǎn)生了濃...
    taony閱讀 1,408評(píng)論 0 42
  • 自從學(xué)習(xí).NET以來,優(yōu)雅的編程風(fēng)格膳汪,極度簡(jiǎn)單的可擴(kuò)展性唯蝶,足夠強(qiáng)大開發(fā)工具,極小的學(xué)習(xí)曲線遗嗽,讓我對(duì)這個(gè)平臺(tái)產(chǎn)生了濃...
    小明yz閱讀 6,698評(píng)論 8 193
  • using System; using System.Data;using System.Configuratio...
    北風(fēng)知我意閱讀 6,002評(píng)論 2 2