s-note

# -*- coding: utf-8 -*-

def app_start1(app1,path1,t1):#アプリの起動および接続
    import time    
    try:
        app1.Connect(path = path1)
    except:
        app1.Start(cmd_line = path1)
        time.sleep(t1)
        app1.Connect(path = path1)

s-note

Sub yahoosearch1()    'VBAでIEを起動しエクセルのセルA1～A10に入力したキーワードでYahoo検索

    Dim ie As InternetExplorer
    Dim Text1(10) As String
    Dim Text2 As String
      
    '別プログラム(IE)の起動
    Set ie = CreateObject("InternetExplorer.Application")
    
    '可視化

s-note

# -*- coding: utf-8 -*-

def app_start1(app1,path1,t1):#アプリの起動および接続
    import time    
    try:
        app1.Connect(path = path1)
    except:
        app1.Start(cmd_line = path1)
        time.sleep(t1)
        app1.Connect(path = path1)