[ellhadi39]

إقتباس :السلام عليكم

بعد ابداع الاخوان معك

فيه طريقه سهله لكن لابد ان تتأكد من ان الموقع رسمي ولن يتغير
ضع الأداة
Microsoft Internet Transfer Control
وضع
ListBox

ثم ضع الكود التالي في زر كومند

كود:

Dim W As String Dim A() As String Dim Q() As String W = Inet1.OpenURL("http://www.goldpricedata.com") A = Split(W, "<td>") For X = 0 To UBound(A) Q = Split(A(X), "</td>") If Left(Q(0), 1) <> "<" Then List1.AddItem Left(Q(0), 18) Next X

طبعا بعد ضغط الزر انتظر قليلا وسوف ترا النتائج في الليست بوكس
وترجم الكود حسب احتياجك
بالتوفيق ,,,

السلام عليكم
يااخي بارك الله فيك ومشكوررر الكود الذي اعطيتنا اياه يشتغل على تمام
ممكن تشرحه الكود من فضل