文章編號: 302084 - 上次校閱: 2007年1月31日 - 版次: 7.5
如何自動化 Microsoft Excel 從 Microsoft Visual C#.NET
系統提示 本文適用於您使用的作業系統之外的作業系統。與您不相關的文章內容已停用。
本文將告訴您如何建立一個自動化，Microsoft Excel 使用 Microsoft Visual C#.NET 的用戶端。
自動化是允許以如 Visual C#.NET，以程式設計的方式控制其他應用程式的語言撰寫的應用程式的程序。自動化 Excel 可以讓您執行動作，例如建立新的活頁簿、 將資料加入至活頁簿或建立圖表。與 Excel 和其他 Microsoft Office 應用程式，幾乎所有您可以透過使用者介面以手動方式執行的動作也可執行以程式設計方式使用自動化。
Excel 會公開物件模型透過這個程式設計功能。物件模型是 Excel 的類別和方法，可做為副本邏輯元件的集合。比方說是一個
應用程式 物件]、 [
活頁簿 物件] 和 [每一個都包含那些部份 Excel 功能將
工作表 物件。若要從 Visual C#.NET 中存取物件模型，您可以設定型別程式庫的專案參考。
本文中，示範了如何設定適當的專案參考加入 Excel 的型別程式庫的 Visual C#.NET，並提供範例程式碼來自動化 Excel。
建立如 Microsoft Excel 的自動化用戶端 啟動 Microsoft Visual Studio.NET。 在 [檔案 ] 功能表上按一下 [新增] ，然後按一下 [專案 ]。選取 [從 Visual C# 專案類型的 [Windows 應用程式 ]。預設會建立 Form1。 將參考加入至 Microsoft Excel 物件程式庫 。要這麼做，請您執行下列步驟： 在 [專案 ] 功能表上按一下 [加入參考 ]。 在 [COM ] 索引標籤上找到 Microsoft Excel 物件程式庫 ，按一下 [選取 。附註 Microsoft Office 2003 包括主要 Interop 組件 (PIA)。Microsoft Office XP 不包括 PIA，但是他們可以下載。 如需有關 Office XP PIA，按一下 [下面的文件編號，檢視 「 Microsoft 知識庫 」 中的發行項]： 328912 ?
(http://support.microsoft.com/kb/328912/
)
Microsoft Office XP 主要 Interop 組件 (PIA) 是可供下載
按一下 [[確定] 在 [加入參考 ] 對話方塊以接受您的選擇。提示您產生您所選取的程式庫的包裝函式時，按一下 [是] 。 在 [檢視 ] 功能表上選擇 [工具箱 ]，以顯示工具箱]，然後再新增到 Form1 的 [按鈕]。 連按兩下 [Button1 ]。在表單的 [程式碼] 視窗隨即出現。 在 [程式碼] 視窗取代下列程式碼
private void button1_Click(object sender, System.EventArgs e)
{
}
private void button1_Click(object sender, System.EventArgs e)
{
Excel.Application oXL;
Excel._Workbook oWB;
Excel._Worksheet oSheet;
Excel.Range oRng;
try
{
//Start Excel and get Application object.
oXL = new Excel.Application();
oXL.Visible = true;
//Get a new workbook.
oWB = (Excel._Workbook)(oXL.Workbooks.Add( Missing.Value ));
oSheet = (Excel._Worksheet)oWB.ActiveSheet;
//Add table headers going cell by cell.
oSheet.Cells[1, 1] = "First Name";
oSheet.Cells[1, 2] = "Last Name";
oSheet.Cells[1, 3] = "Full Name";
oSheet.Cells[1, 4] = "Salary";
//Format A1:D1 as bold, vertical alignment = center.
oSheet.get_Range("A1", "D1").Font.Bold = true;
oSheet.get_Range("A1", "D1").VerticalAlignment =
Excel.XlVAlign.xlVAlignCenter;
// Create an array to multiple values at once.
string[,] saNames = new string[5,2];
saNames[ 0, 0] = "John";
saNames[ 0, 1] = "Smith";
saNames[ 1, 0] = "Tom";
saNames[ 1, 1] = "Brown";
saNames[ 2, 0] = "Sue";
saNames[ 2, 1] = "Thomas";
saNames[ 3, 0] = "Jane";
saNames[ 3, 1] = "Jones";
saNames[ 4, 0] = "Adam";
saNames[ 4, 1] = "Johnson";
//Fill A2:B6 with an array of values (First and Last Names).
oSheet.get_Range("A2", "B6").Value2 = saNames;
//Fill C2:C6 with a relative formula (=A2 & " " & B2).
oRng = oSheet.get_Range("C2", "C6");
oRng.Formula = "=A2 & \" \" & B2";
//Fill D2:D6 with a formula(=RAND()*100000) and apply format.
oRng = oSheet.get_Range("D2", "D6");
oRng.Formula = "=RAND()*100000";
oRng.NumberFormat = "$0.00";
//AutoFit columns A:D.
oRng = oSheet.get_Range("A1", "D1");
oRng.EntireColumn.AutoFit();
//Manipulate a variable number of columns for Quarterly Sales Data.
DisplayQuarterlySales(oSheet);
//Make sure Excel is visible and give the user control
//of Microsoft Excel's lifetime.
oXL.Visible = true;
oXL.UserControl = true;
}
catch( Exception theException )
{
String errorMessage;
errorMessage = "Error: ";
errorMessage = String.Concat( errorMessage, theException.Message );
errorMessage = String.Concat( errorMessage, " Line: " );
errorMessage = String.Concat( errorMessage, theException.Source );
MessageBox.Show( errorMessage, "Error" );
}
}
private void DisplayQuarterlySales(Excel._Worksheet oWS)
{
Excel._Workbook oWB;
Excel.Series oSeries;
Excel.Range oResizeRange;
Excel._Chart oChart;
String sMsg;
int iNumQtrs;
//Determine how many quarters to display data for.
for( iNumQtrs = 4; iNumQtrs >= 2; iNumQtrs--)
{
sMsg = "Enter sales data for ";
sMsg = String.Concat( sMsg, iNumQtrs );
sMsg = String.Concat( sMsg, " quarter(s)?");
DialogResult iRet = MessageBox.Show( sMsg, "Quarterly Sales?",
MessageBoxButtons.YesNo );
if (iRet == DialogResult.Yes)
break;
}
sMsg = "Displaying data for ";
sMsg = String.Concat( sMsg, iNumQtrs );
sMsg = String.Concat( sMsg, " quarter(s)." );
MessageBox.Show( sMsg, "Quarterly Sales" );
//Starting at E1, fill headers for the number of columns selected.
oResizeRange = oWS.get_Range("E1", "E1").get_Resize( Missing.Value, iNumQtrs);
oResizeRange.Formula = "=\"Q\" & COLUMN()-4 & CHAR(10) & \"Sales\"";
//Change the Orientation and WrapText properties for the headers.
oResizeRange.Orientation = 38;
oResizeRange.WrapText = true;
//Fill the interior color of the headers.
oResizeRange.Interior.ColorIndex = 36;
//Fill the columns with a formula and apply a number format.
oResizeRange = oWS.get_Range("E2", "E6").get_Resize( Missing.Value, iNumQtrs);
oResizeRange.Formula = "=RAND()*100";
oResizeRange.NumberFormat = "$0.00";
//Apply borders to the Sales data and headers.
oResizeRange = oWS.get_Range("E1", "E6").get_Resize( Missing.Value, iNumQtrs);
oResizeRange.Borders.Weight = Excel.XlBorderWeight.xlThin;
//Add a Totals formula for the sales data and apply a border.
oResizeRange = oWS.get_Range("E8", "E8").get_Resize( Missing.Value, iNumQtrs);
oResizeRange.Formula = "=SUM(E2:E6)";
oResizeRange.Borders.get_Item( Excel.XlBordersIndex.xlEdgeBottom ).LineStyle
= Excel.XlLineStyle.xlDouble;
oResizeRange.Borders.get_Item( Excel.XlBordersIndex.xlEdgeBottom ).Weight
= Excel.XlBorderWeight.xlThick;
//Add a Chart for the selected data.
oWB = (Excel._Workbook)oWS.Parent;
oChart = (Excel._Chart)oWB.Charts.Add( Missing.Value, Missing.Value,
Missing.Value, Missing.Value );
//Use the ChartWizard to create a new chart from the selected data.
oResizeRange = oWS.get_Range("E2:E6", Missing.Value ).get_Resize(
Missing.Value, iNumQtrs);
oChart.ChartWizard( oResizeRange, Excel.XlChartType.xl3DColumn, Missing.Value,
Excel.XlRowCol.xlColumns, Missing.Value, Missing.Value, Missing.Value,
Missing.Value, Missing.Value, Missing.Value, Missing.Value );
oSeries = (Excel.Series)oChart.SeriesCollection(1);
oSeries.XValues = oWS.get_Range("A2", "A6");
for( int iRet = 1; iRet <= iNumQtrs; iRet++)
{
oSeries = (Excel.Series)oChart.SeriesCollection(iRet);
String seriesName;
seriesName = "=\"Q";
seriesName = String.Concat( seriesName, iRet );
seriesName = String.Concat( seriesName, "\"" );
oSeries.Name = seriesName;
}
oChart.Location( Excel.XlChartLocation.xlLocationAsObject, oWS.Name );
//Move the chart so as not to cover your data.
oResizeRange = (Excel.Range)oWS.Rows.get_Item(10, Missing.Value );
oWS.Shapes.Item("Chart 1").Top = (float)(double)oResizeRange.Top;
oResizeRange = (Excel.Range)oWS.Columns.get_Item(2, Missing.Value );
oWS.Shapes.Item("Chart 1").Left = (float)(double)oResizeRange.Left;
}
捲動至 [程式碼] 視窗的上方。using 指示詞清單的結尾加入下列行：
using Excel = Microsoft.Office.Interop.Excel;
using System.Reflection;
測試自動化用戶端 按下 F5 以建置並執行程式。 按一下 [在表單上的 [Button1 ]。程式啟動 Excel，並且會填入新的工作表上的資料。 當提示您輸入每季的銷售資料時，按一下 [是] 。連結至每季資料的圖表新增至工作表。 如需詳細資訊，請造訪下列 Microsoft 開發人員網路 MSDN 網站：
這篇文章中的資訊適用於: Microsoft Visual C# .NET 2003 標準版 Microsoft Visual C# .NET 2002 Standard Edition Microsoft Office Excel 2003 Microsoft Excel 2002 Standard Edition kbmt kbpia kbautomation kbhowto KB302084 KbMtzh
機器翻譯 重要：本文是以 Microsoft 機器翻譯軟體翻譯而成，而非使用人工翻譯而成。Microsoft 同時提供使用者人工翻譯及機器翻譯兩個版本的文章，讓使用者可以依其使用語言使用知識庫中的所有文章。但是，機器翻譯的文章可能不盡完美。這些文章中也可能出現拼字、語意或文法上的錯誤，就像外國人在使用本國語言時可能發生的錯誤。Microsoft 不為內容的翻譯錯誤或客戶對該內容的使用所產生的任何錯誤或損害負責。Microsoft也同時將不斷地就機器翻譯軟體進行更新。
按一下這裡查看此文章的英文版本：
302084 ?
(http://support.microsoft.com/kb/302084/en-us/
)
Microsoft及(或)其供應商不就任何在本伺服器上發表的文字資料及其相關圖表資訊的恰當性作任何承諾。所有文字資料及其相關圖表均以「現狀」供應，不負任何擔保責任。Microsoft及(或)其供應商謹此聲明，不負任何對與此資訊有關之擔保責任，包括關於適售性、適用於某一特定用途、權利或不侵權的明示或默示擔保責任。Microsoft及(或)其供應商無論如何不對因或與使用本伺服器上資訊或與資訊的實行有關而引起的契約、過失或其他侵權行為之訴訟中的特別的、間接的、衍生性的損害或任何因使用而喪失所導致的之損害、資料或利潤負任何責任。
請說明您希望我們對本篇文章進行什麼改善及需要改善的原因
謝謝您！您的意見將協助我們改進支援內容。如需更多協助選項，請造訪
說明及支援首頁 。
Windows Live
Facebook
Twitter
Linkedin
Digg it
Yahoo
Delicious
StumbleUpon
Yammer
Reddit
Technorati
FriendFeed
Email
機器翻譯
回此頁最上方
