VB操作Excel无法更新的问题研究

问题：

VB中用语句打开一个Excel获取其中的数据，并赋值给模块里的全局变量，如果修改了excel中的数据，再次读取文件，数据不会被更新；只有关闭程序再次运行才可以。

语句：

打开excel并获取变量

Public Sub GetValue()

Dim strDestination As String
Dim xlApp As Excel.Application
Dim xlBook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet

strDestination = App.Path & "\Excels\标准工况.xls"

Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
'激活EXCEL应用程序
xlApp.Visible = False
'隐藏EXCEL应用程序窗口
Set xlBook = xlApp.Workbooks.Open(strDestination)
'打开工作簿，strDestination为一个EXCEL报表文件
Set xlsheet = xlBook.Worksheets(1)
'设定工作表

etab = 0.9406
qd = xlsheet.Cells(2, 4)
Qb = xlsheet.Cells(3, 4)
Bs = xlsheet.Cells(4, 4)

xlApp.Quit
'退出EXCEL

End Sub

分析：

关键可能在于form的关闭方式采用了form.hide。具体的分析进一步寻找资料