怎么获取excel提示窗口的信息

如何获取excel提示窗口的信息？
我用vb调用了excel，如果excel文件的内容是乱码，则打开时会有提示信息，我想请问怎么能获取到这个信息呢？我想取到这个信息进行判断？
Set   xlbook   =   xlapp.Workbooks.Open(filename)程序运行到这句就会出现提示的窗口，必须要确定有才能执行下面的代码，文件打开后就是乱码。
filename   =   "E:\www2.xls "
Set   xlapp   =   CreateObject( "Excel.Application ")
hwndexcelapp   =   FindWindow( "xlmain ",   xlapp.Caption)
Call   aa(filename)       '一个二进制的加密程序
Set   xlbook   =   xlapp.Workbooks.Open(filename)
Call   SetParent(hwndexcelapp,   Me.hwnd)
xlapp.Visible   =   True
就是因为用到了这个加密程序，所以在加密后再次打开excel的时候会出现错误的提示信息。我想问的是这个信息能不能截到。


[解决办法]
参考EXCEL中VBA帮助中open方法的参数
expression.Open(FileName, UpdateLinks, ReadOnly, Format, Password, WriteResPassword, IgnoreReadOnlyRecommended, Origin, Delimiter, Editable, Notify, Converter, AddToMru, Local, CorruptLoad)
其中Converter可试用所有的转换器。
具体帮助文件：EXCEL中VBA帮助的 "应用于 Workbooks 对象的 Open 方法 "
[解决办法]
鍏虫敞涓