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

lhdcxz · 发表于 2011-3-2 14:34

在另外的电脑上去试。

120HYH · 发表于 2011-3-2 14:37

大哥，帮我远程下，我加了你刚发件的QQ

120HYH · 发表于 2011-3-2 14:42

就是哪句代码出错，也没拷贝到生成的文件里去。

lhdcxz · 发表于 2011-3-2 14:50

我不会“远程帮助”

120HYH · 发表于 2011-3-2 14:55

下标越界，
Sheet1.Range("1:1").Copy Workbooks("发送" & i).Worksheets("sheet1").Range("a1") '标题，，，这个语句有错。

120HYH · 发表于 2011-3-2 15:05

是不是要引用什么东东？这样。真不懂。？

dsd999 · 发表于 2011-3-2 15:35

Sheet1.Range("1:1").Copy Workbooks("发送" & i & ".xls").Worksheets("sheet1").Range("a1") '标题

下面类似，都加上.xls

120HYH · 发表于 2011-3-2 16:42

大哥，加上是可以了。但是又出现这个问题。不明白，请再出手。

dsd999 · 发表于 2011-3-2 16:48

我这里没问题了。
把出错代码贴出来。

120HYH · 发表于 2011-3-2 16:59

Email.To = Sheet2.Range("d" & i) '要发往的地址
哈哈，今天辛苦你了。

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

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