您好！

无论这一项是如何计算得到的，首先 只要这个单元格中存在数据，就可以将其读取出来，例如下面的代码

    Dim xlExcel As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet
      
    Set xlExcel = CreateObject("Excel.Application")
    xlExcel.Workbooks.Open "C:\test.xls"
    Set xlBook = xlExcel.Workbooks("test.xls")
    Set xlSheet = xlBook.Worksheets(1)
    Text1.Text =  xlSheet.Cells(1, 1).Value