我的代码如下，就是想将报价单导出为EXECL表同时文件名称为项目名-客户名-报价回复价-今天日期.xls
Dim m As Integer =0
Dim r As Row
Dim t As Table = Tables("项目跟踪表.项目报价记录.报价产品")
With t
For i As Integer = 0 To .Rows.Count - 1
r = .Rows(i)
If r.Locked = False Then
m = m + 1
End If
Next
End With
If m>0 Then
MessageBox.Show("报价单中尚有未审核的数据,请先通过审核,才能导出报价单!", "提示")
e.Cancel = True
Else
Dim Book As New XLS.Book(ProjectPath & "Attachments\报价回复单模板2.xls")
Dim fl As String = ProjectPath & "Reports\报价回复单2.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0) '引用工作簿的第一个工作表
Sheet(7,3).Value = Date.Today
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
End If
加好友 
发短信
Post By：2014/4/22 10:09:00 [显示全部帖子]
