| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 代码修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109975) |
| -- 作者：jick0526 -- 发布时间：2017/11/23 20:03:00 -- 代码修改 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.FileName = CurrentTable.Name & Format(Date.Now, "yyyyMMdd") & ".xls" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 CurrentTable.SaveExcel(dlg.FileName, CurrentTable.Name) \'保存文件 End If 老师，请问下，上面的代码是针对当前表保存为EXCEL格式的，我如果想改为批量保存当前软件里所有的表，该怎么改代码，谢谢！
|
| -- 作者：有点甜 -- 发布时间：2017/11/23 21:29:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.FileName = Format(Date.Now, "yyyyMMdd") & ".xls" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 For Each t As Table In Tables t.SaveExcel(dlg.FileName, t.Name) \'保存文件 Next End If |
| -- 作者：jick0526 -- 发布时间：2017/11/24 22:17:00 -- 老师，上面的代码执行之后软件直接卡死 |
| -- 作者：jick0526 -- 发布时间：2017/11/24 22:21:00 -- 老师，或者能不能帮我改下，按下按钮后，会自动保存表1表2表3这三个表，谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2017/11/24 22:26:00 -- 如果数据比较多，全表导出当然会卡 Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "Excel文件|*.xls" \'设置筛选器 dlg.FileName = Format(Date.Now, "yyyyMMdd") & ".xls" dim ns() as string = {"表1","表2","表3"} If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
For Each n As Tstring In ns tables(n).SaveExcel(dlg.FileName, n) \'保存文件 Next End If [此贴子已经被作者于2017/11/24 22:26:02编辑过]
|
| -- 作者：jick0526 -- 发布时间：2017/11/25 12:31:00 -- For Each n As Tstring In ns 老师，试了下还是不行，提示说还没定义，上面这行代码出错
|
| -- 作者：有点蓝 -- 发布时间：2017/11/25 14:05:00 -- 笔误，改改 For Each n As string In ns
|