如何實例化Lotus 123應用程序

Question

我正在打開Lotus文件以從中獲取數據。如何在不使用GetObject的情況下實例化Lotus應用程序？我有一個「蓮花123」的參考。我正在使用Lotus SmartSuite 97.

此代碼工作正常，但它seeems我應該能夠直接實例化Lotus應用程序，而不是使用GetObject。

'get LotusWin 
Dim LotusApp As Lotus123.Application 
Dim wb As Lotus123.Document 
Set wb = GetObject("C:\Temp\TestCopy.WK3", "Lotus123.Workbook") 
Set LotusApp = wb.Application 

LotusApp.Visible = True 
wb.Activate 

我試圖用Dim LotusApp As New Lotus123.Application但它給一個編譯錯誤：無效使用new關鍵字。

我試過使用Dim LotusApp As New Lotus123，但它給出了一個編譯錯誤：預期的用戶定義的類型，而不是項目。

我使用Excel VBA作爲我的平臺來運行代碼，但這不是Excel問題，所以請不要建議添加Excel標記。

此外我不想將文件轉換爲Excel。

如何在不使用GetObject的情況下實例化Lotus應用程序？

Answer 1

GetObject（）返回對COM組件提供的對象的引用，在您的情況Lotus123中。

當您通過COM與Lotus123進行通信時，Lotus123顯然不支持「As New」語法（即使在VB6中也沒有正確支持該語法，並且Lotus123比較舊），我沒有選擇使用GetObject ）。