以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新手求救!!  (http://foxtable.net/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
--  
感谢狐爸!!!