主题：自动保留Excec公式

赋值到EXCel表，如果该格内有公式如向保留公式，自动跳过该格不赋值？

输出的Excel表如何隐藏明细工作表？

 第一个问题，不明白你的意图，什么情况下的赋值？直接赋值，还是excel报表？

第二个问题，代码这样写

 

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

用数据表逐行逐列赋值到Excel表，但Excel表有部分格有公式，我希望保留公式，如何做到？

 

判断单元格的公式属性 Formula

 

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

 

formula好像只能设置公式，不能判断单元格Sheet(1,0)是否已设置有公式？

 

呃，If Sheet(0, 0).Formula = "" Then

多谢！我之前做左，但搞错条件位置。

if(D17<>O，E17/D17，O)不能判断？