Dim cj2 As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")
Dim y,m,d As Integer
Dim dt2 As Date
dt2 = vars("cc")
Dim dt1 As Date = #1/01/0001#
DateYMD(dt1,dt2, y, m, d)
y=y+1
m=m+1
d=d+1
Dim f0 As String = "E:\快盘\gs\公司" & y & "0" & m & ".xls" '快盘本月公司
Dim f1 As String = "E:\财务数据汇总\gs\公司.xls" '软件本月公司
Dim f2 As String = "E:\快盘\gs\公司" & y & "0" & m-1 & ".xls" '快盘上月公司
Dim f3 As String = "E:\财务数据汇总\gs\上月公司.xls" '软件上月公司
Dim f4 As String = "E:\快盘\excel" & y & "\集团汇总" & y & "0" & m & ".xls" '快盘本月集团汇总
Dim f5 As String = "E:\财务数据汇总\gs\本月集团汇总.xls" '软件本月集团汇总
Dim f6 As String = "E:\财务数据汇总\gs\公司新表.xls" '软件公司新表
If cj2.text = Nothing Then
messagebox.show("请输入日期!")
Else If not FileSys.FileExists(f0) Then
If filesys.fileexists(f4) Then
If MessageBox.Show("是否将链接粘贴回数值,估计每个表要20秒?","确 认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
Dim App As New MSExcel.Application
Dim Wb As MSExcel.Workbook = App.WorkBooks.open(f6)
For Each Ws As MSExcel.WorkSheet In Wb.WorkSheets
Ws.UnProtect
Dim Rg As MSExcel.Range = Ws.UsedRange
rg.Copy
rg.PasteSpecial(Paste:=MSExcel.XlPasteType.xlPasteValues, Operation:=MSExcel.XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
Next
wb.save
wb.close
App.Quit
FileSys.CopyFile(f1,f0,True)
messagebox.show("已在快盘生成公司" & y & "0" & m)
End If
End If
Dim Proc As New Process
Proc.File = (f1)
Proc.Start()
End If