2014-12-18 5 views
0

매크로를 통해 웹 사이트에서 양식을 실행할 수있는 곳을 쓰고 있습니다. 인터넷 익스플로러를 열어 모든 변수를 올바르게 전달할 수 있지만 제출할 때가되면 조금 잃어 버립니다. - VBA를 사용하여 웹 사이트의 버튼을 클릭하십시오.

내가 클릭하여 원하는 웹 사이트의 요소는 제목의 버튼입니다 나는이 문제가

<input type="submit" name="submit" value="Buy"> 

을 "구매"

1) 내가 모르는 방법을 제대로 VBA 2) 바로 옆에 판매 (내가하고 싶은 것의 정반대을 수행하는 버튼이있다)와 그의 요소 내에서이 참조하는 것은 :

<input type="submit" name="submit" value="Sell"> 

누구든지 '구매'버튼을 누르기에 적합한 코드를 알고 있습니까?

Dim IE As Object 
Set IE = New InternetExplorer 
IE.Visible = True 
IE.Navigate "somewebsite.com" 

Do While IE.Busy: DoEvents: Loop 
Do While IE.ReadyState <> 4: DoEvents: Loop 
IE.Document.All("resourceoption").Value = "item" 
IE.Document.All("amount").Value = 1 
IE.Document.All("priceper").Value = 99 
Do While IE.Busy: DoEvents: Loop 
Do While IE.ReadyState <> 4: DoEvents: Loop 
+0

을 필요로 수행

여기에 지금까지 내 코드입니다. 나는이 시트를 사용하는 유일한 사람이 될 것이며, 그것은 매우 clunky이며 현재 인터페이스를 통해 약 20 번의 클릭이 필요하기 때문에 구매/판매 프로세스를 간소화하려는 시도입니다. 이것은 본질적으로 악의적 인 것이 아니며 내 계정 – kamelkid2

+0

[VBA를 온라인으로 입력하고 양식을 제출할 수 있습니다]의 하드 코드 된 것입니다 (http://stackoverflow.com/questions/17409613/vba-to-enter-data-online-and). -submit-form) – SQLMason

+0

@dan - 이것은 아주 가깝고 이전 웹 사이트에 데이터를 전달하는 것과 관련하여 이전 주제를 살펴 보았습니다.하지만이 요소의 이름과 관련하여 특별히 문제가 있습니다. 이 링크 (또는 내가 찾은 다른 어떤 것도)는이 방식으로 명명 된 버튼을 처리합니다 – kamelkid2

답변

0
With IE.document 

    Set elems = .getElementsByTagName("input") 
    For Each e In elems 

     If (e.getAttribute("value") = "Buy") Then 
      e.Click 
      Exit For 
     End If 

    Next e 

End With 

위의 코드 조각 작업이 내가 개발하지 않는 게임이다

관련 문제