- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何根据DateTimePicker控件值导出数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85061)
-- 发布时间：2016/5/16 21:49:00
-- 如何根据DateTimePicker控件值导出数据
红袍老师，我怎么根据DateTimePicker选择的日期导出数据到到一个Excel文档？
-- 发布时间：2016/5/16 21:53:00
--
Tables("表A").Filter = "你的筛选条件"
Tables("表A").SaveExcel("d:\\test.xls", "表A")
-- 发布时间：2016/5/16 22:08:00
--
我发现这样写不对啊，怎么改进啊？
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = Form("窗口2").Controls("DateTimePicker1").value
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
End If
-- 发布时间：2016/5/16 22:10:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "日期 = #" & Form("窗口2").Controls("DateTimePicker1").value & "#"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
End If
-- 发布时间：2016/5/16 22:30:00
--
如果导出某个时间段的数据呢，是不是改成这样：
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "发运日期 = #" & Form("窗口2").Controls("DateTimePicker1").value & "#" Andalso "发运日期 = #" & Form("窗口2").Controls("DateTimePicker2").value & "#"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
End If
-- 发布时间：2016/5/16 22:33:00
--
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter = "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Tables("FAJHB").Filter = "发运日期 >= #" & Forms("窗口2").Controls("DateTimePicker1").value & "# and 发运日期 <= #" & Forms("窗口2").Controls("DateTimePicker2").value & "#"
Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件
End If
-- 发布时间：2016/5/16 22:35:00
--
红袍老师，可以用between来吗？
-- 发布时间：2016/5/16 22:39:00
--
不可以，参考6楼。
-- 发布时间：2016/5/17 21:32:00
-- 回复：（大红袍）Dim dlg As New SaveFileDialog '定义...
红袍老师，我按你给的代码，发现导出的数据是空白的，且我的窗体中Table也是空白的，你看着怎么处理？
-- 发布时间：2016/5/17 21:33:00
--
在加载外部数据源前，我设置了只加载近两天的数据，按你的这个代码，会不会产生冲突啊
Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter = "Excel文件|*.xls" \'设置筛选器 If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Tables("FAJHB").Filter = "发运日期 >= #" & Forms("窗口2").Controls("DateTimePicker1").value & "# and 发运日期 <= #" & Forms("窗口2").Controls("DateTimePicker2").value & "#" Tables("FAJHB").SaveExcel(dlg.FileName, "FAJHB") \'保存文件 End If |
此主题相关图片如下：111111.png
[此贴子已经被作者于2016/5/17 21:34:43编辑过]