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")
其中财政报表每次打开都更新链接,如何做到不用提示更新?用 Dim App As New MSExcel.Application
app.displayalerts=False不行?