如何用vb建立excel表格，并在里面输入公式？

[domitian]

我要建立一张sheet，并在指定的格子里输入求和的公式：=SUM(I10:J67)
比较的公式：=IF(B10=D10,1,0)

怎么输入啊？主要是要输入公式

[jam021]

excel里录宏,看一下录出来的代码就知道了

[cy_nwau]

Dim x As Object, xbook As Object, xsheet As Object
Set x = CreateObject("excel.application") '创建EXCEL应用程序对象，启动EXCEL应用程序
Set xbook = x.workbooks.Add '新建一个工作簿，并将其赋给xbook
Set xsheet = xbook.worksheets(1) '将xbook工作薄中的第一个表赋给xsheet
x.Visible = True '让EXCEL可视
xsheet.Cells(1, 1) ="=SUM(I10:J67)" '在需要录入公式的单元格将公式以字符串的形式写入即可。

[domitian]

Cells（1，1）表示什么位置？

如果我要把sheet3中“d4”表示sheet1中的“a2”和sheet2中“b3”之和怎么表示？

xlsheet.Cells（“d4”） = "=SUM(xlBook.Worksheets("sheet" & 1).Range("a2"))＋xlBook.Worksheets("sheet" & 2).Range("b3"))"也显示红的

编译不能通过啊？

[cy_nwau]

xlsheet.Cells（“d4”） = "=xlBook.Worksheets("sheet1").cells(2,1))＋xlBook.Worksheets("sheet2").cells(3,2)"
你用Cells来试试，前一个数表示行，后一个数表示列