Excel 如何在sub中包含用户定义的函数MakeFolderIfNotExist？

如何将Ron de Bruin的

MakeFolderIfNotExist

代码包含到我的

export\u PDF

sub中

如果我在上面创建了一个额外的子节点，它将被忽略，如果我将它包含在我的原始子节点中，我将收到一条错误消息，该子节点未定义，并且作为一个函数它也不工作

Sub-als\u PDF\u speichern\u mac（）
ChDir“/”和ActiveWorkbook.Path
ActiveSheet.ExportAsFixedFormat类型：=xlTypePDF，文件名：=_
“/”&ActiveWorkbook.Path&“/Rechnungen（PDF）/Rechnung\ux”&ActiveSheet.Range（“D11”）&.PDF”_
，质量：=xlQualityMinimum，IncludeDocProperties:=True，忽略打印区域_
：=False，OpenAfterPublish:=True
端接头

罗恩潜水艇（定制）：
[来源：http://www.rondebruin.nl/mac/mac010.htm]

子MakeFolderTest2（）
MakeFolderIfNotExist（ThisWorkbook.Path&Application.PathSeparator&“Rechnungen（PDF）”）
端接头

您似乎正在引用此网页：

（考虑到对侵犯版权的担忧，我不会在这里重新发布代码。）

---

您需要的代码的唯一部分是从

函数

到

结束函数

的所有内容。复制该部分并将其粘贴到VBA模块中。完成此操作后，可以从导出PDF的Sub调用MakeFolderIfNotExist。您不需要Ron的测试接头。

从

功能

到

结束功能

的所有内容都必须复制并粘贴到VBA模块中。然后您可以从导出PDF调用它。你不需要测试潜艇。哦，就像我想的那样愚蠢，它正在工作。。。非常感谢@如果你想把它写在下面作为答案，我可以接受它作为结束问题的正确答案。谢谢@Touminator。我已经这样做了。