sprechen mit Excel-Objekten von außerhalb von Excel

Question

Ich möchte Informationen aus einer Excel-Arbeitsmappe über VBScript außerhalb von Excel erhalten. Ich kann zu Arbeitsblattdaten gelangen. Jetzt möchte ich Informationen von UserForms und Objekten auf den UserForms erhalten. Ich habe den folgenden Code ausprobiert und es gibt einen Fehler in der msgbox-Zeile.

Danke, Kevin

Dim oExcel 
Dim oWb 
Dim oSheet 

Set oExcel = CreateObject("Excel.Application") 
Set oWb = oExcel.WorkBooks.Open("C:\KAA\KAA.XLSM") 

msgbox oWb.UserForm1.height 

oWb.Close 
Set oExcel = Nothing 
Set oWb = Nothing 

Answer 1

Um Ihnen programmierte Objekte zugreifen müssen die VBProject der Arbeitsmappe zuzugreifen.

MsgBox oWb.VBProject.VBComponents("UserForm1").Name 
MsgBox oWb.VBProject.VBComponents("UserForm1").Designer.InsideHeight 

aber vor, dass Sie (auf eigene Verantwortung) müssen die Sicherheit zu Vertrauen Zugriff auf das VBA-Projektobjektmodell setzen

File -> Options -> Trust Center -> Trust Center Settings -> Trust Access to the VBA project object model.