附加某些文件

我想build立以下：

• selectPDF打印工作表
• 创build文件夹和打印工作表 – 工程
• 将这些打印的文件附加到电子邮件 – 不起作用

文件名取决于单元格的值+date（最后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

这是一个简单的debugging方法。 尝试以下操作：

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

如果它工作，那么超级，你只需要find一种方法来表示文件夹。 如果它不起作用，那么忘记它，并尝试以另一种方式附加文件。