Question

我想构建以下内容：

选择用于pdf打印的工作表 - 作品
创建文件夹和打印页 - 工作
将这些打印的文件附加到电子邮件中 - 不起作用

文件名取决于单元格值+日期（文件名中的最后一个Range.Value），有没有办法让这些pdf附加？

我尝试了以下操作，但这不起作用

'code ...


Dim myDir as String, mySht as String

myDir = "C:\Users\ihlin\OneDrive\Düngung\" & Worksheets("Drip_Drain_Eingabe").Range("s13").Text
mySht = Worksheets("Druckansicht_mmol").Range("c2").Text & "_" & Worksheets("Druckansicht_mmol").Range("K2").Text & "_" & Worksheets("Druckansicht_mmol").Range("P2").Text & "_" & "mmol_" & Worksheets("Druckansicht_mmol").Range("T1").Text

`code ... ...

If CheckBox1 = True Then
.Attachments.Add myDir & "\" & mySht & ".pdf"
End if

If CheckBox2 = True Then
.Attachments.Add myDir & "\" & mySht2 & ".pdf"

If CheckBox1 = True Then
.Attachments.Add myDir & "\" & mySht3 & ".pdf"
End if

If CheckBox1 = True Then
.Attachments.Add myDir & "\" & mySht4 & ".pdf"
End if

发布需要永远，并以崩溃的Excel结束。任何帮助将不胜感激。

Answer 1

这是一个简单的调试方法。请尝试以下方法：

.Attachments.Add "c:\somehardcoded\address\ofthe\worksheet\folder\file.pdf"

如果它有效，那么超级，您只需要找到一种表示文件夹的方法。如果它不起作用，那就忘记它并尝试以另一种方式附加文件。

附加某些文件

1 个答案: