全面控制Excel:

首先創(chuàng)建Excel對(duì)象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
 
1)顯示當(dāng)前窗口：
  ExcelID.Visible:=True;
2)更改Excel標(biāo)題欄：
  ExcelID.Caption:='應(yīng)用程序調(diào)用MicrosoftExcel';
3)添加新工作簿：
  ExcelID.WorkBooks.Add;
4)打開(kāi)已存在的工作簿：
  ExcelID.WorkBooks.Open('C:\Excel\Demo.xls');
5)設(shè)置第2個(gè)工作表為活動(dòng)工作表：
  ExcelID.WorkSheets[2].Activate;
或ExcelID.WorkSheets['Sheet2'].Activate;
6)給單元格賦值：
  ExcelID.Cells[1,4].Value:='第一行第四列';
7)設(shè)置指定列的寬度（單位：字符個(gè)數(shù)），以第一列為例：
  ExcelID.ActiveSheet.Columns[1].ColumnsWidth:=5;
8)設(shè)置指定行的高度（單位：磅）（1磅＝0.035厘米），以第二行為例：
  ExcelID.ActiveSheet.Rows[2].RowHeight:=1/0.035;//1厘米
9)在第8行之前插入分頁(yè)符：
  ExcelID.WorkSheets[1].Rows[8].PageBreak:=1;
10)在第8列之前刪除分頁(yè)符：
  ExcelID.ActiveSheet.Columns[4].PageBreak:=0;
11)指定邊框線寬度：
  ExcelID.ActiveSheet.Range['B3:D4'].Borders[2].Weight:=3;
  1-左 2-右 3-頂4-底 5-斜(\) 6-斜(/)
12)清除第一行第四列單元格公式：
  ExcelID.ActiveSheet.Cells[1,4].ClearContents;
13)設(shè)置第一行字體屬性：
  ExcelID.ActiveSheet.Rows[1].Font.Name:='隸書(shū)';
  ExcelID.ActiveSheet.Rows[1].Font.Color  :=clBlue;
  ExcelID.ActiveSheet.Rows[1].Font.Bold :=True;
  ExcelID.ActiveSheet.Rows[1].Font.UnderLine:=True;
14)進(jìn)行頁(yè)面設(shè)置：
a.頁(yè)眉：
  ExcelID.ActiveSheet.PageSetup.CenterHeader:='報(bào)表演示';
b.頁(yè)腳：
  ExcelID.ActiveSheet.PageSetup.CenterFooter:='第&P頁(yè)';
c.頁(yè)眉到頂端邊距2cm：
  ExcelID.ActiveSheet.PageSetup.HeaderMargin:=2/0.035;
d.頁(yè)腳到底端邊距3cm：
  ExcelID.ActiveSheet.PageSetup.HeaderMargin:=3/0.035;
e.頂邊距2cm：
  ExcelID.ActiveSheet.PageSetup.TopMargin:=2/0.035;
f.底邊距2cm：
  ExcelID.ActiveSheet.PageSetup.BottomMargin:=2/0.035;
g.左邊距2cm：
  ExcelID.ActiveSheet.PageSetup.LeftMargin:=2/0.035;
h.右邊距2cm：
  ExcelID.ActiveSheet.PageSetup.RightMargin:=2/0.035;
i.頁(yè)面水平居中：
  ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=2/0.035;
j.頁(yè)面垂直居中：
  ExcelID.ActiveSheet.PageSetup.CenterVertically:=2/0.035;
k.打印單元格網(wǎng)線：
  ExcelID.ActiveSheet.PageSetup.PrintGridLines:=True;
15)拷貝操作：
a.拷貝整個(gè)工作表：
  ExcelID.ActiveSheet.Used.Range.Copy;
b.拷貝指定區(qū)域：
  ExcelID.ActiveSheet.Range['A1:E2'].Copy;
c.從A1位置開(kāi)始粘貼：
  ExcelID.ActiveSheet.Range.['A1'].PasteSpecial;
d.從文件尾部開(kāi)始粘貼：
  ExcelID.ActiveSheet.Range.PasteSpecial;
16)插入一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Insert;
b.ExcelID.ActiveSheet.Columns[1].Insert;
17)刪除一行或一列：
a.ExcelID.ActiveSheet.Rows[2].Delete;
b.ExcelID.ActiveSheet.Columns[1].Delete;
18)打印預(yù)覽工作表：
  ExcelID.ActiveSheet.PrintPreview;
19)打印輸出工作表：
  ExcelID.ActiveSheet.PrintOut;
20)工作表保存：
  IfnotExcelID.ActiveWorkBook.Savedthen
    ExcelID.ActiveSheet.PrintPreview
  Endif
21)工作表另存為：
  ExcelID.SaveAs('C:\Excel\Demo1.xls');
22)放棄存盤(pán)：
  ExcelID.ActiveWorkBook.Saved:=True;
23)關(guān)閉工作簿：
  ExcelID.WorkBooks.Close;
24)退出Excel：
  ExcelID.Quit;
25)設(shè)置工作表密碼:
  ExcelID.ActiveSheet.Protect"123",DrawingObjects:=True,Contents:=True,Scenarios:=True
26)EXCEL的顯示方式為最大化
  ExcelID.Application.WindowState=xlMaximized 
27)工作薄顯示方式為最大化
  ExcelID.ActiveWindow.WindowState=xlMaximized
28)設(shè)置打開(kāi)默認(rèn)工作薄數(shù)量
  ExcelID.SheetsInNewWorkbook=3
29)'關(guān)閉時(shí)是否提示保存(true保存；false不保存)
  ExcelID.DisplayAlerts=False
30)設(shè)置拆分窗口,及固定行位置
  ExcelID.ActiveWindow.SplitRow=1
  ExcelID.ActiveWindow.FreezePanes=True
31)設(shè)置打印時(shí)固定打印內(nèi)容
  ExcelID.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"
32)設(shè)置打印標(biāo)題
  ExcelID.ActiveSheet.PageSetup.PrintTitleColumns=""
33)設(shè)置顯示方式(分頁(yè)方式顯示)
  ExcelID.ActiveWindow.View=xlPageBreakPreview
34)設(shè)置顯示比例
  ExcelID.ActiveWindow.Zoom=100
35)讓Excel響應(yīng)DDE請(qǐng)求
  Ex.Application.IgnoreRemoteRequests=False

用VB操作EXCEL示例代碼
  Private Sub Command3_Click()
  On Error GoTo err1
  Dim i As Long
  Dim j As Long
  Dim objExl As Excel.Application '聲明對(duì)象變量
  Me.MousePointer=11 '改變鼠標(biāo)樣式
  Set objExl=New Excel.Application'初始化對(duì)象變量
  objExl.SheetsInNewWorkbook=1  '將新建的工作薄數(shù)量設(shè)為1
  objExl.Workbooks.Add'增加一個(gè)工作薄
  objExl.Sheets(objExl.Sheets.Count).Name="book1"  '修改工作薄名稱 
  objExl.Sheets.Add,objExl.Sheets("book1")‘增加第二個(gè)工作薄在第一個(gè)之后
  objExl.Sheets(objExl.Sheets.Count).Name="book2" 
  objExl.Sheets.Add,objExl.Sheets("book2")‘增加第三個(gè)工作薄在第二個(gè)之后
  objExl.Sheets(objExl.Sheets.Count).Name="book3" 
 
  objExl.Sheets("book1").Select  '選中工作薄<book1>
  For i=1 To 50'循環(huán)寫(xiě)入數(shù)據(jù)
  For j=1 To 5
  If i=1 Then
    objExl.Selection.NumberFormatLocal="@"  '設(shè)置格式為文本 
    objExl.Cells(i,j)="E"&i&j
  Else
    objExl.Cells(i,j)=i&j
  EndIf
  Next
  Next
  objExl.Rows("1:1").Select '選中第一行
  objExl.Selection.Font.Bold=True '設(shè)為粗體
  objExl.Selection.Font.Size=24  '設(shè)置字體大小
  objExl.Cells.EntireColumn.AutoFit  '自動(dòng)調(diào)整列寬 
  objExl.ActiveWindow.SplitRow=1  '拆分第一行
  objExl.ActiveWindow.SplitColumn=0  '拆分列
  objExl.ActiveWindow.FreezePanes=True '固定拆分objExl.ActiveSheet.PageSetup.PrintTitleRows="$1:$1"  '設(shè)置打印固定行
  objExl.ActiveSheet.PageSetup.PrintTitleColumns=""'打印標(biāo)題objExl.ActiveSheet.PageSetup.RightFooter="打印時(shí)間:"&_
  Format(Now,"yyyy年mm月dd日hh:MM:ss")
  objExl.ActiveWindow.View=xlPageBreakPreview'設(shè)置顯示方式
  objExl.ActiveWindow.Zoom=100  '設(shè)置顯示大小
  '給工作表加密碼
  objExl.ActiveSheet.Protect"123",DrawingObjects:=True,  _
  Contents:=True,Scenarios:=True
  objExl.Application.IgnoreRemoteRequests=False
  objExl.Visible=True  '使EXCEL可見(jiàn)
  objExl.Application.WindowState=xlMaximized'EXCEL的顯示方式為最大化
  objExl.ActiveWindow.WindowState=xlMaximized'工作薄顯示方式為最大化
  objExl.SheetsInNewWorkbook=3  '將默認(rèn)新工作薄數(shù)量改回3個(gè) 
  Set objExl=Nothing'清除對(duì)象
  Me.MousePointer=0 '修改鼠標(biāo)
  ExitSub
  err1:
    objExl.SheetsInNewWorkbook=3
 
  objExl.DisplayAlerts=False  '關(guān)閉時(shí)不提示保存
  objExl.Quit'關(guān)閉EXCEL
  objExl.DisplayAlerts=True '關(guān)閉時(shí)提示保存
  Set objExl=Nothing
  Me.MousePointer=0
  End Sub