主题：EXCEL自动更新表

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open("d:\test.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Dim path As String = ws.cells(2,2).Formula.split("]")(0).replace("=", "").replace("[","").replace("'", "")

wb.ChangeLink(Name:= _
        path, NewName:= _
        "C:\Documents and Settings\Administrator\My Documents\Book1.xls", Type:= _
        MSExcel.XlLinkType.xlLinkTypeExcelLinks)

App.Visible = True

Dim cj2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

If cj2.text = Nothing Then

    messagebox.show("请输入日期!")

Else

    Dim App As New MSExcel.Application

    app.displayalerts=False

    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open(ProjectPath & "\报财政\财政报表.xls")

    Dim Ws As MSExcel.WorkSheet

    Ws = Wb.WorkSheets("资产负债指标表")

    Dim rg1,rg2,rg3 As MSExcel.Range

    rg1 =  ws.cells(2,1)

    rg2 = ws.cells(7,7)

    rg3 = ws.cells(7,8)

    If rg1.value = cj2.text And rg2.value = 0 And rg3.value = 0 Then

        Dim Proc As New Process

        Proc.File = (ProjectPath & "\报财政\上报资产负债表.xls")

        Proc.Start()

    Else If rg2.value <> 0 And rg3.value <> 0 Then

        messagebox.show("未核对正确!")

    Else

        messagebox.show("未生成财政报表!")

    End If

End If

代码    Dim Wb As MSExcel.WorkBook = App.WorkBooks.open(ProjectPath & "\报财政\财政报表.xls")

    app.displayalerts=False不行？