我們寫程序時，有很多的功能如果都要自己寫會非常的麻煩，比如：我們調(diào)用打印和打印預(yù)覽。如果自己寫過的人都會明白，調(diào)用還不是太麻煩，但你要如果調(diào)整你的打印內(nèi)容在打印時正好是A4紙中的合適位置，這一點可能會非常的麻煩。
不知道大家有沒有同感。
正因如此，如果調(diào)用一些現(xiàn)有的程序來達到一些功能，那么將會變得非常的方便，而EXCEL在這方面具有強大的功能，同時可以說會電腦的人90%都會使用EXCEL，這一點也是它的優(yōu)勢，不必另行特別的培訓(xùn)。
為此如果VB能與EXCEL很好的結(jié)合使用，那將是一件非常爽的事。
所以我寫這一篇貼子，供大家參考，希望能給大家一定的幫助。
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\文件名.xls") '打開已經(jīng)存在的EXCEL工件簿文件
xlApp.Visible = True '設(shè)置EXCEL對象可見（或不可見）
Set xlSheet = xlBook.Worksheets("sheel1") '設(shè)置活動工作表，sheet1表示表名，可以使用字符型變量代替。
xlSheet.Activate '激活工作表，讓它處于前臺活動中。
xlBook.RunAutoMacros (xlAutoOpen) '運行自動開啟宏Macro1()，在EXCEL中加入以下宏
'Sub auto_open() '這是VBA中的自動打開時運行的宏
' 您要宏自動運行的程序，比如可以call其它的宏，這樣VB在打開EXCEL時，使用上面的語句就可以先運行這個宏
'End Sub
xlSheet.Cells.Item(行數(shù),列數(shù)) =值 '給EXCEL對象中的表的單元格附值。
xlSheet.Rows("7:7").Select '選定EXCEL表的第7行
xlApp.Selection.Delete shift:=xlUp '刪除選定的行
xlSheet.Rows(7).Insert '在第7行處插入一行
ActiveSheet.PageSetup.CenterHeader ="頁眉內(nèi)容" '給頁眉附值
xlSheet.Range("f7:h7").Select '選定f7:h7之間的單元格，下面的程序是把它們合并。
Application.CutCopyMode = False
With xlApp.Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
由于功能太多，不能一一列舉，如果有自己不會的可以用錄制宏的辦法，用手功操作一次你要的功能，然后看錄下的宏程序，VBA中的宏程序幾乎所有的宏在VB中都可以直接使用，關(guān)鍵是對象一定要搞清楚。
