一个关于OutLook使用VBA添加附件的奇怪问题

andiy90

求教各位老师，使用
Set oOutlookApp = GetObject(, "Outlook.Application")


Set oItem = oOutlookApp.CreateItem(olMailItem)

with oItem
    .To = Dic(3, j)
    ws = Dic(i, j)
    .Attachments.Add ws
end with

这样的语句添加附件就会失败，邮件创建不成功，无法.Display,也无法.Send
上述Dic（）是一个数组，经测试，数组取值没有错误，MSGBOX验证过。
但是给.Attachments.Add “c:\1234.xlsx” 这样的直接字符串路径（从数组内容中复制黏贴的，排除数组内容存在不可见字符）又没问题

请教老师，这个是为啥啊，有木有啥解决办法？

PS：电脑加密无法上传附件，各位老师见谅

闻启学

Ws 无定义变量类型 试一试   ws = cstr(Dic(i, j))