Vba 如何删除重复的set语句？

最近，我学习VBA来自动化一些solidworks工作。我编写了以下代码

Option Explicit

Dim swApp As SldWorks.SldWorks

Sub main()
    Set swApp = Application.SldWorks
    Call createNewPartDoc
    'Some code here
End Sub

Sub createNewPartDoc()
    Set swApp = Application.SldWorks
    'Some code here for create new part document
End Sub

然后，我注意到一些重复的代码

---

如何删除createNewPartDoc子例程或其他子例程中的重复代码（

Set swap=Application.SldWorks

）

Option Explicit

Sub main()
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    Call createNewPartDoc(swApp)
    'Some code here
End Sub

Sub createNewPartDoc(App As SldWorks.SldWorks)
    'Some code here for create new part document
End Sub

---

如果

main

和

createNewPartDoc

位于同一模块中，则您不需要，您可以从

Sub-createNewPartDoc（）中删除

由于已在调用routineI的

main

中设置，我个人不会使用全局对象

swap

来存储对已全局对象

应用程序的引用。SldWorks

。