Question

我希望通过Excel之外的VBscript从Excel工作簿中获取信息。我可以获得工作表数据。现在我想从UserForms上的UserForms和Objects获取信息。我尝试了下面的代码，它在msgbox行上给出了一个错误。

谢谢，凯文

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

要访问程序对象，您需要访问工作簿的VBProject。

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

但在此之前，您需要（由您自己负责）将安全性设置为信任访问VBA项目对象模型

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

与excel外部的excel对象交谈

1 个答案: