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

  • 相关阅读:
    百度之星初赛 A
    百度之星 初赛 BC
    2016 百度之星资格赛
    codeforces 749
    codeforces 785
    HDU 4617
    网络流 poj 2195
    网络流 poj 3436 poj 3281
    codeforces 780 C
    idea激活
  • 原文地址:https://www.cnblogs.com/ainima/p/6331528.html
Copyright © 2020-2023  润新知