Automatische Aktualisierung von Realtimekursen in Excel

ImanI

Versuche gerade vergeblich eine automatische Aktualisierung von Realtimekursen in Excel zu realisieren. Also, der Kurs einer bestimmter Aktie soll in einer Excel Zelle immer im auf dem aktuellen Stand gehalten werden. Bis jetzt hab ich immer mit Copy&Paste gearbeitet, um denn aktuellen Kurs in Excel zu haben, aber nach kurzer Zeit ist der Kurs dann schon wieder veraltet, was auf Dauer wirklich nervig wird. Ich hoffe, ihr habt einen Ansatz oder eine Idee wie ich mein Problem lösen kann.

Gerard

du könntes ein Makro schreiben, VBA ist mächtig genug für, wobei makros das problem haben das du dann auf das office programm angewissen bist, migration zu openoffice wird dann eine quall

ps. ich wäre in der lage sowas zu coden, kannst mich erreichen unter http://www.c-plusplus.net/forum/profile.php?mode=email&u=3630

Erhard Henkes

MFC-Code (MSVC++ 6.0)

void CHTTP_GetDlg::OnButtonStart() 
{
    CInternetSession is(_T("HTTPGET"));
    CHttpConnection *pHC = NULL;
    CHttpFile *pHF = NULL;
    pHC = is.GetHttpConnection(_T("finance.yahoo.com"));

	CString s;
	TCHAR r[10];
	TCHAR c;
	UINT nIndex = 0;

	CString p[10];
	CString a[100];
	CString b[100];
	p[0] = "    ";
	a[0] = "AMD";  b[0] = "AMD               "; 
	a[1] = "INTC"; b[1] = "Intel             ";
	a[2] = "IBM";  b[2] = "IBM               ";
	a[3] = "CSCO"; b[3] = "Cisco             ";
	a[4] = "DNA";  b[4] = "Genentech         ";
	a[5] = "YHOO"; b[5] = "Yahoo             ";
	a[6] = "ERTS"; b[6] = "Electronic Arts   ";
	a[7] = "MSFT"; b[7] = "Microsoft         ";
	a[8] = "TNOX"; b[8] = "Tanox             ";
	a[9] = "DCX" ; b[9] = "Daimler-Chrysler  ";

	for(int x=0; x<10; x++)
	{
		pHF = pHC->OpenRequest(_T(""), _T("/q?d=t&s="+a[x]), NULL, 0, NULL, NULL, 0);
		pHF->SetReadBufferSize(40960);
		pHF->SendRequest();

		nIndex = 0;
		s="";
		//r="";
		while (pHF->Read(&c, 1) == 1) 
		{
			nIndex++;
			m_zaehler=nIndex;
			s.Insert(nIndex,c);

			if(s.Right(7)=="Bid<br>")
			{
				pHF->ReadString(r,4);
				m_string += "\r\n" + b[x] + " Bid: " + r;
			}

			if(s.Right(7)=="Ask<br>")
			{
				pHF->ReadString(r,4);
				m_string += "\t" + p[0] + "Ask: " + r;
			}

			if(s.Right(7)=="P/E<br>")
			{
				pHF->ReadString(r,6);
				m_string += "\t" + p[0] + "KGV: " + r;
			}

			UpdateData(FALSE);
			UpdateWindow();
		}
	}

	pHF->Close();
    pHC->Close();

	delete pHF;
    delete pHC;
}

Code ist schon älter, muss bezüglich Internetseite aktualisiert werden, damit er etwas findet. zeigt aber das Prinzip.