| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]导出自动命名文件名，不要人工输入文件名。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76134) |
| -- 作者：huhu -- 发布时间：2015/10/22 11:55:00 -- [求助]导出自动命名文件名，不要人工输入文件名。 导出自动命名文件名，格式是user.name加上原execl的文件名。不要人工输入文件名。 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.SourceTableName = "订单" \'指定导出表 ex.FilePath = dlg.FileName \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Export() \'开始导出 End If
|
| -- 作者：大红袍 -- 发布时间：2015/10/22 12:03:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "excel文件|*.xls" \'设置筛选器 dlg.FileName = user.name & "订单.xls" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim ex As New Exporter ex.SourceTableName = "订单" \'指定导出表 ex.FilePath = dlg.FileName \'指定目标文件 ex.Format = "Excel" \'导出格式为Excel ex.Export() \'开始导出 End If |
| -- 作者：huhu -- 发布时间：2015/10/22 12:08:00 -- 导入成功和导出成功如何判读？ |
| -- 作者：大红袍 -- 发布时间：2015/10/22 14:26:00 -- 如果没有报错，就是导出导入成功。
ex.Export() \'开始导出 |