VS2005平臺，應用程式生成指定格式的Excel檔案

1.“新增引用”->"COM"->"Microsoft Excel 11.0 Object Library"

2.匯入名稱空間

Imports Microsoft.Office.Interop  或者 Imports Microsoft.Office.Interop.Excel

3.具體操作

Dim oXL As Excel.Application       '定義excel應用程式
Dim oWB As Excel.Workbook      '定義工作簿
Dim oSheet As Excel.Worksheet '定義工作表

oXL = CreateObject("Excel.Application")'建立Excel應用程式物件
oXL.Visible = True '顯示excel 程式

oWB = oXL.Workbooks.Add '新增新工作簿

oSheet = oWB.Sheets(1)'獲得第1個工作表的控制控制代碼

osheet.Columns .ColumnWidth =30.0'設定工作表的列寬

oSheet.Columns("A:A").ColumnWidth = 35.0 '設定第一列列寬

oSheet.Columns("B:B").ColumnWidth = 20.0

oSheet.Rows.RowHeight = 25.0'設定工作表的行高

oSheet.Rows("1:1").RowHeight = 15‘設定第一行行高

oSheet.Range("A1", "D1").Merge()‘合併單元格
oSheet.Range("A1", "D1").HorizontalAlignment = 3 '水平居中
oSheet.Range("A1", "D1").Value = "XXX問卷表" '填入單個數據

oSheet.Range("A1", "D1").WrapText = True'設定自動換行吧

Dim info(5, 2) As String'定義塊資料，並賦值

oSheet.Range("A1", "A5").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter’水平方向居中對齊
oSheet.Range("B1", "B5").HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft '水平方向左對齊

oSheet.Range("B1", "B5").VerticalAlignment = Excel.XlVAlign.xlVAlignTop'垂直方向靠上對齊
oSheet.Range("A1", "B5").Value = info'填入塊資料，這樣可以節省應用程式和Excel檔案的資料交換次數

或者：oSheet.Range("A1:B5").Value = info

oSheet.Range("A1", "E22").Borders.LineStyle = 1 '設定邊框

oSheet.Range("A1", "E22").Borders.LineStyle = Excel.XlLineStyle.xlContinuous

'記著釋放物件
oSheet = Nothing
oWB = Nothing
oXL.Quit()
oXL = Nothing

4.

Excel檔案的格式比較多，要快速在應用程式中生成自己想要的格式，可以這樣做：

開啟Excel應用程式，選擇“工具”->“巨集”->“錄製新巨集”

設定好指定的格式

停止錄製巨集

單擊“工具”->“巨集”->“巨集”，選擇剛才錄製的巨集即可，在開啟的檔案中可以檢視生成指定格式的具體程式碼操作步驟

遇到不懂的列舉值或者屬性值，可以到VS2005的物件瀏覽器，或MSDN中查閱

（這一招也是在網上學到，挺管用的，呵呵）

5.一個小的設定效果
oSheet.Range("A7").Value = "申請理由：" oSheet.Range("A7").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter oSheet.Rows("8:8").RowHeight = 37.5'設定行高 oSheet.Range("B7", "D8").Merge() oSheet.Range("B7", "D8").HorizontalAlignment = Excel.XlHAlign.xlHAlignLeft oSheet.Range("B7", "D8").VerticalAlignment = Excel.XlVAlign.xlVAlignTop oSheet.Range("B7", "D8").Value = "" oSheet.Range("B9", "C9").Merge() oSheet.Range("B9", "C9").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter oSheet.Range("B9", "C9").Value = "主管簽字：" oSheet.Range("D9").HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter oSheet.Range("D9").Value = " 年 月 日" oSheet.Range("A7", "D9").Borders.LineStyle = Excel.XlLineStyle.xlContinuous '設定總的邊框樣式 oSheet.Range("A7", "D9").Borders(Excel.XlBordersIndex.xlDiagonalDown).LineStyle = Excel.Constants.xlNone '再做修改 oSheet.Range("A7", "D9").Borders(Excel.XlBordersIndex.xlDiagonalUp).LineStyle = Excel.Constants.xlNone oSheet.Range("A7", "D9").Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.Constants.xlNone oSheet.Range("A7", "D9").Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.Constants.xlNone '這種設定應該比較適合列印吧

（主要查閱了MSDN上的資料，呵呵）