以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  找不到保存的文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56936)
--  作者：xiaoyongxg2
--  发布时间：2014/9/15 17:12:00
--  找不到保存的文件
下面代码哪写的不对了？怎么找不到保存的文件？甜老师？
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog 
dlg.Filter= "excel|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls")
Dim fl As String = "成绩表.xls"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
MessageBox.Show("保存成功" )
End If
--  作者：有点甜
--  发布时间：2014/9/15 17:16:00
--  

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "excel|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    MessageBox.Show("你要保存为:" & dlg.FileName,"提示") \'提示用户选择的文件
    Dim Book As New XLS.Book(ProjectPath & "Attachments\\模板.xls")
    Book.Build() \'生成细节区
    Book.Save(dlg.FileName) \'保存工作簿

    MessageBox.Show("保存成功" )
End If
--  作者：xiaoyongxg2
--  发布时间：2014/9/15 17:24:00
--  
崇拜！神一般的存在！真心服