Dim cj1 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")
Dim cj2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim y,m,d As Integer
Dim dt1 As Date = #1/01/0001#
DateYMD(dt1,cj2.text, y, m, d)
y=y+1
m=m+1
d=d+1
If cj1.text = Nothing Or cj2.text = Nothing Then
messagebox.show("请输入日期!")
Else
FileSys.CopyFile("E:\快盘\excel" & y & "\汇总单表" & y & "0" & m-1 & ".xls", ProjectPath & "\汇总单表\上月汇总单表.xls",True)
Dim f0 As String = "E:\快盘\gs\公司" & y & "0" & m & ".xls"
Dim f1 As String = "E:\快盘\excel" & y & "\集团汇总" & y & "0" & m & ".xls"
Dim f2 As String = "E:\快盘\gs\公司" & y & "0" & m-1 & ".xls"
If FileSys.FileExists(f1) Then
FileSys.CopyFile(f1, ProjectPath & "\gs\本月集团汇总.xls",True)
End If
If FileSys.FileExists(f2) Then
FileSys.CopyFile(f2, ProjectPath & "\gs\上月公司.xls",True)
End If
If not FileSys.FileExists(f0) Then
FileSys.CopyFile(ProjectPath & "\gs\公司.xls",f0,True)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open(f0)
Dim aa1() As String = {"日期","机关收支","月缴规费","规费收支","分户快报","资产负债表","利润及分配表","费用表 ","工资月报"}
Dim Ws(aa1.Length) As MSExcel.WorkSheet
For i1 As Integer = 1 To 9
Ws(i1) = Wb.WorkSheets(aa1(i1-1))
Next
ws(1).cells(5,6) = cj1.text
ws(1).cells(7,6) = cj2.text
For i1 As Integer = 1 To 9
ws(i1).UsedRange.Formula = ws(i1).UsedRange.Formula
Next
wb.saveas(f0)
wb.close
App.Quit
End If
Dim Proc As New Process
Proc.File = (f0)
Proc.Start()
End If
为什么会出现无效索引？
加好友 
发短信
Post By：2014/8/28 9:23:00 [只看该作者]
