Jestem w trakcie tworzenia programu, który napisałem przy użyciu excel vba szybciej.

Program pobiera dane giełdowe z asx.

Chcę uzyskać dane z 2 adresów URL:

MÓJ KOD

url2 = "http://ichart.finance.yahoo.com/table.txt?s=bhp.ax"

Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")

XMLHTTP.Open "GET", url2, False

XMLHTTP.send

result = XMLHTTP.responseText

ActiveCell.Value = result

Set XMLHTTP = Nothing

URL 1. http://ichart.finance.yahoo.com/table.txt?s=bhp.ax

MÓJ PROBLEM.

Ten plik jest bardzo duży. Pomyślałem, że mogę po prostu zapisać wynik tych żądań http i wydrukować je w oknie debugowania lub bezpośrednio w komórce. Jednak wydaje się, że te metody odcinają część danych?

jeśli pobiorę plik txt z url 2 w notatniku ++, to ma on prawie 200 000 znaków, ale przewyższa on 3-5 000 znaków. Jaki jest najlepszy sposób na obsłużenie tych żądań, aby wszystkie dane zostały przechwycone i mogę to wszystko przeanalizować później?

URL 2. z pierwszego adresu URL chcę tylko danych JSON, które wynikają z zapytania YQL.

MÓJ PROBLEM

Nie mam pewności, jak uzyskać dane json, gdy podążasz za poniższym linkiem i / lub jak je przechowywać, tak aby nie wystąpił problem z adresem URL 1 (brakujące dane).

http://developer.yahoo.com/yql/console/?q=select%20symbol%2C%20ChangeRealtime%20from%20yahoo.finance.quotes%20where%20symbol%20in%20%28%22YHOO%22%2C%22AAPL % 22% 2C% 22GOOG% 22% 2C% 22MSFT% 22% 29% 20 |% 20sort% 28field% 3D% 22ZmieńRealtime% 22% 2C% 20stopnia% 3D% 22true% 22% 29% 0A% 09% 09 i env = http% 3A% 2F% 2Fdatatables.org% 2Falltables.env # h = wybierz% 20*% 20z% 20yahoo.finance.quotes% 20where% 20symbol% ​​20in% 20% 28% 22bhp.ax% 22% 29

Wielkie dzięki, Josh.