主题：关于EXCEL 设置单元格公式问题

是否在Dim sheet As XLS.Sheet = book.Sheets(0)中将book.sheet(0)改为人事.sheet(0)?

 楼主自己弄一下吧，区分如下图


此主题相关图片如下：qq截图20121010161120.png

明白了，我试下，多谢！

如果有两个SHEET

Dim Book As New XLS.Book(ProjectPath & "Attachments\2012 NCB Budget Actuals.xls")
Dim fl As String = ProjectPath & "Reports\2012 NCB Budget Actuals.xls"
Book.Build() '生成细节区
Dim sheet As XLS.Sheet = book.Sheets("FM 设施")

Dim lastRow As Integer
For i As Integer = 0 To sheet.Rows.count -1
    If sheet(i,15).Text = "求和" Then
        sheet(i,15).Formula = "=SUM(D" & (i+1) & ":O" & (i+1) & ")"
    End If
    If sheet(i, 17).Text = "求差" Then
        sheet(i, 17).Formula = "=P" & (i+1) & "- Q" & (i+1)
    End If
    If sheet(i, 18).Text = "变动" Then
        sheet(i, 18).Formula = "=IF(Q" & (i+1) & "=0,0,P" & (i+1) & "/Q" & (i+1) & ")"
    End If
    If sheet(i, 3).Text = "垂求和" Then
        lastRow = i
        Exit For
    End If
Next

Dim sheet As XLS.Sheet = book.Sheets("人事")

Dim lastRow As Integer
For i As Integer = 0 To sheet.Rows.count -1
    If sheet(i,15).Text = "求和" Then
        sheet(i,15).Formula = "=SUM(D" & (i+1) & ":O" & (i+1) & ")"
    End If
    If sheet(i, 17).Text = "求差" Then
        sheet(i, 17).Formula = "=P" & (i+1) & "- Q" & (i+1)
    End If
    If sheet(i, 18).Text = "变动" Then
        sheet(i, 18).Formula = "=IF(Q" & (i+1) & "=0,0,P" & (i+1) & "/Q" & (i+1) & ")"
    End If
    If sheet(i, 3).Text = "垂求和" Then
        lastRow = i
        Exit For
    End If
Next

Dim zm As String = "DEFGHIJKLMNOPQ"
For i As Integer = 0 To zm.Length - 1
    sheet(lastRow, i+3).Formula = "=Sum(" & zm.Chars(i) & "4:" & zm.Chars(i) & "9)"
Next

Book.Save(fl)
Dim Proc As New Process
Proc.File =fl
Proc.Start()

 

 

但是报错

我重新更改了语句如下，已经成功一半了。

 

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\2012 NCB Budget Actuals.xls")
Dim fl As String = ProjectPath & "Reports\2012 NCB Budget Actuals.xls"
Book.Build() '生成细节区
Dim sheet1 As XLS.Sheet = book.Sheets("FM 设施")
Dim sheet2 As XLS.Sheet = book.Sheets("人事")

Dim lastRow As Integer
For i As Integer = 0 To sheet1.Rows.count -1
    If sheet1(i,15).Text = "求和" Then
        sheet1(i,15).Formula = "=SUM(D" & (i+1) & ":O" & (i+1) & ")"
    End If
    If sheet1(i, 17).Text = "求差" Then
        sheet1(i, 17).Formula = "=P" & (i+1) & "- Q" & (i+1)
    End If
    If sheet1(i, 18).Text = "变动" Then
        sheet1(i, 18).Formula = "=IF(Q" & (i+1) & "=0,0,P" & (i+1) & "/Q" & (i+1) & ")"
    End If
    If sheet1(i, 3).Text = "垂求和" Then
        lastRow = i
        Exit For
    End If
Next

Dim zm As String = "DEFGHIJKLMNOPQ"
For i As Integer = 0 To zm.Length - 1
    sheet1(lastRow, i+3).Formula = "=Sum(" & zm.Chars(i) & "4:" & zm.Chars(i) & "9)"
Next

For i As Integer = 0 To sheet1.Rows.count -1
    If sheet2(i,15).Text = "求和" Then
        sheet2(i,15).Formula = "=SUM(D" & (i+1) & ":O" & (i+1) & ")"
    End If
    If sheet2(i, 17).Text = "求差" Then
        sheet2(i, 17).Formula = "=P" & (i+1) & "- Q" & (i+1)
    End If
    If sheet2(i, 18).Text = "变动" Then
        sheet2(i, 18).Formula = "=IF(Q" & (i+1) & "=0,0,P" & (i+1) & "/Q" & (i+1) & ")"
    End If
    If sheet2(i, 3).Text = "垂求和" Then
        lastRow = i
        Exit For
    End If
Next

 

Book.Save(fl)
Dim Proc As New Process
Proc.File =fl
Proc.Start()

我想请教 If sheet1(i, 3).Text = "垂求和" Then
        lastRow = i
这里的If sheet1(i, 3)是不是第3列？

第四列，因为编号从0开始，0是第一列，3是第四列

嗯，明白，但是为什么"人事"的SHEET 同"FM 设施"构架一样，我用If sheet1(i, 3).Text = "垂求和" Then
        lastRow = i，统计不了垂求和，其他都没问题，请教哪里出现错误？

是不是要设计其他变量，比如T什么的