Dim Book As New XLS.Book(ProjectPath & "汇总单表\汇总单表.xls")
Dim Sheet1 As XLS.Sheet = Book.Sheets("日期")
Dim cj As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
If cj.Text =Nothing Then
messagebox.show("请在导入月终日期输入日期!")
Else
Sheet1(3,3).Value = cj.text
Sheet1(6,3).Value = cj.text
Book.Save(ProjectPath & "汇总单表\汇总单表1.xls")
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open(ProjectPath & "汇总单表\汇总单表1.xls")
Dim Ws1 As MSExcel.WorkSheet = Wb.WorkSheets("日期")
Dim Ws2 As MSExcel.WorkSheet = Wb.WorkSheets("分户快报")
Dim Ws3 As MSExcel.WorkSheet = Wb.WorkSheets("资产负债表")
Dim Ws4 As MSExcel.WorkSheet = Wb.WorkSheets("利润及分配表")
Dim Ws5 As MSExcel.WorkSheet = Wb.WorkSheets("费用表")
Dim Ws6 As MSExcel.WorkSheet = Wb.WorkSheets("附列资料")
Dim Ws7 As MSExcel.WorkSheet = Wb.WorkSheets("工资月报")
Dim Ws8 As MSExcel.WorkSheet = Wb.WorkSheets("茂名快报")
Dim Ws9 As MSExcel.WorkSheet = Wb.WorkSheets("分单位")
Dim Ws10 As MSExcel.WorkSheet = Wb.WorkSheets("资产负债指标表")
Dim Ws11 As MSExcel.WorkSheet = Wb.WorkSheets("利润及相关指标表")
ws1.UsedRange.Formula = ws1.UsedRange.Formula
ws2.UsedRange.Formula = ws2.UsedRange.Formula
ws3.UsedRange.Formula = ws3.UsedRange.Formula
ws4.UsedRange.Formula = ws4.UsedRange.Formula
ws5.UsedRange.Formula = ws5.UsedRange.Formula
ws6.UsedRange.Formula = ws6.UsedRange.Formula
ws7.UsedRange.Formula = ws7.UsedRange.Formula
ws8.UsedRange.Formula = ws8.UsedRange.Formula
ws9.UsedRange.Formula = ws9.UsedRange.Formula
ws10.UsedRange.Formula = ws10.UsedRange.Formula
ws11.UsedRange.Formula = ws11.UsedRange.Formula
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = (ProjectPath & "汇总单表\汇总单表1.xls")
Proc.Start()
End If
其中汇总单表链接表外数据，每次打开时都要求自动更新的，因而打开时出现错误报表，并自动添加了一个表ONGRGUT,不知如何修改呢？
加好友 
发短信
Post By：2014/8/26 15:56:00 [只看该作者]
