datareport無法更新的問題最新解決方案.........(編號：6988)

我前次所問的datareport無法更新的問題........
我試過大家所提的寶貴意見...
但是都必須離開form1才能refresh......
so......
我用excel的解決方式
如下

Dim aa As Excel.Application
　　Dim bb As Excel.Workbook
　　Dim cc As Excel.Worksheet

Set aa = CreateObject("Excel.Application")
　 '先取得路徑名稱
　　Set bb = aa.Workbooks.Open("d:\資料庫\books1.xls")
　　aa.Visible = True
　　Set cc = bb.Worksheets(1)


cc.Cells(1, 2) = "試試看"

Debug.Print cc.PrintOut
bb.Close (0)
aa.quit