以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  新手求救！！  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=18096)
--  作者：chuangxinyang
--  发布时间：2012/4/1 22:22:00
--  新手求救！！

图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看



我想设一个按钮把[数量]不为空的筛选出来，以[分类]自由合并，导出以“日期+‘申购单’”命名的excel，然后发送到email。
应该怎么搞？我是新手，请尽量详细，多写了！！
[此贴子已经被作者于2012-4-1 22:23:47编辑过]
--  作者：狐狸爸爸
--  发布时间：2012/4/2 8:54:00
--  
Tables("表名").Filter = "数量 is Not Null"
Tables("表名").SaveExcel("c:\\data\\") & Format(Date.Today,"yyyyMMdd") & "申购单.xls","表名")
Dim m As New MailSender
m.Host = "smtp.21cn.net"
m.Account = "xiaoliu"
m.Password = "xiaoliu1234567"
m.From = "xiaoliu@Sina.com.cn"
m.To = "meili@Sina.com.cn"
m.Title = "初稿已经完成"
m.Content = "附件为初稿, 请您审阅!"
m.AddAttachments("c:\\data\\") & Format(Date.Today,"yyyyMMdd") & "申购单.xls")
m.SendAsync()
 
--  作者：chuangxinyang
--  发布时间：2012/4/2 23:44:00
--  
感谢狐爸！！！