原帖連接：http://www.officefans.net/cdb/viewthread.php?tid=230741&highlight=
因為csdn不能上傳附件，因此原帖中附有了附件。
因為需要做excel的vba通過加載dll檔案進行封裝。學習了http://www.officefans.net/cdb/viewthread.php?tid=101939這個帖子的內容后，自己嘗試做了一下
我的需求是在一個特定的excel（例如d:\sample.xls）打開后自動呼叫dll打開dll中封裝的表單，然后點擊表單上的按鈕后msgbox sheets("sheet1").cells(1,1).value,非常簡單，但是遇到一個問題
在vb中需要建立打開excel物件，用以下類似陳述句
Dim ExcelApp As New Excel.Application
Dim ExcelWorkBook As Excel.Workbook
Dim ExcelWorksheet As Excel.Worksheet
Set ExcelWorkBook = ExcelApp.Workbooks.Open("d:\sample.xls") '打開作業簿
但是問題在于這樣的話相當于新建一個excel行程，再打開這個d:\sample.xls檔案進行后續處理。但是我的需求是不要新建excel行程，也不需要再次打開d:\sample.xls這個問題件，而是直接就在當前的excel檔案，即d:\sample.xls這個檔案中進行操作。這樣的話，不太清楚應該怎么樣寫代碼，從而把當前的excel檔案裝載入dll中的ExcelApp物件中去，從而進行后續處理。
test.zip (20.98 KB) 附件說明：report.dll是改程式編譯出來的，然后打開sample.xls就呼叫了該dll檔案，從而打開了form表單，然后點擊表單上按鈕，啟動dll中封裝的程式。
有一點要注意：sample中的參考report.dll檔案，因為每個人放置的絕對路徑不同，因此可能需要自己重新參考一次即可。
特此求助大蝦！多謝！！
uj5u.com熱心網友回復：
Dim ExcelApp As New Excel.ApplicationDim ExcelWorkBook As Excel.Workbook
Dim ExcelWorksheet As Excel.Worksheet
If ExcelApp.Workbooks.Count > 0 Then
Set ExcelWorkBook = ExcelApp.ActiveWorkbook '如果當前有作業本,就對當前作業本進行操作
Else
Set ExcelWorkBook = ExcelApp.Workbooks.Open("d:\sample.xls") '如果當前無作業本，就打開作業本
End If
uj5u.com熱心網友回復：
你那樣打開，不是會造成一種“死回圈”么？（幸好Excel會詢問是否重新打開，要不然真成死回圈了。）
你可以試下這樣：
'Set ExcelWorkBook = ExcelApp.Workbooks.Open("d:\sample.xls") '打開作業簿
Set ExcelWorkBook = ExcelApp.ThisWorkbook要傳附件，你可以先把附件上傳到這個地方：
http://access911.net/csdn
然后把你的附件所在的鏈接地址貼出來。
象你在主貼中說的那個“原貼連接”，別人未必就能下載（必須要有那個論壇的帳號，登錄后才能下載）。
uj5u.com熱心網友回復：
請問vba中吧excel中一個sheet中的2000條資料，向oracle批量insert資料有什么好的方式么？ 回圈太慢了感覺。大家有什么好的辦法么？謝謝。。uj5u.com熱心網友回復：
打開VB，創建一個外接程式工程：設計器代碼：
Public WithEvents XlApp As Excel.Application
Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
Set XlApp = Application
End Sub
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
Set XlApp = Nothing
End Sub
Private Sub XlApp_WorkbookOpen(ByVal Wb As Excel.Workbook)
If LCase(Wb.FullName) = "d:\sample.xls" Then
Set My_Wb = Wb
frmAddIn.Show 0
End If
End Sub
表單添加一個按鈕，命名: Command1 .
表單代碼:
Private Sub Command1_Click()
MsgBox My_Wb.sheets("sheet1").cells(1, 1).Value
End Sub
模塊代碼:
Public My_Wb As Excel.Workbook
如下圖示：
uj5u.com熱心網友回復：
你好，不好意思現在才來看當時這篇帖子，中間很長時間在忙其他東西。
很感謝你的詳盡回復，我按照你說的測驗，在生成MyAddIn.dll程序中，在模塊的Public My_Wb As Excel.Workbook這句上報錯：“編譯錯誤：用戶定義型別未定義”
不知道是什么問題呢？不勝感謝！
uj5u.com熱心網友回復：
十分感謝你的提醒，這個上傳鏈接十分有用！
我按照你說的，但是在Set ExcelWorkBook = ExcelApp.ThisWorkbook這句上報錯說錯誤1004，物件thisworkbook的方法_Application失敗。
謝謝！
uj5u.com熱心網友回復：
你在工程中參考“Microsoft Office XX.0 Object Library”再編譯試下。
uj5u.com熱心網友回復：
你用的是ActiveX DLL吧！如果是這樣，你在那個DLL的源代碼中，增加一個介面函式，用來接收作業簿物件的參考。
這個函式的引數，就是一個作業簿物件。接收這個引數，把參考保存到一個模塊級的私有變數中。
（或者就把這個變數定義為公有的，創建物件后，直接把參考賦值給它）
然后你的DLL中，其它地方就能通過這個物件參考來操作作業簿了。
比如，你的那個視窗中要讀取sheets("sheet1").cells(1,1).value
記得要在 Class_Terminate() 中，釋放其參考：
Set XXXX = Nothing
uj5u.com熱心網友回復：
哦，這個我已經參考過了。
uj5u.com熱心網友回復：
你好，附件已經上傳到http://access911.net/csdn/FileDescription.asp?mdb=2013-10-21&id=32了，謝謝
uj5u.com熱心網友回復：
哦我刪掉后重新設定一下，果然這個地方就沒編譯錯誤了
現在是在設計器的“Dim mcbMenuCommandBar As Office.CommandBarControl”
這句話報錯說“用戶定義型別未定義”,不知道什么原因。
uj5u.com熱心網友回復：
Class1 的代碼：Private objWorkBook As Excel.WorkBook
Sub Form_open() '
w_main.Show 0
End Sub
Public Property Get WorkBook() As Excel.WorkBook
Set WorkBook = objWorkBook
End Property
Public Property Let WorkBook(ByVal vNewValue As Excel.WorkBook)
Set objWorkBook = vNewValue
Set w_main.ExcelWorkBook = vNewValue '在這兒把物件參考傳遞到表單中去
End Property
Private Sub Class_Initialize()
Set objWorkBook = Nothing
End Sub
w_main 的代碼：
' 增加這個
Public ExcelWorkBook As Excel.WorkBook
Sub Command1_Click()
Dim ExcelApp As New Excel.Application
Dim ExcelWorkBook As Excel.WorkBook
Dim ExcelWorksheet As Excel.Worksheet
Set ExcelWorkBook = ExcelApp.Workbooks.Open("C:\Documents and Settings\shi23410\Desktop\test\sample.xls") '打開作業簿
Set ExcelWorkBook = ExcelApp.ThisWorkbook
'ExcelWorkBook.Sheets("sheet1").Cells(1, 1).Value = "abc"
MsgBox ExcelWorkBook.Sheets("sheet1").Cells(1, 1).Value
End Sub
Private Sub Command2_Click()
'Dim ExcelApp As New Excel.Application
Dim ExcelWorksheet As Excel.Worksheet
' 這幾個我注釋掉的，可以不用了。
' Command1_Click() 我沒改你的，其它地方要用，可以參考這兒。
' “Excel.Application”物件，你在這個表單中，不用再去創建了。
' 如果要用，用這個參考就行： ExcelWorkBook.Application
'Set ExcelApp = CreateObject("Excel.Application")
'Set ExcelWorkBook = ExcelApp.Workbooks.Open("d:\temp.xls")
'Set ExcelWorkBook = ExcelApp.ThisWorkbook
Set ObjWorkSheet = ExcelWorkBook.Sheets("sheet1")
ExcelWorkBook.Sheets("sheet1").Cells(1, 1).Value = "abc"
MsgBox ExcelWorkBook.Sheets("sheet1").Cells(1, 1).Value
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set ExcelWorkBook = Nothing
End Sub
Excel 作業簿的代碼：
Private Sub Workbook_Open()
Shell "Regsvr32 /s " & VBA.Chr(34) & ThisWorkbook.Path & "\report.dll" & VBA.Chr(34), vbHide
Dim kk As New Class1
kk.Workbook = ThisWorkbook '注意這句！先把物件參考傳遞過去！
Call kk.Form_open
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/136310.html
標籤：VBA
上一篇：新手求教！！
下一篇：...