時(shí)間：2013-07-15 14:43 來源：office中國(guó) 作者：江羽 閱讀：次

OFFICE是由ACCESS、EXCEL、WORD等應(yīng)用程序軟件的集合成軟件，我們把每個(gè)軟件也應(yīng)稱之組件或是應(yīng)用程序，各應(yīng)用程序的最上層對(duì)象為 Application對(duì)象，我們就是通過該對(duì)象來實(shí)現(xiàn)與Office中其它各應(yīng)用程序進(jìn)行交流的。

　　我們?cè)贏CCESS中操作EXCEL對(duì)象，首先建立一個(gè)Excel.Application 對(duì)象，就可以象在EXCEL中進(jìn)行編程一樣，在ACCESS實(shí)現(xiàn)對(duì)EXCEL對(duì)象的操作。

1．引用EXCEL項(xiàng)目庫(kù)名

　　要實(shí)現(xiàn)對(duì)EXCEL對(duì)象的操作，我們必須引用當(dāng)前版本的EXCEL項(xiàng)目庫(kù)，以2003版為例，引用的EXCEL項(xiàng)目庫(kù)名為：Microsoft Excel 11.0 Object Library，具體操作步驟如下：

２．錄制宏代碼
　　這一步驟主要是針對(duì)EXCEL代碼不是很熟的朋友，當(dāng)然對(duì)于有一定功底的EXCEL朋友，也可以通過錄制來完成代碼書，這樣可以提高一定的工作效率，還可以在EXCEL中校驗(yàn)一下代碼正確與否。

說明：如果你對(duì)于書寫EXCEL對(duì)象操作代碼已經(jīng)具備的實(shí)足的把握，你可以直接跳到下一小節(jié)，而不必在本小節(jié)浪費(fèi)時(shí)間。
　
　　實(shí)例將演示在EXCEL中完成所述操作：在Shee1單元格A1中輸入字符串“ACCESS中操作EXCEL對(duì)象演示！”，設(shè)定字體的字號(hào)：16，字體：仿宋加粗，顏色為：橙色。

宏錄制過程如下：

錄制完后整理好的有效代碼如下：

    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對(duì)象演示!"
    With Selection.Font
        .Name = "仿宋_GB2312"
        .Size = 16
        .Bold = True
        .ColorIndex = 46
    End With
 
說明：以上代碼將是我們下一步要放在ACCESS中使用的EXCEL對(duì)象操作代碼。為了了解每句代碼的意義，你可以VBE窗口中按F8來逐句調(diào)試，對(duì)于沒有用的代碼可以刪除。
 
為了在ACCESS中使用EXCEL對(duì)象，我們?cè)诖酥�前引用了EXCEL對(duì)象類庫(kù)，但僅僅是引用了類庫(kù)我們還不能直接操作EXCEL對(duì)象，我們還必須在EXCEL代碼中申明并實(shí)例化EXCEL應(yīng)用程序Application對(duì)象。
 
我們可以通過兩種方式來定義或設(shè)置EXCEL應(yīng)程序?qū)ο蠼o自定義的對(duì)象變量，方法如下：

•        使用New關(guān)鍵字

Dim xlApp As New Excel.Application

•        使用CreateObject函數(shù)

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")
特別說明：
如果EXCEL處于打開狀態(tài)，或是已在執(zhí)行中，可以使用GetObject函數(shù)直接將定義的XlApp對(duì)象設(shè)置為當(dāng)前EXCEL應(yīng)用程序?qū)ο�，如下�?br /> Dim xlApp As Excel.Application
Set xlApp =GetObject(, "Excel.Application")

 

3.2 創(chuàng)建EXCEL對(duì)象實(shí)例演示

在ACCESS新建一個(gè)窗體FrmMain ，創(chuàng)建一個(gè)按鈕命名： CmdRun ，設(shè)定按鈕的標(biāo)題Caption屬性為：演示，在按鈕單擊 [事件] 中加入用以運(yùn)行演示過程代碼。
 

過程代碼：
Sub OpenXlApp()
     Dim xlApp As Excel.Application   '申明EXCEL應(yīng)用程序?qū)ο?br />     '設(shè)置應(yīng)用程序?qū)ο髮?shí)例
    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = True    '顯示EXCEL應(yīng)用程序
    xlApp.Workbooks.Add  '新增一個(gè)EXCEL工作簿
   
   '以下部分為EXCEL錄制宏錄制整理后所得代碼
    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對(duì)象演示!"
    With Selection.Font
        .Name = "仿宋_GB2312"
        .Size = 16
        .Bold = True
        .ColorIndex = 46
    End With

    '退應(yīng)用程序并釋放內(nèi)存
    xlApp.Quit
    Set xlApp = Nothing
End Sub
 
 

3.3 操作指定的EXCEL對(duì)象實(shí)例演示

打開一個(gè)已有的EXCEL工作簿，實(shí)例假定文件名為 MyBook.xls ，EXCEL文件存放在C盤中，并完成在該工作簿中A1單元格中寫入如之前實(shí)例中格式的字符串。
過程代碼：
 
Sub OpenxlBook()
 '申明EXCEL應(yīng)用程序?qū)ο蟛⒓尤隢ew關(guān)鍵字實(shí)例化對(duì)象
    Dim xlApp As New Excel.Application
 '申明EXCEL工作簿對(duì)象
    Dim xlBook As Excel.Workbook
  '設(shè)置工作簿對(duì)象為指定的工作簿
  Set xlBook = xlApp.Workbooks.Open("C:\mybook.xls")
    xlApp.Visible = True  '顯示EXCEL應(yīng)用程序
 
    '以下部分為EXCEL錄制宏錄制整理后所得代碼
    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對(duì)象演示!"
    With Selection.Font
        .Name = "仿宋_GB2312"
        .Size = 16
        .Bold = True
        .ColorIndex = 46
    End With
  
   '退應(yīng)用程序并釋放內(nèi)存
   xlApp.Quit
   Set xlApp = Nothing
End Sub

(責(zé)任編輯：admin)