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