主题：关于EXCEL 设置单元格公式问题

 楼主，你用下面这段代码吧。

 需要你在excel模板里填入公式，但注意公式要左移一位（比如 E4:E9 要写成 D4:D9）

 原本想帮你自动左移一位的，不过这样会复杂一些。你试一下，测试有效。

Dim Book_Mod As New XLS.Book(ProjectPath & "Attachments\2012 NCB Budget Actuals.xls")
Dim Book_Rep As New XLS.Book(ProjectPath & "Attachments\2012 NCB Budget Actuals.xls")
Dim fl As String = ProjectPath & "Reports\2012 NCB Budget Actuals.xls"

Book_Rep.Build() '生成细节区

For Each sheet As XLS.Sheet In book_Mod.Sheets
    For i As Integer = 0 To sheet.Rows.Count - 1
        For j As Integer = 0 To sheet.Cols.Count - 1
            If sheet(i, j).Formula <> "" Then   '是公式
                book_Rep.Sheets(sheet.Name)(i, j-1).Formula = sheet(i, j).Formula   '把公式重新写入
            End If
        Next
    Next
Next

Book_Rep.Save(fl)
Dim Proc As New Process
Proc.File =fl
Proc.Start()

是填入=sum(D4:D9)吗？

行求和没问题，但垂求和不行，只有前2列对，其他公式都变了

从第3列就变成=SUM(A65531:A65536)了

 

不行，重新生成就全不对了，我觉得还是之前那个语句有效

还是我哪里弄错了？

明天继续，谢谢各位

我测试有效，逻辑也有效，你把修改以后的模板放上来看看。记得，水平全部左移一位。

 这个绝对是Bug。

 用XLS.Book去取得的公式，并不是文件所示的那样（出现了乱码）

 而用MSExcel.Application去取就是好的。

 这个问题弄得叔纠结了很久。下面是解决方法。

 但是，MSExcel读取数据的时候很慢...很慢......楼主将就下用。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:费用明细.zip

呵呵，去公式确实存在bug，以后改进