请问如何动态更新excel中的单元格呢？

Question

我在dll里写了一个函数，返回一个值
现在想把这个值每10秒钟显示到单元格中一次
该怎么办呢？
一直没想到好办法

Answer 1

Dim XLApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set XLApp = CreateObject("Excel.Application")
Set XLWorkBook = XLApp.Workbooks.Add
Set XLWorkSheet = XLWorkBook.Worksheets(1)XLApp.Visible = TrueXLWorkSheet.Cells(i + 1, j + 1).Value = Format(xxx, "#0.00")xxx就是你要写的内容，需要引用Excel

Answer 2

如果表格早有的话
Dim XLApp As New Excel.Application
Dim XLWorkBook As New Excel.Workbook
Dim XLWorkSheet As New Excel.Worksheet
Set xlBook = XlApp.Workbooks.Open(App.Path & "\123.xls") 
Set XLWorkBook = XLApp.Workbooks.Add
Set XLWorkSheet = XLWorkBook.Worksheets(1)
XLApp.Visible = True
XLWorkSheet.Cells(1, 1).Value = Format(xxx, "#0.00")如果表格有密码,可以这样:
Set xlBook = XlApp.Workbooks.Open(App.Path & "\123.xls", , , , 密码) 

Answer 3

我的意思是这个数是不停变化的
比如说这个函数叫做Dynamic_Func(),每次调用他返回的值都不一样
这样在excel里 = Dynamic_Func（）的值并不变化...
调用Calculate也不行...

Answer 4

Dim XLApp As New Excel.Application 
Dim XLWorkBook As New Excel.Workbook 
Dim XLWorkSheet As New Excel.Worksheet 
以上放在通用里
Set XLWorkBook = XlApp.Workbooks.Open(App.Path & "\123.xls") 
Set XLWorkBook = XLApp.Workbooks.Add 
Set XLWorkSheet = XLWorkBook.Worksheets(1) 
XLApp.Visible = True 
以上放在Form_Load中
XLWorkSheet.Cells(1, 1).Value = Format(Dynamic_Func, "#0.00") 
以上放在Timer里
要在工程->引用 中选择Microsoft Excel ...

Answer 5

excel对象里有个screenupdating 属性 你设置为True 看下 显性设为True
不知道是不是这问题