wjm=ProjectPath & "生产单指令.xls"
wjm1=ProjectPath & "project\" & "生产单指令.xls"
MessageBox.Show("A--" & wjm1)
If FileSys.FileExists(wjm)=False Then wjm=wjm1
If FileSys.FileExists(wjm)=False Then
MessageBox.Show(wjm & " 找不到这个模板!")
Return
End If
MessageBox.Show("B--" & wjm)
If FileIsOpened(wjm)= True Then
MessageBox.Show(wjm & " 请关闭生产指令模板!")
Return
End If
报表名称=s("生产指令") & "生产指令"
If ck1.Checked=True Then
File_name=报表目录 & 报表名称 & ".pdf"
Else
File_name=报表目录 & 报表名称 & ".xls"
End If
If FileIsOpened(File_name)= True Then
MessageBox.Show(File_name & " 请关闭生产指令文件!")
Return
End If
l1.text=wjm
MessageBox.Show("C--" & wjm)
try
If FileIsOpened(wjm)= False Then
wb = App.WorkBooks.Open(wjm)
Else
wb = App.WorkBooks(wjm)
End If
ws = Wb.WorkSheets("生产指令")
App.DisplayAlerts = False
wb.saveas(File_name)
App.DisplayAlerts = True
catch ex As exception
msgbox(ex.Message)
finally
App.quit
End try
[此贴子已经被作者于2017/5/31 12:04:45编辑过]
加好友 
发短信
Post By：2017/5/31 11:53:00 [只看该作者]
