主题：EXCEL自动更新表

这样也行 MessageBox.Show( file & "导入报表日期不符!")

有什么区别？

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

If filesys.fileexists(f4) Then