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