Macro/投稿/163

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22

' mkTable 起動マクロ
' sakura.exe と同じフォルダに下記EXEを配置
' http://www.vector.co.jp/soft/winnt/writing/se324403.html
 
Call Main()
 
Sub Main()
        Dim pathSakura
 
        pathSakura = getExePath()
        Set WshShell = CreateObject("WScript.Shell")
        if Len(pathSakura) > 0 then WshShell.Run( pathSakura & "mkTable.exe")
 
End Sub
 
Function getExePath()
        Dim sakuraPath, pos, sRet
        sRet = ""
        sakuraPath = ExpandParameter("$S")
        pos = instrrev(sakuraPath, "\")
        if pos > 0 then        sRet = Mid(sakuraPath, 1, pos )
        getExePath  = sRet
End Function