各位大大好, 因最近需要用 vb.net 2005 匯出資料到 Excel 
但匯出資料後, 發現用 vb create 出來的 excel 開啟其它舊 excel 檔案時
在舊檔案內所有增益集的 function 都出現 #Value 的問題
我已經有用 vb.net create excel 時開啟所有增益集, 但發現仍然出現 #Value 的問題
煩請各位大大幫助小弟. 謝謝

例子如下
先用excel create 一個檔案
而裡而只用一個 =edate(NOW(),1) function
之後save

用下面的 vb 程式碼 create 了 excel 檔案後再開啟之前的 excel 檔案
舊檔裡的 edate 就會變成 #Value

加入參考 : Microsoft excel 11.0 object library
[code vb]
Dim MyXlsApp As Excel.Application
Dim xlBook1 As Excel.Workbook
Dim xlsheet1 As Excel.Worksheet
MyXlsApp = CreateObject("Excel.Application")
MyXlsApp.Visible = False
xlBook1 = MyXlsApp.Workbooks.Add
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\ANALYS32.XLL", True)
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\atpvbaen.xla", True)
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\ATPVBATC.XLA", True)
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\FUNCRES.XLA", True)
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\PROCDB.XLA", True)
xlsheet1 = xlBook1.Worksheets(1)
Dim RowNo As Integer = 1
xlsheet1.Cells(RowNo, 1).Value = "Date:"
xlsheet1.Cells(RowNo, 2).Value = Now.Date
MyXlsApp.Visible = True
MyXlsApp = Nothing
GC.Collect()

[/code]

編輯記錄

我終於在微軟的技術支援那裡找到答案

在open 之後還需要用 RunAutoMacros(1)

例子
[code vb]
MyXlsApp.Workbooks.Open(MyXlsApp.LibraryPath & "\Analysis\atpvbaen.xla")
MyXlsApp.Workbooks("atpvbaen.xla").RunAutoMacros(1)
[/code]