接上一篇：http://www.cnblogs.com/longqi293/archive/2010/12/22/vstoforexcel2.html，我們通過VSTO，簡單的使用了Ribbon控件，以及如何從QQ郵箱導(dǎo)出聯(lián)系人。

在有了這些基礎(chǔ)之后，我們來開始一個(gè)比較復(fù)雜的實(shí)驗(yàn)吧，這回，我們將對那個(gè)生成的聯(lián)系人Excel文檔進(jìn)行處理，提取出每個(gè)好友的QQ號碼，然后再將這些號碼對應(yīng)的復(fù)制到這些聯(lián)系人后面。具體效果如何，還是慢慢來看。

慢慢來——

首先，還是建立一個(gè)Excel2007的外接程序項(xiàng)目，然后向項(xiàng)目中添加項(xiàng)，選擇Office——>功能區(qū)（可視化設(shè)計(jì)），如下圖：

我們雙擊新添加的那個(gè)文件，即可打開UI設(shè)計(jì)界面。

接下來呢，我們就要開始編輯Ribbon1的設(shè)計(jì)界面了，拖放一個(gè)Button空間到Group中，如下圖：

我們的程序見面如下所示：

粗略的設(shè)計(jì)就是如此，大家可以花點(diǎn)時(shí)間，慢慢研究Ribbon自帶的各類控件的使用，相信通過一段時(shí)間，大家能夠設(shè)計(jì)出自己所喜歡的外觀。在這里就僅作演示吧。

我們要做什么——

接下來，我們開始最關(guān)鍵的代碼編寫工作了，首先，我們要明白三件事：

• 獲取某一列的所有單元格數(shù)據(jù)
• 處理每一個(gè)單元格的數(shù)據(jù)
• 把處理后的數(shù)據(jù)添加到指定列中進(jìn)行顯示

所以，很明確，我們的代碼也分為這幾步，首先，獲取當(dāng)前的工作薄，其中的某一個(gè)區(qū)域，我們使用get_range方法來實(shí)現(xiàn)，就本例子而言呢，騰訊郵箱生成的那個(gè)聯(lián)系人表格，B列，是每個(gè)人的QQ郵箱，我們的QQ號碼就從這里提取，提取到郵箱后，把@符號及之后的字符去掉，保留前端的QQ號碼，并把處理過后的結(jié)果，放到該表格的指定列里面。大致意圖，如下所示：

當(dāng)然了，上圖所示，綠色區(qū)域?yàn)橹付ǖ娘@示列，紅色區(qū)域?yàn)榇幚?#xff0c;實(shí)際中，綠色的部分可以隨意指定。在這里也是舉個(gè)例子罷了。好啦，有圖了，接下來是尋求真相的過程。

通過之前的分析，我們需要先鋪墊個(gè)小知識：

如何獲取一定區(qū)域（范圍）的單元格？

這個(gè)相信大家谷歌一下絕對能找出方法，這里就不在贅述，此文的方法為使用Worksheet的get_range方法，在MSDN中，詳細(xì)的介紹了此方法的使用，小弟也給出地址，大家可以慢慢參考：http://msdn.microsoft.com/en-us/library/microsoft.office.tools.excel.worksheet.get_range(v=VS.100).aspx

這是一個(gè)英文地址，為什么呢？主要是它比較關(guān)鍵的說道，在這個(gè)方法的參數(shù)中，可以使用語意參數(shù)，比如，我要獲取A1到C4這個(gè)4x4區(qū)域范圍的所有單元格，你可以這么寫get_range("A1:C4",Type.Missing)。

反而中文版的文檔中，卻沒提到……不知道是不是我沒找到還是什么的……>_<|||.

這個(gè)問題一解決了，那后面的事情就好辦了，看代碼：

private void GetRidOfQQ()
{
////初始化一個(gè)Worksheet實(shí)例，用于獲取當(dāng)前激活的工作薄
Microsoft.Office.Interop.Excel.Worksheet ws = (Microsoft.Office.Interop.Excel.Worksheet)Globals.ThisAddIn.Application.ActiveSheet;

////計(jì)算目標(biāo)列的行數(shù)，這里不是很科學(xué)，推薦使用UsedRange屬性進(jìn)行統(tǒng)計(jì)
int rows = ws.get_Range("B2:B125", Type.Missing).Count;

////初始化一個(gè)數(shù)組，用于保存處理后的號碼
string[] QQNum = new string[rows];

for (int j = 0; j < rows; )
{
foreach (Range rng in ws.get_Range("B2:B125", Type.Missing))///獲取指定范圍內(nèi)的單元格集合
{
QQNum[j] = rng.Value2.ToString().Replace("@qq.com", "");
j++;
}
}

Globals.ThisAddIn.Application.Cells[1, 11] = "QQ號碼";
for (int i = 1; i <= QQNum.Count(); i++)
{
////注意，這里的Cells索引值從1開始計(jì)算
Globals.ThisAddIn.Application.Cells[i + 1, 11] = QQNum[i - 1];////往指定單元格賦值
}
}

相信注釋已經(jīng)比較詳細(xì)了，代碼不太美觀，也僅僅作為演示使用了。

之后，為那個(gè)Ribbon上的按鈕添加單擊事件代碼：

try
{
GetRidOfQQ();
}
catch (Exception ex)
{
System.Windows.Forms.MessageBox.Show(ex.Message);
}

ok，至此，這個(gè)程序就制作完畢了，下面就是來看看運(yùn)行效果對不對，測試結(jié)果如下圖：

小結(jié)：

大家也許看到了吧，如果聯(lián)系人用了一個(gè)文字類的郵箱替代了QQ號碼郵箱，則這個(gè)結(jié)果是文字的，并不能夠當(dāng)做QQ號碼來用，所以，這次示例的局限性也很明顯，收到了聯(lián)系人表格的限制，不過，我們也從簡單的RibbonUI設(shè)計(jì)，走到了具體的Excel對象操作，接下來，還有各種各樣的Excel對象操作，內(nèi)容包羅萬象，可想而知不是一個(gè)系列就能寫完的，我們關(guān)注的是VSTO能給我們帶來什么新的變化。

試想，客戶已經(jīng)基于Office套件，進(jìn)行著各類業(yè)務(wù)數(shù)據(jù)的存儲、處理，相對來說，比較成熟。但是某一天，他需要對Excel表格數(shù)據(jù)進(jìn)行一些不大不小的分析，比如報(bào)表、統(tǒng)計(jì)等等。難道我們給他從Asp.net開始……Bla……Bla。

我們換個(gè)思路，緊緊抓住客戶最關(guān)心的業(yè)務(wù)來開展我們的工作，直接為Excel客戶端開發(fā)Add-In級別的插件，以解決最實(shí)際的需求為目標(biāo)，這不是更好嗎？當(dāng)然，效率、可維護(hù)性、可擴(kuò)展性……等等一大堆話題將會被引入……

這只是我一己之見吧，希望廣大園友熱烈拍磚~~

下一節(jié)，將會帶來一些部署方面的說明和探討。

總結(jié)

以上是生活随笔為你收集整理的[VSTO系列]三、简单的UI设计/QQ联系人导出（下）的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。