以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何用代码给电子表设置公式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82365)
--  作者：lihe60
--  发布时间：2016/3/16 15:16:00
--  如何用代码给电子表设置公式

如何用代码对指定的excel报的某个单位格设置公式?
--  作者：大红袍
--  发布时间：2016/3/16 16:30:00
--  

方法一：

 

http://www.foxtable.com/help/topics/1160.htm

 

方法二：

 

http://www.foxtable.com/help/topics/2121.htm

 
--  作者：lihe60
--  发布时间：2016/3/21 9:26:00
--  

Dim Book As New XLS.Book() \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.ForeColor = Color.Red \'设置样式的字体颜色
Sheet(3,0).Formula = "=a1/a3"
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

 

 

设置的公式不能正确计算。
--  作者：Hyphen
--  发布时间：2016/3/21 10:06:00
--  
公式单元格引用要大写

Sheet(3,0).Formula = "=A1/A3"
--  作者：wyz20130512
--  发布时间：2016/3/21 10:14:00
--  
Dim Book As New XLS.Book() \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.ForeColor = Color.Red \'设置样式的字体颜色
Sheet(3,0).Formula = "=A1/A3"
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process 
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

改成大写,试试!
--  作者：lihe60
--  发布时间：2016/3/21 10:32:00
--  

改成大写，公式就可以用了。