[C# 開發技巧系列]使用C#操作Word和Excel程序

 一、引言

　　在我們日常辦公中，我們經常可能遇到一些重復性的工作的，比如，我們在寫畢業設計的時候，有時候我們寫的過程中不注意，當整篇畢業論文寫完之后，發現在畢業論文中存在很多空白的段落，這是我們就需要人工重新審閱一遍論文，再手動刪除一些空白行，由於畢業論文也不是一篇，有開題報告啊，文獻翻譯等等，這樣就可能需要我們人工都去審閱一篇把一些空白行刪除，這樣既花時間，我們也看的累。然后還有一個例子就是——我們人事部門的MM們，一到月末的時候就需要給本月的壽星員工發送郵件來通知參加生日會，如果員工信息是在Excel中的話，這時候人事的MM就要手動地從中查找本月壽星的郵箱，然后用Outlook一個一個添加郵件地址來給本月壽星發送郵件的，為了讓人事MM們不再那么累，所以就想能不能用程序自動化地完成這一系列的過程呢？答案是肯定的，下面就讓我來實現上面的兩個需求的，使我們（尤其是人事MM們）的辦公更加Easy。

二、自動刪除Word中的空白行和頁

　　在引言部分，我們已經提出了這個需求的。記得當時在寫畢業論文的時候，我也做過這些重復的事情，經常寫完之后會再去審閱一遍畢業論文中的所有文檔，然后手動把一些空白行刪除掉，由於當時並不知道可以對Word來進行自動化編程，所以只能傻傻地做這樣一些重復的事情。但是現在不一樣了，自從接觸了VSTO之后，才知道Office一系列產品都是提供了一些公開的API的，我們可以利用這些對象使我們自定義Office程序和使Office自動化地工作，下面就具體講講如何實現這個小的工具的。

首先，我們先明確下這個工具需要實現的功能——自動移除Word文檔中的空白行。然后向大家解釋下實現該工具的思路：

• 我們打開一個Word文檔，該Word文檔就是一個Word.Document對象
• Word文檔中內容都是段落組成的，然而段落在Word對象模型中是Word.Paragraph對象
• 空白行或空白頁也就是段落的內容為空，明白了這點，我們就可以在程序中對段落對象的文本進行判斷，如果段落內容為空，我們就刪除該段落，這樣也就實現了移除空白行的功能了。

　　有了上面的思路之后，然后大家只需要了解Word中對象模型，然后通過對象模型找到段落對象，然后再判斷它的文本是否為空，為空就刪除段落，不為空就什么都不做。所以思路有了之后，就是要了解Word對象模型了，對於這部分內容，大家可以參考我博客的中的——創建Word解決方案。由於代碼中都有注釋，這里就直接看實現該工具的核心代碼：

  string[] wordPatharray = null;
        // 打開需要操作的Word文檔
        private void btnOpen_Click(object sender, EventArgs e)
        {
            using (OpenFileDialog openFileDialog = new OpenFileDialog())
            {
                openFileDialog.Filter = "Word document(*.doc;*.docx)|*.dox;**.docx|All Files(*.*)|*.*";
                // 設置允許選擇多個文件，該屬性默認為false的，即只允許選擇一個文件
                openFileDialog.Multiselect = true;
                if (openFileDialog.ShowDialog() == DialogResult.OK)
                {
                    txtWordPath.Text = openFileDialog.FileName;
                    // 獲得所有選定文件的文件名
                    wordPatharray = openFileDialog.FileNames;
                }
            }
        }
        // 移除Word中的所有空頁
        private void btnRemove_Click(object sender, EventArgs e)
        {
            Word.Application wordapp = null;
            Word.Document doc = null;
            try
            {
                // 啟動Word應用程序並設置不可見
                wordapp = new Word.Application();
                // 如果不設置該屬性，就可以看到Word程序的啟動過程，這個和我們手動啟動Word是一樣的
                wordapp.Visible = false;
                // 遍歷每個文件名
                foreach (var wordpath in wordPatharray)
                {
                    doc = wordapp.Documents.Open(wordpath);
                    // 刪除所有空白頁面
                    Word.Paragraph paragraph;
                    Word.Paragraphs paragraphs = doc.Paragraphs;
                    for (int i = paragraphs.Count; i > 0; i--)
                    {
                        paragraph = paragraphs[i];

                        //  如果段落的文本為空的話，首先選擇該段落，然后再調用Word中Selection對象的Delete方法來刪除
                        // 不為空什么都不做
                        if (paragraph.Range.Text.Trim() == string.Empty)
                        {
                            paragraph.Range.Select();
                            wordapp.Selection.Delete();
                        }
                    }
                    if (doc != null)
                    {
                        // 先保存所有修改再關閉Word文檔
                        doc.Save();
                        ((Word._Document)doc).Close();
                    }
                }

                MessageBox.Show("刪除空白行成功");
            }
            catch (Exception ex)
            {
                MessageBox.Show("異常發生，異常信息為：" + ex.Message);
            }
            finally
            {
                // 釋放資源
                // 退出Word程序
                if (wordapp != null)
                {
                    ((Word._Application)wordapp).Quit();
                }
                doc = null;
                wordapp = null;
            }
        }

為了測試該程序的正確性，這里我建立了兩個測試文檔，為了測試，我故意在文檔中刪除了空白行和空白頁面，下面是兩個測試文檔的截圖：

下面就看看該工具的運行效果(效果圖是一段動畫，認為這樣可以更加說明運行效果)

：

三、人事部門的福音——自動給本月壽星員工發送郵件提醒

為了幫助大家更好地理解該程序，還是像之前一樣，首先說說實現該程序的思路：

• 我們首先需要打開員工信息表，此時我們可以利用Excel對象模型中的Excel.Application.Workbooks.Open方法來獲得一個工作簿對象，關於更多Excel對象模型的內容可以轉向——創建Excel解決方案。
• 通過第一步我們已經獲得了工作簿對象了，然后通過遍歷工作簿中的激活表，即表格一(Sheet1),我們可以通過workbook.ActiveSheet來獲得表格一對象。
• 遍歷表格一中的所有行來找到生日信息中的月份，如果月份等於當前月份，就給該員工的郵箱進行發郵件。
• 對於自動發送郵件的實現，該實現和我們手動操作Outlook過程是一樣，手動操作時，我們需要手動打開Outlook(在程序中就是創建Outlook應用程序對象)，然后點擊新建郵件(在程序中就是通過Applicatin對象的CreateItem(Outlook.OlItemType.olMailItem)方法來創建一個郵件項目)，在新建郵件窗口中指定收件人，主題，郵件內容之后，點擊Outlook中的發送郵件按鈕(在程序中就是通過指定 Outlook.MailItem對象(即代表一個郵件窗體)的To(收件人)、Subject(主題)、Body(郵件內容)屬性，然后再調用Send方法來發送郵件)

明白了思路之后，我們理解代碼會更加容易了，具體實現代碼為：

 

using System;
using System.IO;
using System.Runtime.InteropServices;
using System.Windows.Forms;

// 引用Excel和Outlook的命名空間
using Excel = Microsoft.Office.Interop.Excel;
using Outlook = Microsoft.Office.Interop.Outlook;

        string excelpath = string.Empty;
        // 打開員工表格
        private void btnOpen_Click(object sender, EventArgs e)
        {
            using (OpenFileDialog openFileDialog = new OpenFileDialog())
            {
                openFileDialog.Filter = "Excel File(*.xls;*.xlsx)|*.xls;**.xlsx|All Files(*.*)|*.*";
                if (openFileDialog.ShowDialog() == DialogResult.OK)
                {
                    txtExcelPath.Text = openFileDialog.FileName;
                    excelpath = openFileDialog.FileName;
                }
            }
        }

        // 自動給本月壽星發郵件通知
        private void btnSendEmail_Click(object sender, EventArgs e)
        {
            if (!File.Exists(txtExcelPath.Text))
            {
                MessageBox.Show("員工表路徑不存在，請確保輸入正確的文件路徑");
                return;
            }
            if (txbBirthday.Text.Trim() == string.Empty || txbEmail.Text.Trim() == string.Empty)
            {
                MessageBox.Show("請先輸入員工表中生日信息所在的列和郵箱信息所在的列！");
                return;
            }

            // 輸入信息都正確時開始發送郵件
            SendEmail(int.Parse(txbBirthday.Text.Trim()), int.Parse(txbEmail.Text.Trim()));
        }
        // 發送郵件方法
        private void SendEmail(int birthDayColumn,int emailColumn)
        {
              // 獲得當前月份
            int nowmonth = DateTime.Now.Month;
            // 發送郵件地址字符串
            string toEmailString = string.Empty;
            string emailBody="請收到郵件的員工，請本月28號到休閑室來參加生日Party";
            Excel.Application excelApp = null;
            Excel.Workbook workbook =null;
            Excel.Worksheet worksheet = null;
            Excel.Range range = null;
            try
            {
                // 新建Excel應用程序被設置它不可見
                excelApp = new Excel.Application();
                excelApp.Visible = false;
                workbook = excelApp.Workbooks.Open(excelpath);
                // 獲得打開文件的激活表格
               worksheet= workbook.ActiveSheet;
              
                // 遍歷表格中的所有行
                for (int row = 2; row < worksheet.UsedRange.Rows.Count + 1; row++)
                {
                    // 因為我的測試表格中第四列是生日信息,在Excel中第一行的下標是從1開始的
                    // 這里本來需要在頁面設置一個文本框讓用戶填寫生日信息是在那一列的
                    // 這里為了測試就直接在程序中指定
                    // 下面的Range就代表生日列中每一個單元格
                    range = worksheet.Cells[row, birthDayColumn];

                    // 我們可以通過Range.Value來獲得單元格中的生日信息
                    // 因為我生日單元格中為日期格式，所以獲得的是日期類型，所以直接通過Month屬性來獲得月份
                    int month = range.Value.Month;
                    // 如果我們的Excel文檔中生日時間設置為文本格式的話，這時候就需要通過分割字符串的方式來獲得月份
                    // 通過Split函數來把生日信息以'/'符號分隔，分隔的數組的第二個就是月份
                    //int month = Int32.Parse(birthday.Split('/')[1]);
                    // 如果月份等於當前月的話，就給這個人發郵件
                    if (month == nowmonth)
                    {
                        // 獲得本月生日員工的郵件地址
                        toEmailString += ";" + ((Excel.Range)worksheet.Cells[row, emailColumn]).Value;
                    }
                }
            }
            catch (Exception ex)
            {
                MessageBox.Show("讀取員工表格時出錯，異常信息為：" + ex.Message);
                return;
            }
            finally
            {
                workbook.Close(Excel.XlSaveAction.xlDoNotSaveChanges);
                excelApp.Quit();
                if (workbook != null)
                {
                    Marshal.FinalReleaseComObject(workbook);
                    workbook = null;
                }
                if (excelApp != null)
                {
                    Marshal.FinalReleaseComObject(excelApp);
                    excelApp = null;
                }
            }

            if (CreateEmailItem("生日提醒", toEmailString, emailBody))
            {
                MessageBox.Show("成功給本月壽星發送郵件提醒");
            }
        }
        // 創建郵件項
        private bool CreateEmailItem(string subjectEmail,string toEmail,string bodyEmail)
        {
            Outlook.Application outlookapp = null;
            Outlook.MailItem email =null;

            try
            {
                // 創建郵件項，就如你手動點新建郵件一樣
                outlookapp = new Outlook.Application();
                email = outlookapp.CreateItem(Outlook.OlItemType.olMailItem);
                // 指定郵件的主題，收件人和內容，就如你在新建郵件窗體中輸入收件人，主題和內容一樣
                email.Subject = subjectEmail;
                email.To = toEmail;
                email.Body = bodyEmail;
                email.Importance = Outlook.OlImportance.olImportanceHigh;

                // 發送郵件，就如你點界面上的發送郵件操作一樣
                ((Outlook._MailItem)email).Send();
            }
            catch(Exception ex)
            {
                MessageBox.Show("發送郵件的時候失敗，異常信息為：" + ex.Message);
                return false;
            }
            finally
            {
                // 釋放資源
                ((Outlook._Application)outlookapp).Quit();
                if (email != null)
                {
                    Marshal.FinalReleaseComObject(email);
                    email = null;
                }
                if (outlookapp != null)
                {
                    Marshal.FinalReleaseComObject(outlookapp);
                    outlookapp = null;
                }
            }

            return true;
        }    

 

為了測試程序，我新建了一個員工信息表，表格的格式如下(你當然可以根據自己的需要更改格式)：

現在就讓我們看看該程序的運行效果：

四、 小結

　　到這里，本專題的內容就和大家介紹完了，在下一個專題中將向大家介紹下如何通過Office提供的API的來遙控幻燈片。如果大家對本專題中兩個工具的實現源碼有任何的疑問，都可以在下面留言給我。覺得不錯的話，幫忙推薦下，感謝大家的支持