●EXCEL・VBAの教えてスレ Part2●

●EXCEL・VBAの教えて ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

126:デフォルトの名無しさん
 07/01/31 10:05:56 
（続き） 
 
Sub netstock() 
    Set objIE = CreateObject("InternetExplorer.application")  
    objIE.Visible = True  
    objIE.Navigate "https://www.deal.matsui.co.jp/ITS/login/MemberLogin.jsp" 
    call 時間待ち 
     
    '松井証券サイトのフォームへ、ワークシートに書かれたIDやパスなどのデータを流し込む 
　　objIE.document.forms("form").clientCD.Value = Worksheets("松井証券へ自動ログイン").Range("C2").Value 
    objIE.document.forms("form").passwd.Value = Worksheets("松井証券へ自動ログイン").Range("C3").Value 
    objIE.document.forms("form").easyTradeFlg(0).Checked = True 
    objIE.document.forms("form").submit     
    call 時間待ち 
     
     '松井証券ログイン後、会員ページからソフトウェアを起動するためのページへ移動 
　　    Set objFDOC = objIE.document.frames("LM").document  
        For n = 0 To objFDOC.Links.Length - 1  
            If objFDOC.Links(n).outerText = "ネットストック・ハイスピード" Then 
            objFDOC.Links(n).Click   
            Exit For   
        End If 
    Next n 
 
　　call 時間待ち 
     
    'ボタンを押してネットストックハイスピードを起動する 
    objIE.document.frames("CT").document.All("kidouButton").Click 
     
End Sub

次ページ