主题：请大侠，帮我看看，这段自定义函数代码，怎么一调用，系统就奔溃啊？

下面这些代码都能正常运行的，说明用" Window1 "，没问题，用"Window5"就出问题了，但是，"Window5"窗格是存在的：

此主题相关图片如下：window5.jpg
 

Set xGrid = UserFrame1.GetGridByName("Window1")
'创建窗格对象后，创建ReportData（行情数据对象）对象
Set xReportData=xGrid.GetReportData()
'显示窗格内的公式个数
Count =xGrid.FormulaCount
'输出当前窗口加载的公式数量
MsgBox "加载的公式数量是："&Count
'输出“金字塔”程序的安装目录
MsgBox "金字塔软件的安装路径是："&Application.AppPath
'输出昨日收盘价:
LastClose=xReportData.LastClose
MsgBox "昨日收盘价是："&LastClose
'输出最新价格：
NewPrice=xReportData.NewPrice
MsgBox "最新价格是："&NewPrice
'对历史数据进行处理
Set xHistoryData=xGrid.GetHistoryData()
MsgBox "当前有多少天的历史数据："&xHistoryData.Count
'关于Formula对象
Set xFormula=xGrid.GetFormulaByName("MyMa")
xFCount=xFormula.LineCount
MsgBox "MyMa公式的数据是："&xFCount