벚꽃 편집기가 여러 개의 매크로 논리를 하나의 파일로 정리하는 방법 2

개시하다


여기.에서 설명한 방법에는 Editor 객체에 액세스할 수 없는 치명적인 문제가 있습니다.
다른 방법을 생각해 봤어요.

메서드


본체의 파일include를 포장용 vbs 파일에 넣기
본체 샘플
Test.vbs
Option Explicit
Sub Test1()
    Call MsgBox("Test1が実行されました")
End Sub

Sub Test2()
    Call MsgBox("Test2が実行されました")
End Sub
포장용 서류의 샘플
Test1.vbs
Option Explicit
Dim objShell, objFSO
Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = objFSO.GetParentFolderName(Editor.ExpandParameter("$M"))
With objFSO.OpenTextFile("Test.vbs")
    ExecuteGlobal .ReadAll
    .Close
End With

Call Test1()
Test2.vbs
Option Explicit
Dim objShell, objFSO
Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = objFSO.GetParentFolderName(Editor.ExpandParameter("$M"))
With objFSO.OpenTextFile("Test.vbs")
    ExecuteGlobal .ReadAll
    .Close
End With

Call Test2()

매크로에 패키지 파일 등록


좋은 웹페이지 즐겨찾기