空EDOffice1文件上的错误消息

Question

我成功设计了一个代码，通过单击命令按钮来计算回归分析。命令代码引用导入VB的Excel工作表。当用户点击计算命令按钮而没有先将数据导入VB时，我想要一个错误消息。我这样做是为了陷阱而不起作用：

如果EDOffice1.ActiveDocument为空则

MsgBox“没有选择文件”

结束如果

请帮忙。

Answer 1

尝试

If EDOffice1.Documents.Count = 0 Then
     MsgBox "No Files were selected"
End If

还要考虑禁用该按钮，直到导入数据。