setformulaphp技巧_设置自动计算公式_SystemExcel库运用教程

XLSX表自动打算公式(仅需设置一次)

Private Sub Command10_Click()

（图片来自网络侵删）

Dim DoXLSX As XLSXApp

Dim Error As String

Set DoXLSX = New XLSXApp

'打开XLSX文件

If DoXLSX.Open("Test2.xlsx", Error) = False Then

MsgBox Error

Set DoXLSX = Nothing

Exit Sub

End If

'设置表格自动打算，下次不用设置也会自动打算

DoXLSX.SetAutoCalculate

'选择Sheet1

If DoXLSX.SelSheet("Sheet1", Error) = False Then

DoXLSX.Close

Set DoXLSX = Nothing

MsgBox Error

Exit Sub

End If

'设置公式

DoXLSX.SetCellFormula 4, 2, "=A2+C2"

DoXLSX.SetCellFormula 4, 3, "=A3+C3"

'关闭XLSX文件

DoXLSX.Save

DoXLSX.Close

End Sub

运行后Excel的效果

标签：DoXLSX设置