2012-12-07 2 views
1

지금까지이 문제가 발생했습니다. Chrome 브라우저 만 열립니다 (비어 있음) & URL을 고려하지 않습니다. 쉘 스크립트에 어떤 변화를 주어야합니까?VBA가 포함 된 Chrome의 공개 소스 코드

Sub ViewSource() 
    Dim chromePath As String 
    chromePath = """C:\Program Files\Google\Chrome\Application\chrome.exe""" 

    Shell (chromePath & "view-source:http://search.yahoo.com/search;_ylt=A0oGdXgbd8FQJXoAuj6l87UF?p=cars%20parts&fr=sfp&pqstr=car%20parts") 
End Sub 

고마워요!

+2

http://stackoverflow.com/questions/5915325/open-google-chrome-from-vba-excel – dee

+0

@Daniel 내가 수 있어요 페이지의 URL을 볼 수 있지만 소스 코드를 볼 필요가 있습니다. – User124726

+2

exe ​​뒤에 공백이 누락 되었습니까? - 명령 행에서 실행할 때조차도 작동하지 않는 것 같습니다 ... –

답변

0

cmd 프롬프트에서 Chrome.exe에 여러 가지 플래그를 시도했지만 작동하지 않습니다.

하지만 당신은 소스 코드를이 방법을 얻을 수 있습니다 :

Sub t() 
GetSource "http://search.yahoo.com/search;_ylt=A0oGdXgbd8FQJXoAuj6l87UF?p=cars%20parts&fr=sfp&pqstr=car%20parts" 
End Sub 

Function GetSource(url As String) As String 

With CreateObject("MSXML2.XMLHTTP") 
    .Open "GET", url 
    .Send 
    Do: DoEvents: Loop Until .Readystate = 4 
    GetSource = .responsetext 
    .abort 
End With 
관련 문제