用VBA做的“发送邮件不同附件”

Excel2119 · 发表于 2012-3-20 22:42

高手，牛！

zuiaidh2004 · 发表于 2012-3-21 10:36

路过学习。。。

tcl1869 · 发表于 2012-3-30 20:28

学习了看下

wh1272 · 发表于 2012-4-3 14:01

实用，正好用到！

kunlunshandian · 发表于 2012-4-21 09:56

7楼怎么一双击添加附件就死了呢，

gangone · 发表于 2012-4-22 00:18

学习中，留个记号

ygvb · 发表于 2012-9-25 12:11

谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢谢

huguifang · 发表于 2012-12-24 09:01

学习中，留个记号

cqhcli · 发表于 2013-3-13 15:31

谢谢楼主哈

蔡武 · 发表于 2013-6-18 11:50

发送邮件不同附件主文件（更新）.zip 按钮运行的时候不行。发送不了。出现调试代码
Sub 按钮12_单击()
Dim Arr, brr(), i%, f$, p$
p = ThisWorkbook.Path & "\"
Arr = Range([a2], [a65536].End(3))
ReDim brr(1 To UBound(Arr), 1 To 1)--显示这行不行
For i = 1 To UBound(Arr)
f = Dir(p & Arr(i, 1) & ".*")
If f <> "" Then brr(i, 1) = Left(Right(f, Len(f) - InStrRev(f, "\")), Len(Right(f, Len(f) - InStrRev(f, "\"))) - 4)
'源代码If f <> "" Then brr(i, 1) = p & f
Next i
[g2].Resize(i - 1) = brr
End Sub

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

[分享] 用VBA做的“发送邮件不同附件”