دانلود اطلاعات سایت بورس با یک دکمه ورژن جدید

[امين اسماعيلي]

با درود
فایل زیر با یک دکمه اطلاعات سایت بورس رو براتون دانلود میکنه در هر زمان و به تفکیک زمان و تاریخ برای شما در فولدری که خودتون مشخص میکنین براتون دخیره میکنه - کافی است فقط ادرس فولدر را وارد کنید.

نام ذخیره شده به فرمت مثلا

 2014-07-06 19-11-32

است که زمان ساعت 7 و 11 دقیقه و 32 ثانیه و تاریخ هم 6 ام جولای 2014 است و .......

[hoosein]

تشکر آقای اسماعیلی
اگه روشی هم برای آپدیت پرتفوی از سایت بورس دارید ممنون میشم اموزش بدین

[امين اسماعيلي]

با درود
والا در مورد چیزی که گفتین اطلاع خاصی ندارم (پرتفوی) اما هر گونه فایلی رو به همین شیوه لینک دانلود رو داشته باشین میشه جایگزین آدرس تو کد ها کرد و جواب گرفت

[hoosein]

با درود
والا در مورد چیزی که گفتین اطلاع خاصی ندارم (پرتفوی) اما هر گونه فایلی رو به همین شیوه لینک دانلود رو داشته باشین میشه جایگزین آدرس تو کد ها کرد و جواب گرفت

درود
در واقع شبیه همین کاری که شما انجام دادین ولی با این تفاوت که اطلاعات سایت بورس باید بیاد داخل فایل مد نظرمون بشینه که از اونجا با استفاده از توابع جستجو سبد سهاممون رو آپدیت کنیم

باید از اکسترنال دیتا استفاده بشه که هر بار فایل رو باز میکنیم اطلاعات به روز بشه . یه سری ریزه کاری در قسمت کانکشن و پایگاه داده اکسس داره که از تنظیماتش سر در نمیارم
فایل نمونه رو مشاهده کنید

[hoosein]

خیلی ممنون آقای اسماعیلی
تشکر

[amin.t]

سلام بر دوستان عزیز
آقای اسماعیلی فایلتون عالی بود .دست شما درد نکنه .
یه سئوال داشتم من می خوام از تریق get external data from web از آدرس زیر جداولشو دانلود کنم اما نمی دونم چرا وقتی آدرسو در پنجره new web query وارد می کنم چیزی به من نشون نمیده ؟؟؟ و صفحه سفید میاد بالا ؟؟

http://www.tsetmc.com/loader.aspx?ParTree=151311&i=40808043719554948
دوستان میشه راهنمایی کنید.

[امين اسماعيلي]

با درود
جان خودم یه شب نشستم سر یه ارور اونقدر کلافه شدم که خسته شدم امیر قاسمیان شاهد زنده - این فایلم در جواب دوستمون که میخواست بورس رو بیارن تو شیت خود اکسل که بتونه روش عملیات انجام بده تو ایونت ورک بوک open هم کد رو نوشتم که تا باز بشه update بشه و همچنین یه کلید هم گذاشتم برای اینکه لحظه ای هم بتوونین داده ها رو جای
زین کنین
فقط ابتدای کار چون تو باز شدن نوشتیم کد رو یکم تحمل کنید . اینترنتم برقرار باشه ها ............

[amin.t]

با درود
جان خودم یه شب نشستم سر یه ارور اونقدر کلافه شدم که خسته شدم امیر قاسمیان شاهد زنده - این فایلم در جواب دوستمون که میخواست بورس رو بیارن تو شیت خود اکسل که بتونه روش عملیات انجام بده تو ایونت ورک بوک open هم کد رو نوشتم که تا باز بشه update بشه و همچنین یه کلید هم گذاشتم برای اینکه لحظه ای هم بتوونین داده ها رو جای
زین کنین
فقط ابتدای کار چون تو باز شدن نوشتیم کد رو یکم تحمل کنید . اینترنتم برقرار باشه ها ............

ممنون امین جان فایل فوق العاده ای بود
ولی مشکل من این نیست من می خوام داده های جدولی زیرو برای هر سهم وارد اکسل کنم.

[amin.t]

با درود
جان خودم یه شب نشستم سر یه ارور اونقدر کلافه شدم که خسته شدم امیر قاسمیان شاهد زنده - این فایلم در جواب دوستمون که میخواست بورس رو بیارن تو شیت خود اکسل که بتونه روش عملیات انجام بده تو ایونت ورک بوک open هم کد رو نوشتم که تا باز بشه update بشه و همچنین یه کلید هم گذاشتم برای اینکه لحظه ای هم بتوونین داده ها رو جای
زین کنین
فقط ابتدای کار چون تو باز شدن نوشتیم کد رو یکم تحمل کنید . اینترنتم برقرار باشه ها ............

امین جان میشه کاری کرد داده هایی رو که دریافت میکنهبجای اینکه در شیت bors بزاره در شیت iran excel قرار بده

[امين اسماعيلي]

چرا نشه اسم شیت رو تو کد نویسی باید تغییر داد -

[amin.t]

ممنون امین جان فایل فوق العاده ای بود
ولی مشکل من این نیست من می خوام داده های جدولی زیرو برای هر سهم وارد اکسل کنم.

دوستان کسی جواب منو نمی ده

چرا نشه اسم شیت رو تو کد نویسی باید تغییر داد -

میشه لطف کنی و کد رو بزاری چون من هر کاری که می کنم تا مسیرشو تغییر بدم ارور میده .

[khakzad]

دوست عزیز
برای تغییر مسیر و نام باید از اینجا استفاده کنید
amin رو به یوزر خودتون تغییر بدید. اسم bors رو هم اگر می خواید به iran excel تغییر بدید
اخل کد تغییری نباید ایجاد کنید

[امين اسماعيلي]

دو نمونه فایل گذاشتیم تو کدومش شما میخوای

[امين اسماعيلي]

تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wbMe As Workbook
Dim wsNew As Worksheet
Dim w As Integer
Dim wbURL As Workbook
Dim url As String

Set wbMe = ThisWorkbook
url = "http://members.tsetmc.com/tsev2/excel/MarketWatchPlus.aspx?d=0"
Set wbURL = Workbooks.Open(url)


'## Add a new worksheet to the end of ThisWorkbook:'
Set wsNew = wbMe.Sheets("[COLOR=#ff0000]bors[/COLOR][COLOR=#ff0000][/COLOR]")
wsNew.Activate
'## Copy & Paste this data in to our new worksheet:'
wbURL.Sheets(1).Cells.Copy Destination:=wsNew.Range("A1")
wbURL.Activate
'## Close the downloaded version which we no longer need:'
wbURL.Close
[COLOR=#00ff00]Sheet1.Select[/COLOR]
Application.ScreenUpdating = True
MsgBox

مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده

[amin.t]

تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim wbMe As Workbook
Dim wsNew As Worksheet
Dim w As Integer
Dim wbURL As Workbook
Dim url As String

Set wbMe = ThisWorkbook
url = "http://members.tsetmc.com/tsev2/excel/MarketWatchPlus.aspx?d=0"
Set wbURL = Workbooks.Open(url)


'## Add a new worksheet to the end of ThisWorkbook:'
Set wsNew = wbMe.Sheets("[COLOR=#ff0000]bors[/COLOR]")
wsNew.Activate
'## Copy & Paste this data in to our new worksheet:'
wbURL.Sheets(1).Cells.Copy Destination:=wsNew.Range("A1")
wbURL.Activate
'## Close the downloaded version which we no longer need:'
wbURL.Close
[COLOR=#00ff00]Sheet1.Select[/COLOR]
Application.ScreenUpdating = True
MsgBox

مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده

ممنون از راهنماییتون مشکل حل شد