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。具体的分析进一步寻找资料