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

　　我們在ACCESS中操作EXCEL對象，首先建立一個Excel.Application 對象，就可以象在EXCEL中進行編程一樣，在ACCESS實現(xiàn)對EXCEL對象的操作。

1．引用EXCEL項目庫名

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

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

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

宏錄制過程如下：

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

    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對象演示!"

    With Selection.Font

        .Name = "仿宋_GB2312"

        .Size = 16

        .Bold = True

        .ColorIndex = 46

    End With

 

說明：以上代碼將是我們下一步要放在ACCESS中使用的EXCEL對象操作代碼。為了了解每句代碼的意義，你可以VBE窗口中按F8來逐句調(diào)試，對于沒有用的代碼可以刪除。

 

為了在ACCESS中使用EXCEL對象，我們在此之前引用了EXCEL對象類庫，但僅僅是引用了類庫我們還不能直接操作EXCEL對象，我們還必須在EXCEL代碼中申明并實例化EXCEL應(yīng)用程序Application對象。

 

我們可以通過兩種方式來定義或設(shè)置EXCEL應(yīng)程序?qū)ο蠼o自定義的對象變量，方法如下：

•        使用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對象設(shè)置為當(dāng)前EXCEL應(yīng)用程序?qū)ο�，如下�?/SPAN>

Dim xlApp As Excel.Application

Set xlApp =GetObject(, "Excel.Application")

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

 

過程代碼：

Sub OpenXlApp()

     Dim xlApp As Excel.Application   '申明EXCEL應(yīng)用程序?qū)ο?/SPAN>

    '設(shè)置應(yīng)用程序?qū)ο髮嵗?/SPAN>

    Set xlApp = CreateObject("Excel.Application")

    xlApp.Visible = True    '顯示EXCEL應(yīng)用程序

    xlApp.Workbooks.Add  '新增一個EXCEL工作簿

   

   '以下部分為EXCEL錄制宏錄制整理后所得代碼

    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對象演示!"

    With Selection.Font

        .Name = "仿宋_GB2312"

        .Size = 16

        .Bold = True

        .ColorIndex = 46

    End With

    '退應(yīng)用程序并釋放內(nèi)存

    xlApp.Quit

    Set xlApp = Nothing

End Sub

 

 

打開一個已有的EXCEL工作簿，實例假定文件名為 MyBook.xls ，EXCEL文件存放在C盤中，并完成在該工作簿中A1單元格中寫入如之前實例中格式的字符串。

過程代碼：

 

Sub OpenxlBook()

 '申明EXCEL應(yīng)用程序?qū)ο蟛⒓尤?/SPAN>New關(guān)鍵字實例化對象

    Dim xlApp As New Excel.Application

 '申明EXCEL工作簿對象

    Dim xlBook As Excel.Workbook

  '設(shè)置工作簿對象為指定的工作簿

  Set xlBook = xlApp.Workbooks.Open("C:\mybook.xls")

    xlApp.Visible = True  '顯示EXCEL應(yīng)用程序

 

    '以下部分為EXCEL錄制宏錄制整理后所得代碼

    ActiveCell.FormulaR1C1 = "江羽ACCESS中操作EXCEL對象演示!"

    With Selection.Font

        .Name = "仿宋_GB2312"

        .Size = 16

        .Bold = True

        .ColorIndex = 46

    End With

  

   '退應(yīng)用程序并釋放內(nèi)存

   xlApp.Quit

   Set xlApp = Nothing

End Sub

 

 

(全文結(jié)束)