此主题相关图片如下:微信截图_20180528000744.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2018-5/20185272382998469.png)
点击按钮后提示如图,其他模块的正常,是否是代码问题?
Dim Book As New XLS.Book("E:\onedrive\Doosung\补货\补货模板.xlsx")
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xlsx" '设置筛选器
dlg.FileName = format(Date.today, "M-d") & ".xlsx"
If dlg.ShowDialog = DialogResult.Ok Then
FileSys.CopyFile("E:\onedrive\Doosung\补货\补货模板.xlsx", dlg.FileName, True)
Dim App As New MSExcel.Application
app.DisplayAlerts = False
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
Dim i,N As Integer
N=Wb.WorkSheets.Count
For i=1 To N
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(i)
ws.UsedRange.Formula = ws.UsedRange.Formula
Next
app.visible = True
Dim Proc As New Process
Proc.File = dlg.FileName
Proc.Start()
End If