دستور ماکرویی آپدیت از سایت

[hamidrezasadeghi]

درود بر دوستان خوب
فایل اکسلی دارم که به سایتی وصل میشود و بر اساس تنظیمات موجود در منوی Data>Properties هر یک دقیقه به روزرسانی میشود. ماکرویی نوشته ام که این اطلاعات به روز شده را جمع آوری می کند. برخی مواقع در حین کار بنا به دلایلی مثل قطعی موقت، نمیتواند از سایت به روزرسانی نماید و پیغام هایی میدهد که با چند ok پنجره پیغام بسته میشود. تا این پنجره پیغام با ok ها بسته نشود ، عمل اتصال مجدد به سایت و بروزرسانی مقدور نخواهد بود. میخواستم به جای استفاده از Data>Properties ، مستقیما از دستورات ماکرو استفاده کنم. دستوری که یا مانع از ظاهر شدن پنجره پیغام قبلی شود و یا اگر ظاهر شد ، خودش آنرا ببندد و نیازی به ok ها نداشته باشد. پیشاپیش ممنون از راهنمایی های دوستان.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[alieddy0]

با سلام
اين كاري كه شما مد نظر داريد رو من تا حالا نكردم ولي در محيط كد نويسي با استفاده از كد زير برخي پيغام ها نمايش داده نميشوند

application.DisplayAlerts=False 

اميدوارم كمكي بكنه

[hamidrezasadeghi]

ضمن تشکر از شما با این دستور مشکل حل نمیشود زیرا پیغام ناشی از ماکرو نیست و مربوط به خود اکسل می باشد. در ضمن مسیر تنظیمات آپدیت را تصحیح می کنم. Data>Connections>properties>refresh every می باشد.

[alieddy0]

اگه ممكنه فايلي ضميمه كنيد

[hamidrezasadeghi]

اصولا چگونه میتوان از طریق ماکرو به سایتی وصل شد و بروزرسانی نمود؟

[alieddy0]

شما با كد زير ميتونيد كانكشنتون رو Refresh كنيد

ActiveWorkbook.Connections("نام كانكشن").refresh 

[hamidrezasadeghi]

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

[alieddy0]

شما ميتونين ماكروتون رو در زمان مشخص با كد زير اجرا كنيد

Application.OnTime Now + TimeSerial(0, 20, 0), "نام ماكروي حاوي كد مورد نظر"