サクラエディタ

アクティブセルからサクラエディタ

var oExcel = GetObject("", "Excel.Application");
Editor.InsText(oExcel.ActiveCell.value);

サクラエディタからアクティブセル

var oExcel = GetObject("", "Excel.Application");
oExcel.ActiveCell.value = Editor.GetSelectedString(0);

vba側

Public Sub SakuraEditerOpen()
    Dim rc As Long
    rc = Shell("C:\Program Files (x86)\sakura\sakura.exe", vbNormalFocus)
    If rc = 0 Then
        MsgBox "起動に失敗しました"
    Else
        SendKeys "%{\}"
    End If
End Sub