Dim Book As New XLS.Book("E:\OneDrive\Doosung\补货\补货模板.xlsx") Dim dlg As New SaveFileDialog '定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xlsx" '设置筛选器 dlg.FileName = format(Date.today, "M-d") & ".xlsx" Dim file As String = dlg.FileName If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮 book.Build() book.save(dlg.FileName) Dim Proc As New Process Proc.File = dlg.FileName Proc.Start() End If
加好友 
发短信
Post By：2018/5/28 9:21:00 [显示全部帖子]
