以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动保留Excec公式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52989)
--  作者：发财
--  发布时间：2014/6/26 23:06:00
--  自动保留Excec公式
赋值到EXCel表，如果该格内有公式如向保留公式，自动跳过该格不赋值？
--  作者：发财
--  发布时间：2014/6/27 6:41:00
--  
输出的Excel表如何隐藏明细工作表？
--  作者：有点甜
--  发布时间：2014/6/27 9:17:00
--  
 第一个问题，不明白你的意图，什么情况下的赋值？直接赋值，还是excel报表？
--  作者：有点甜
--  发布时间：2014/6/27 9:25:00
--  

第二个问题，代码这样写

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("D:\\2.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Ws.visible = False
app.Visible = True
\'Wb.Save
\'App.Quit
--  作者：发财
--  发布时间：2014/6/27 11:18:00
--  
用数据表逐行逐列赋值到Excel表，但Excel表有部分格有公式，我希望保留公式，如何做到？
--  作者：有点甜
--  发布时间：2014/6/27 11:22:00
--  
以下是引用发财在2014-6-27 11:18:00的发言：
用数据表逐行逐列赋值到Excel表，但Excel表有部分格有公式，我希望保留公式，如何做到？

 

判断单元格的公式属性 Formula

 

看是否为空值  http://www.foxtable.com/help/topics/1160.htm

 
--  作者：发财
--  发布时间：2014/6/27 16:02:00
--  
formula好像只能设置公式，不能判断单元格Sheet(1,0)是否已设置有公式？
--  作者：有点甜
--  发布时间：2014/6/27 16:05:00
--  
以下是引用发财在2014-6-27 16:02:00的发言：
formula好像只能设置公式，不能判断单元格Sheet(1,0)是否已设置有公式？

 

呃，If Sheet(0, 0).Formula = "" Then
--  作者：发财
--  发布时间：2014/6/27 16:09:00
--  
多谢！我之前做左，但搞错条件位置。
--  作者：发财
--  发布时间：2014/6/27 21:18:00
--  
if(D17<>O，E17/D17，O)不能判断？