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

[hadi0000]

سلام
برامن كه نميشه
اين پيغام رو ميده :

[Amir Ghasemiyan]

سلام
برامن كه نميشه
اين پيغام رو ميده :

سلام
چه پيغامي ميده دوست عزيز؟

[runmohsen]

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

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 رو تغییر نده

با سلام جناب اسماعیلی اگر حالا بخواهیم تو همین کدی اضافه بشه که مثلا هر 1 دقیقه خودش run بشه یعنی اپدیت اطلاعات بشه چه کدی وکجا اضاف کنیم

[khakzad]

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

sub repeat()
d= now + timevalue ("00:00:00")
application.ontime d, "macroe1"
end sub

که در زمان داخل پرانتز فاصله زمانی مورد نظر رو وارد می کنید.
بجای macroe1 هم نام ماژول مورد نظر


در ضمن یکبار هم در workbook_open هم باید call کنید. یعنی:

workbook_open
call "macroe1"
end sub

[runmohsen]

با تشکر میشه لطفا هر دو موارد بالا رو داخل کد زیر بفرمایید که در کجاوچه ردیفی اضافه بشه

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("bors")
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
Sheet1.Select
Application.ScreenUpdating = True
MsgBox "your process has been done successfully and your file Updated "
End Sub

[khakzad]

کد بالا رو داخل یک sub به نام macroe1 کپی کنید
بقیش عینا همونا هست که عرض کردم

[naser1357]

سلام اساتید ارجمند
میشه ماکرویی نوشت که در یک شیت تاریخ همه فایل ها را از پوشه فراخوانی و در هر سطر قیمت اخر هر نماد را نیز پیدا کرده و در ان شیت فراخوانی و ذخیره کرد
فایل پیوست و توضیح در شیت ارایه شده است
در ضمن بابت فایل اموزشی با قیمت بسیار ناچیز واقعا سپاسگزارم خیلی کمک کننده بود و پیشنهاد میشود تموم مطالب انجمن ها طبقه بندی و در یک فایل برای فروش ارایه شود

[naser1357]

کسی جواب نیست

اینجا کسی نیس هیچکی سئوالمون تحویل نگرفت ست؟

[naser1357]

همچنان چشم انتظار لطف بزرگان

[~M*E*H*D*I~]

همچنان چشم انتظار لطف بزرگان

هرچی بیشتر سوال شما رو میخونم کمتر به منظور شما پی میبرم

[naser1357]

استاد منظورم اینکه&nbsp; ما فایل داده را از طریق برنامه بالا که زحمتش را کشیدین دریافت و در پوشه ای ذخیره می کنیم فایل ها هم روزانه بصورت تاریخ در ان پوشه موجود می باشند<br>حال لازم داریم تا تمام قیمت های پایانی هر سهم و حجم و عرضه را برای کل نمادها در یک شیت داشته باشیم تا بتوانیم رویشان تحلیل انجام بدهیم به این خاطر لازمه که در یک شیت در ستون ا اسم فایل ها از همان پوشه که به ترتیب در زیر هم درج شوند و در ردیف اول نیز اسم نمادها به ترتیب درج شوند حال قیمت پایانی هر نماد را در ان تاریخ از فایل فراخوانی و در زیر نماد درج نماید<br><br>به همین ترتیب در شیت بعدی حجم معامله هر روز <br>در شیت بعدی قیمت عرضه در هر روز و الی اخر؟

[naser1357]

سوال بعدی اینکه
من مجبورم دیتا ها را از چند سایت مختلف بگیرم و بخاطر اینترنت داخلی اداره مجبورم از ماکرو استفاده کنم و از این ماکرو حال چون در فایل فقط روی یک ورد بوک اپن می توان کلیک کرد تا کد درست اجرا شود و برای بقیه ادرس ها خطا می دهد ایا راهی هست که همزمان اطلاعات از چند مرکز اینترنتی دریافت نمود و برنامه خطا ندهد؟

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

با درود

عزیز دل این چیزی که شمو داری میگی دیگه میشه یه برنامه . تا این جاشمو واسه تشویق دوستان به اکسل و نشون دادن توانایی های اکسل گذاشته شده.


موفق باشیدو پیروز

[loks]

سلام دوستان سپاس از فایل...

دوستان یک اکسلی که من اسم یک نماد بورس رو بدم بهش قیمتش رو بیاره و یک کادر هم باشه که یک قیمت بنویسم وقت به اون قیمت رسید اکسل هشدار بده امکانش هست؟

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

[e.alinian]

سلام.چطور میتوان قیمت پایانی یک سهم را به طور خودکار(لحظه ایی) از سایت tsetmc دریافت کرد؟