把各个用户的信息发送到它的邮箱

dodo2000 · 发表于 2011-1-30 21:14

又多学一手儿。谢谢！

120HYH · 发表于 2011-3-1 14:46

学习大师的作品

120HYH · 发表于 2011-3-1 21:27

为什么发送不了啊。大师

120HYH · 发表于 2011-3-1 21:45

错误是，请见图。改下总表的资料就不行，应如何设置啊。

120HYH · 发表于 2011-3-1 21:46

Sheet1.Range("j1:j65536").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet2.Range( _
"A1"), Unique:=True '形成客户名字，用作对话框选择

jygzcj · 发表于 2011-3-1 22:23

我的也这句出错。请楼主修正一下。就好了。

lhdcxz · 发表于 2011-3-1 22:53

现在的J 列是客户的名字，也是对话框的下拉表的数据源，我再看看。以前没有问题。重新安装系统后出现。现在原因不清楚。应急改为
Sheets("总表").Columns("J:J").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("AG1"), Unique:=True
Columns("AG:AG").Cut
Sheets("辅助").Select
Range("A1").Select
ActiveSheet.Paste

[ 本帖最后由 lhdcxz 于 2011-3-1 23:17 编辑 ]

120HYH · 发表于 2011-3-1 23:06

楼主终于来了。哈哈

120HYH · 发表于 2011-3-1 23:09

http://club.excelhome.net/viewth ... &extra=page%3D1

120HYH · 发表于 2011-3-1 23:25

改了，说是下标越界。

		自动登录	找回密码
密码			免费注册

[分享] 把各个用户的信息发送到它的邮箱

这个出错。

还有这个也请楼主一并解决。