صفحه 2 از 5 نخستنخست 1234 ... آخرینآخرین
نمایش نتایج: از شماره 11 تا 20 , از مجموع 43

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

  1. #11


    آخرین بازدید
    2018/10/12
    تاریخ عضویت
    June 2014
    نوشته ها
    91
    امتیاز
    105
    سپاس
    140
    سپاس شده
    75 در 31 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط amin.t نمایش پست ها
    ممنون امین جان فایل فوق العاده ای بود
    ولی مشکل من این نیست من می خوام داده های جدولی زیرو برای هر سهم وارد اکسل کنم.
    دوستان کسی جواب منو نمی ده
    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    چرا نشه اسم شیت رو تو کد نویسی باید تغییر داد -
    میشه لطف کنی و کد رو بزاری چون من هر کاری که می کنم تا مسیرشو تغییر بدم ارور میده .

  2.  

  3. #12


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

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

نام:  bors.jpg
مشاهده: 119
حجم:  76.1 کیلو بایت


  4. #13


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    دو نمونه فایل گذاشتیم تو کدومش شما میخوای
    در پناه خداوندگار ایران زمین باشید و پیروز

  5. #14


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران
    کد:
    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
    مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده
    در پناه خداوندگار ایران زمین باشید و پیروز


  6. #15


    آخرین بازدید
    2018/10/12
    تاریخ عضویت
    June 2014
    نوشته ها
    91
    امتیاز
    105
    سپاس
    140
    سپاس شده
    75 در 31 پست
    تعیین سطح نشده است

    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران
    کد:
    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
    مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده
    ممنون از راهنماییتون مشکل حل شد


  7. #16

    آخرین بازدید
    2016/09/06
    تاریخ عضویت
    July 2014
    نوشته ها
    1
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

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

  8. #17


    آخرین بازدید
    یک ساعت پیش
    تاریخ عضویت
    September 2013
    محل سکونت
    بچه محل آقا امام رضا
    نوشته ها
    4,469
    امتیاز
    12312
    سپاس
    8,924
    سپاس شده
    10,583 در 3,742 پست
    سطح اکسل
    100.00 %

    نقل قول نوشته اصلی توسط hadi0000 نمایش پست ها
    سلام
    برامن كه نميشه
    اين پيغام رو ميده :
    سلام
    چه پيغامي ميده دوست عزيز؟

  9. #18


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام
    نقل قول نوشته اصلی توسط امين اسماعيلي نمایش پست ها
    تو فایلی که سر کار خانم خاکزاد اشاره کردن شما کافی ادرس جایی که میخوای فایل دانلودیتون ذخیره بشه رو تغییر بدین و در فایل بعدی که تو خود شیت ذخیره میکرد و شیت بورس روئ میخوای بکنیش شیت اکسل ایران
    کد:
    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
    مورد قرمز رنگ رو بکن شیت اکسل ایران و مورد سبز رو هم فک کنم دیگه نخواد - فقط یادت نره اگر رنج کپی رو عوض کنی مثلا A1 رو بکنی B4 تو همون تمپلت اکسل ایران ازور میده چون داره یجا همرو میاره- هر شیتی خواتی اسمشو بزار مشکل نیست اما A1 رو تغییر نده
    با سلام جناب اسماعیلی اگر حالا بخواهیم تو همین کدی اضافه بشه که مثلا هر 1 دقیقه خودش run بشه یعنی اپدیت اطلاعات بشه چه کدی وکجا اضاف کنیم
    [size=medium]موفق باشيد[/size]

  10. #19


    آخرین بازدید
    2023/08/14
    تاریخ عضویت
    March 2010
    محل سکونت
    تهران
    نوشته ها
    2,034
    امتیاز
    4508
    سپاس
    2,467
    سپاس شده
    4,096 در 1,241 پست
    سطح اکسل
    85.00 %

    khakzad به Yahoo ارسال پیام
    دوست عزیز
    کلا برای اجرای یک کد بصورت خودکار و به فواصل زمانی مشخص
    کد زیر باید استفاده بشه:
    کد:
    sub repeat()
    d= now + timevalue ("00:00:00")
    application.ontime d, "macroe1"
    end sub
    که در زمان داخل پرانتز فاصله زمانی مورد نظر رو وارد می کنید.
    بجای macroe1 هم نام ماژول مورد نظر


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


    کد:
    workbook_open
    call "macroe1"
    end sub


  11. #20


    آخرین بازدید
    2019/08/08
    تاریخ عضویت
    June 2010
    محل سکونت
    تهران
    نوشته ها
    120
    امتیاز
    14
    سپاس
    11
    سپاس شده
    3 در 3 پست
    تعیین سطح نشده است

    runmohsen به Yahoo ارسال پیام
    با تشکر میشه لطفا هر دو موارد بالا رو داخل کد زیر بفرمایید که در کجاوچه ردیفی اضافه بشه
    کد:
    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
    ویرایش توسط runmohsen : 2014/12/20 در ساعت 13:18
    [size=medium]موفق باشيد[/size]


صفحه 2 از 5 نخستنخست 1234 ... آخرینآخرین

اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. پاسخ ها: 3
    آخرين نوشته: 2024/02/13, 23:24
  2. Create a summary worksheet from all worksheets (جمع کردن اطلاعات تمامی شیت ها در یک شیت)
    توسط امين اسماعيلي در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2016/06/15, 18:35
  3. پاسخ ها: 6
    آخرين نوشته: 2016/05/24, 11:54

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

بورس دكمه مشهد

دانلود اطلاعات بورس آنلاین اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است