| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 按模板输出excel文件： (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88859) |
| -- 作者：wangjh8888 -- 发布时间：2016/8/10 16:43:00 -- 按模板输出excel文件： 按模板输出excel文件： Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog dlg.Title="请选择Excel模板" dlg.InitialDirectory=ProjectPath & "Attachments\\" dlg.Filter= "Excel模板|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim Book As New XLS.Book(dlg.FileName) Dim dlg_save As new SaveFileDialog dlg_save.Title="请选择保存文件" dlg_save.InitialDirectory=ProjectPath & "Reports\\" dlg_save.Filter= "Excel文件|*.xls" \'设置筛选器 dlg_save.FileName=e.Form.Controls("TB_kmmc1").Value If dlg_save.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim fl As String = dlg_save.FileName Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start() End If End If 默认指定模板 改成这样 为什么不行啊 Dim Book As New XLS.Book(“d:\\text\\text.xls") Dim dlg_save As new SaveFileDialog dlg_save.Title="请选择保存文件" dlg_save.InitialDirectory=ProjectPath & "Reports\\" dlg_save.Filter= "Excel文件|*.xls" \'设置筛选器 dlg_save.FileName=e.Form.Controls("TB_kmmc1").Value If dlg_save.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim fl As String = dlg_save.FileName Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start() End If |
| -- 作者：大红袍 -- 发布时间：2016/8/10 16:50:00 -- 代码没问题啊。提示什么错啊。 |
| -- 作者：wangjh8888 -- 发布时间：2016/8/10 16:57:00 -- 打开存储文件失败。 |
| -- 作者：大红袍 -- 发布时间：2016/8/10 17:39:00 -- 这个文件，不存在
d:\\text\\text.xls
请确认你没写错路径。 |
| -- 作者：wangjh8888 -- 发布时间：2016/8/10 20:06:00 -- 哇 终于找到原因了 ： 模板文件名不能含有中文符号，如（） |