作者kiss970621 (Johnson)
看板Office
标题[问题] Excel VBA 寄信给对应的收件人
时间Sat Apr 30 16:16:19 2016
(若是和其他不同软体互动之问题 请记得一并填写)
软体:excel 2010
小弟想写一个vba将固定的格式内容寄信给对应的人
原始档长这样
https://imgur.com/WMgFAnF
收件人都在在F栏
要把表头加上第一列的内容寄给第一列的收件人(
[email protected])
像这样
https://imgur.com/hk4IvVd (左图就是AAA收到的内容)
然後表头不动 只加上第二列的内容寄给第二列的收件人(
[email protected])
像这样
https://imgur.com/3NI44Ka (左图就是BBB收到的内容)
执行巨集後 一直依此类推执行到最後一列
该如何写呢?感谢各位神人
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 36.226.171.203
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1462004182.A.A78.html
※ 编辑: kiss970621 (36.226.171.203), 04/30/2016 16:18:44
2F：→ kiss970621: .To = r.Offset(, 5) 这部分有点不懂 5是移动到F栏位 05/01 01:28
3F：→ kiss970621: 那逗号前面的数值应该填多少? 05/01 01:29
4F：→ kiss970621: 不管填多少执行都会跑出 执行阶段错误 05/01 01:39
5F：→ kiss970621: '-2147417851(80010105)': 05/01 01:40
6F：→ kiss970621: 'To'方法('MailItem'物件) 失败 05/01 01:40
7F：→ kiss970621: 麻烦s大解惑>< 05/01 01:41
8F：→ soyoso: 0或省略表示列的部分无移动 05/01 01:44
9F：→ kiss970621: 执行到 .To = r.Offset(, 5)就会跑出如上说的错误 05/01 01:49
10F：→ kiss970621: 我有哪个地方没有调整到吗?>< 05/01 01:50
13F：→ soyoso: 因无win10，原po试试看是否可解决 05/01 02:05
14F：→ kiss970621: 成功了!!!!soyoso大太神了....小弟感激不尽 05/01 11:13