~帥氣欣的帥氣旅程~

之前的文章有提到如何自動化Access,但是就現在看來那個只是一個取巧的方法.
之前的方法有一個很嚴重的限制:不能傳遞參數給Access.

下面這個網址提供了更全面性的作法:

http://support.microsoft.com/kb/306682/zh-tw

上述的方法藉由建立各種Office的物件,並使用run這個方法直接執行其中的VBA Code.
這使得自動化達到了一個更高的層次.

ps.別忘了"Imports Microsoft.Office.Interop",沒引入這個NameSpace可是沒辦法動作的~

其範例節錄如下(以Excel為例)

Dim oExcel As Excel.ApplicationClass
Dim oBook As Excel.WorkbookClass
Dim oBooks As Excel.Workbooks

'Start Excel and open the workbook.
oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
oBooks = oExcel.Workbooks
oBook = oBooks.Open("c:\book1.xls")

'Run the macros. <= 重點在這邊
oExcel.Run("DoKbTestWithParameter", "Hello from VB .NET Client") '第一個為sub名稱,第二個為要傳遞的參數

'Clean-up: Close the workbook and quit Excel.
oBook.Close (False)
System.Runtime.InteropServices.Marshal.ReleaseComObject (oBook)
oBook = Nothing
System.Runtime.InteropServices.Marshal.ReleaseComObject (oBooks)
oBooks = Nothing
oExcel.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject (oExcel)
oExcel = Nothing