عدم حذف اکسل 14 ازلیست رفرنسها

[abas1388]

سلام
من در منزل آفیس2007 و 2010 را بر روی سیستمم نصب کرده ام در یکی از برنامه های اکسس از اکسل استفاده می کنم و به همین لحاط در اکسس 2007 در قسمت رفرنس ها microsoft Excel 12.0 Object Library را انتخاب نمودم و زمانیکه برنامه را با اکسس 2010 اجرا میکنم این آیتم در قسمت رفرنس ها خود بخود به microsoft Excel 14.0 Object Library تبدیل میشود . تااینجا مشکلی نیست چون طبیعی است که در آفیس 2010 ورژن 14 می باشد . مشکل زمانی ایجاد میشود که وقتی برنامه را که با اکسس 2010 اجرا شده بر روی سیستمی که فقط آفیس 2007 بر روی آن نصب است اجرا می کنیم طبق تصویر ضمیمه یا آیتم اکسل خالی می ماند و یا همرا با Missing در قسمت رفرنس ها باقی می ماند .
من برای حذف این رفرنس از کد زیر استفاده می کنم ولی در زمان اجرای کد فوق خطای Error Loadin Dll صادر میشود . البته با همین کد میتوان رفرنس های دیگر که با Missing همراه هستند را پاک کرد .

Dim strRefName As String

    Dim MyRef As Reference

     

    For Each MyRef In Application.References

    If MyRef.IsBroken = True Then

     References.Remove MyRef

     End If

    Next

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

[abas1388]

سلام
من در منزل آفیس2007 و 2010 را بر روی سیستمم نصب کرده ام در یکی از برنامه های اکسس از اکسل استفاده می کنم و به همین لحاط در اکسس 2007 در قسمت رفرنس ها microsoft Excel 12.0 Object Library را انتخاب نمودم و زمانیکه برنامه را با اکسس 2010 اجرا میکنم این آیتم در قسمت رفرنس ها خود بخود به microsoft Excel 14.0 Object Library تبدیل میشود . تااینجا مشکلی نیست چون طبیعی است که در آفیس 2010 ورژن 14 می باشد . مشکل زمانی ایجاد میشود که وقتی برنامه را که با اکسس 2010 اجرا شده بر روی سیستمی که فقط آفیس 2007 بر روی آن نصب است اجرا می کنیم طبق تصویر ضمیمه یا آیتم اکسل خالی می ماند و یا همرا با Missing در قسمت رفرنس ها باقی می ماند .
من برای حذف این رفرنس از کد زیر استفاده می کنم ولی در زمان اجرای کد فوق خطای Error Loadin Dll صادر میشود . البته با همین کد میتوان رفرنس های دیگر که با Missing همراه هستند را پاک کرد .

Dim strRefName As String

    Dim MyRef As Reference

     

    For Each MyRef In Application.References

    If MyRef.IsBroken = True Then

     References.Remove MyRef

     End If

    Next

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

سلام
چند روزه این مشکل حسابی کلافه ام کرده ، از طرفی هم دیگه روم نمیشه به اساتید تالار برای راهنمائی پیغام خصوصی بفرستم .

[e601]

سلام
چون مشکل شما خیلی بستگی به ویندوز و ورژن آفیس و این مسائل داره به همین دلیل تست کردنش هم خیلی سخته. مجبوریم نمونه کد بدیم تا شما تست کنید.
کد زیر رو بجای کد خودتون استفاده کنید ببینید حل میشه یا نه :

    On Error Resume Next

    Dim ref As Variant, i As Long

    For i = Application.VBE.ActiveVBProject.References.Count To 1 Step -1

        Set ref = Application.VBE.ActiveVBProject.References.Item(i)

        If ref.IsBroken = True Then

            Application.VBE.ActiveVBProject.References.Remove ref

        End If

    Next i

[abas1388]

سلام
چون مشکل شما خیلی بستگی به ویندوز و ورژن آفیس و این مسائل داره به همین دلیل تست کردنش هم خیلی سخته. مجبوریم نمونه کد بدیم تا شما تست کنید.
کد زیر رو بجای کد خودتون استفاده کنید ببینید حل میشه یا نه :

    On Error Resume Next

    Dim ref As Variant, i As Long

    For i = Application.VBE.ActiveVBProject.References.Count To 1 Step -1

        Set ref = Application.VBE.ActiveVBProject.References.Item(i)

        If ref.IsBroken = True Then

            Application.VBE.ActiveVBProject.References.Remove ref

        End If

    Next i

سلام
ضمن عرض تشکر بخاطرپاسخی که ارائه فرمودید باید عرض کنم با جایگزینی کد فوق هم خطائی که در پست 2 ذکر کردم صادر میشود .
ضمناً از آفیس 2007(سرویس پک 3) و ویندوز سون در حال حاضر استفاده می کنم .
از دوستان دیگر هم تقاضا میشود این مورد را تست نمایند، شاید شما هم در آینده با این مشکل مواجه بشوید.
فراموش نکنیم که همه ما (حرفه ای ها و غیر حرفه ای ها ) سعی میکنیم برنامه ای که تحت اکسس برای خود و دیگران تهیه و ارائه می نمائیم بدور از هرگونه خطا و ایرادی و با هر ورژنی از اکسس(حداقل نسخه 32 بیتی اکسس2007 به بالا) و با هر نوع ویندوزی اجرا شود . بنابراین برای جلوگیری از وقوع ایرادات و صدور خطاهای احتمالی که بعضاً مشخص نمیباشد و در زمان اجرا ء آشکار میشود (نمونه این خطا که یکی از همان خطاهای احتمالی و پیش بینی نشده است ) چاره ای بیندیشیم.
تصویر خطای صادر در ضمیمه
با تشکر

[e601]

فراموش نکنیم که همه ما (حرفه ای ها و غیر حرفه ای ها ) سعی میکنیم برنامه ای که تحت اکسس برای خود و دیگران تهیه و ارائه می نمائیم بدور از هرگونه خطا و ایرادی و با هر ورژنی از اکسس(حداقل نسخه 32 بیتی اکسس2007 به بالا) و با هر نوع ویندوزی اجرا شود . بنابراین برای جلوگیری از وقوع ایرادات و صدور خطاهای احتمالی که بعضاً مشخص نمیباشد و در زمان اجرا ء آشکار میشود (نمونه این خطا که یکی از همان خطاهای احتمالی و پیش بینی نشده است ) چاره ای بیندیشیم.

دوست عزیز شاید بهتر باشه کاربرانتون رو اجبار کنید به استفاده از آفیس 2010. دلایل :

1. برای کاربر فرقی نمیکنه که آفیس 2007 یا 2010 نصب باشه چون عملکردشون برای کاربر تفاوتی نداره ولی برای برنامه شما خیلی فرق میکنه. کاربر نهایتا آفیس 2007 رو حذف میکنه و سی دی 2010 رو نصب میکنه. ورد، اکسل و پاورپوینت 2010 تفاوت انقلابی با 2007 نداره که نگران پس زدن کاربران باشیم.
ضمنا خیلی از نرم افزارها و سرویس های بزرگ رو دیدیم و دیدید که برای نصب نیاز به یک پیش نیاز دارند. مثلا تا اونجایی که یادمه نرم افزارهایی که با ویژال استودیو .net نوشته میشن باید برای کارکرد درستشون .net framework روی سیستم کاربر نصب باشه. یا مثلا امضای الکترونیک بانک ملت که یک فلش هست که باید به usb وصل بشه و تازه باید نسخه خاصی از جاوا (فکر کنم 6.45) باید نصب باشه و مثلا اگر جاوا 7 هم باشه کار نمیکنه ! حالا مورد شما که نصب ساده یک آفیس 2010 هست که اختلالی در سایر کارها کاربر ایجاد نمیکنه.

2. یک دلیل دیگه که بهتون پیشنهاد میکنم که اجبار نصب بودن آفیس 2010 رو اعمال کنید اینه که زیاد به اینجور کدهایی که خودتون داشتید یا من دادم اعتماد نکنید. واقعیت اینه که اکسس یک پلت فرم کاملا مستقل نیست و زیر مجموعه ای از آفیس هست. به همین دلیله که کد شما یا کد من یا کدی که از اینترنت پیدا میکنید ممکنه کار بکنه و ممکنه کار نکنه ! چون اگه اشکالاتی یا کمبودهایی در پکیج های نصب شده ی آفیس وجود داشته باشه ممکنه کل کد شما از کار بیفته و دردسرهای عجیب و غریب برای شما بوجود بیاره.

3. ممکنه کدهایی که شما برای اینکار پیدا میکنه در ورژن های بالاتر دیگه توسط آفیس ساپورت نشده باشه که خود این باعث دردسر میشه. چون در این چند وقت که در مورد ورژن های جدید اکسس بررسی میکردم دیدم کدهایی رو که در ورژن های قبلی درست کار میکرده و در ورژن های جدید دچار تغییراتی شده و باید بصورت دیگری استفاده بشه.

به دلایل فوق پیشنهاد میکنم اگر در پیدا کردن کد مورد نظرتون موفق نشدید، از اجبار کاربر به نصب آفیس 2010 دل چرکین نباشید چون به نظر من دردسرش خیلی خیلی خیلی کمتر از اینه که توسط کد vba بخواید این موارد رو مدیریت کنید. پیشنهاد من همیشه این بوده که تا جایی که امکان داره اکسس رو بصورت بیسیک استفاده کنید و تا به مشکل نخورید چون پلت فرم مستقلی نیست...

[abas1388]

دوست عزیز شاید بهتر باشه کاربرانتون رو اجبار کنید به استفاده از آفیس 2010. دلایل :

1. برای کاربر فرقی نمیکنه که آفیس 2007 یا 2010 نصب باشه چون عملکردشون برای کاربر تفاوتی نداره ولی برای برنامه شما خیلی فرق میکنه. کاربر نهایتا آفیس 2007 رو حذف میکنه و سی دی 2010 رو نصب میکنه. ورد، اکسل و پاورپوینت 2010 تفاوت انقلابی با 2007 نداره که نگران پس زدن کاربران باشیم.
ضمنا خیلی از نرم افزارها و سرویس های بزرگ رو دیدیم و دیدید که برای نصب نیاز به یک پیش نیاز دارند. مثلا تا اونجایی که یادمه نرم افزارهایی که با ویژال استودیو .net نوشته میشن باید برای کارکرد درستشون .net framework روی سیستم کاربر نصب باشه. یا مثلا امضای الکترونیک بانک ملت که یک فلش هست که باید به usb وصل بشه و تازه باید نسخه خاصی از جاوا (فکر کنم 6.45) باید نصب باشه و مثلا اگر جاوا 7 هم باشه کار نمیکنه ! حالا مورد شما که نصب ساده یک آفیس 2010 هست که اختلالی در سایر کارها کاربر ایجاد نمیکنه.

2. یک دلیل دیگه که بهتون پیشنهاد میکنم که اجبار نصب بودن آفیس 2010 رو اعمال کنید اینه که زیاد به اینجور کدهایی که خودتون داشتید یا من دادم اعتماد نکنید. واقعیت اینه که اکسس یک پلت فرم کاملا مستقل نیست و زیر مجموعه ای از آفیس هست. به همین دلیله که کد شما یا کد من یا کدی که از اینترنت پیدا میکنید ممکنه کار بکنه و ممکنه کار نکنه ! چون اگه اشکالاتی یا کمبودهایی در پکیج های نصب شده ی آفیس وجود داشته باشه ممکنه کل کد شما از کار بیفته و دردسرهای عجیب و غریب برای شما بوجود بیاره.

3. ممکنه کدهایی که شما برای اینکار پیدا میکنه در ورژن های بالاتر دیگه توسط آفیس ساپورت نشده باشه که خود این باعث دردسر میشه. چون در این چند وقت که در مورد ورژن های جدید اکسس بررسی میکردم دیدم کدهایی رو که در ورژن های قبلی درست کار میکرده و در ورژن های جدید دچار تغییراتی شده و باید بصورت دیگری استفاده بشه.

به دلایل فوق پیشنهاد میکنم اگر در پیدا کردن کد مورد نظرتون موفق نشدید، از اجبار کاربر به نصب آفیس 2010 دل چرکین نباشید چون به نظر من دردسرش خیلی خیلی خیلی کمتر از اینه که توسط کد vba بخواید این موارد رو مدیریت کنید. پیشنهاد من همیشه این بوده که تا جایی که امکان داره اکسس رو بصورت بیسیک استفاده کنید و تا به مشکل نخورید چون پلت فرم مستقلی نیست...

با سلام و تشکر از جناب e601 بخاطر راهنمائی مفیدشون

در تائید فرمایش جنابعالی در پست 22 این تاپیک استاد پیروزمهر هم توصیه نموده اند که از اکسس 2010 یا 2013 استفاده شود . راستش خودم هم به این نتیجه رسیدم که همین کار را انجام بدهم اما ابهامی که باعث شده عملاً اینکار را انجام ندهم این است که مطمئن نیستم همین اشکالی که در این تاپیک به آن اشاره کردم در ورژن های 2010 و 2013 و حتی 2016 اتفاق نیفتد . به عبارتی تصور میکنم که آیا در ورژن های بالاتر تغییر آیتم های قسمت رفرنس با توجه به نوع ویندوز و ورژن آفیسی که برنامه تحت آن اجرا میشود بطور اتوماتیک رفرش و آپدیت میشود یا نه ؟ مثلاًوقتی برنامه با اکسس 2013 اجرا میشود آیتم برنامه اکسل با توجه ورژن آفیس بروز رسانی میشود .
البته باید این موضوع را بانصب کردن ورژن های فوق عملاً امتحان کنم .
علی ایحال بسیار ممنون و سپاسگزارم بابت توصیه و راهکاری که ارائه فرمودی .
با تشکر

[abas1388]

با سلام و تشکر از جناب e601 بخاطر راهنمائی مفیدشون

در تائید فرمایش جنابعالی در پست 22 این تاپیک استاد پیروزمهر هم توصیه نموده اند که از اکسس 2010 یا 2013 استفاده شود . راستش خودم هم به این نتیجه رسیدم که همین کار را انجام بدهم اما ابهامی که باعث شده عملاً اینکار را انجام ندهم این است که مطمئن نیستم همین اشکالی که در این تاپیک به آن اشاره کردم در ورژن های 2010 و 2013 و حتی 2016 اتفاق نیفتد . به عبارتی تصور میکنم که آیا در ورژن های بالاتر تغییر آیتم های قسمت رفرنس با توجه به نوع ویندوز و ورژن آفیسی که برنامه تحت آن اجرا میشود بطور اتوماتیک رفرش و آپدیت میشود یا نه ؟ مثلاًوقتی برنامه با اکسس 2013 اجرا میشود آیتم برنامه اکسل با توجه ورژن آفیس بروز رسانی میشود .
البته باید این موضوع را بانصب کردن ورژن های فوق عملاً امتحان کنم .
علی ایحال بسیار ممنون و سپاسگزارم بابت توصیه و راهکاری که ارائه فرمودی .
با تشکر

با سلام مجدد
همانطوریکه حدس زده بودم این اشکال در ورژن های بالاتر از اکسس 2007 هم وجود دارد . چون من بر روی سیستمم اکسس 2010 را نصب کردم و یک برنامه را تحت این ورژن تهیه نمودم و در در قسمت رفرنس vba اکسل 14 را انتخاب نمودم . برای اینکه امتحان کنم که آیا برنامه با اکسس 2013 هم اجرا میشود و مشکلی ایجاد نمیشود این دفعه اکسس 2010 را از سیستمم حذف و آفیس 2013 را نصب کردم . که با اجرای برنامه در این ورژن با خطای missing آبجکت در قسمت رفرنس ها مواجه شدم و متوجه شدم که علت صدور این خطا عدم وجود آبجکت فوق یعنی اکسل 14 می باشد ( در اکسس 2013 ااکسل 15 نصب میشود ) و متاسفانه با کدهای قبلی هم این آیتم حذف نمیشود و اگر هم دستی این آیتم را خذف کنی و برای اجرای برنامه اکسل ورژن 15 را انتخاب نمائید و بخواهید مجدد برنامه را تحت اکسس 2010 اجرا نمائید باز این دفعه خطای عدم وجود آبجکت اکسل 15 صادر میشود.
نمیدانم دوستان حرفه ای در برنامه خود این مشکل بزرگ را چگونه برطرف نموده اند .
از جناب استاد پیروز مهر عزیز که مطمئنم راهکار منطقی حل این مشکل نزد ایشان است خواهش می کنم در صورتی که از این تاپیک بازدید نمودند و صلاح دانستند مثل همیشه بنده و دوستان دیگر را از راهنمائی خودشان محروم ننمایند .
با تشکر

[abas1388]

با سلام و تشکر از جناب e601 بخاطر راهنمائی مفیدشون

در تائید فرمایش جنابعالی در پست 22 این تاپیک استاد پیروزمهر هم توصیه نموده اند که از اکسس 2010 یا 2013 استفاده شود . راستش خودم هم به این نتیجه رسیدم که همین کار را انجام بدهم اما ابهامی که باعث شده عملاً اینکار را انجام ندهم این است که مطمئن نیستم همین اشکالی که در این تاپیک به آن اشاره کردم در ورژن های 2010 و 2013 و حتی 2016 اتفاق نیفتد . به عبارتی تصور میکنم که آیا در ورژن های بالاتر تغییر آیتم های قسمت رفرنس با توجه به نوع ویندوز و ورژن آفیسی که برنامه تحت آن اجرا میشود بطور اتوماتیک رفرش و آپدیت میشود یا نه ؟ مثلاًوقتی برنامه با اکسس 2013 اجرا میشود آیتم برنامه اکسل با توجه ورژن آفیس بروز رسانی میشود .
البته باید این موضوع را بانصب کردن ورژن های فوق عملاً امتحان کنم .
علی ایحال بسیار ممنون و سپاسگزارم بابت توصیه و راهکاری که ارائه فرمودی .
با تشکر

با سلام مجدد
همانطوریکه حدس زده بودم این اشکال در ورژن های بالاتر از اکسس 2007 هم وجود دارد . چون من بر روی سیستمم اکسس 2010 را نصب کردم و یک برنامه را تحت این ورژن تهیه نمودم و در در قسمت رفرنس vba اکسل 14 را انتخاب نمودم . برای اینکه امتحان کنم که آیا برنامه با اکسس 2013 هم اجرا میشود و مشکلی ایجاد نمیشود این دفعه اکسس 2010 را از سیستمم حذف و آفیس 2013 را نصب کردم . که با اجرای برنامه در این ورژن با خطای missing آبجکت در قسمت رفرنس ها مواجه شدم و متوجه شدم که علت صدور این خطا عدم وجود آبجکت فوق یعنی اکسل 14 می باشد ( در اکسس 2013 ااکسل 15 نصب میشود ) و متاسفانه با کدهای قبلی هم این آیتم حذف نمیشود و اگر هم دستی این آیتم را خذف کنی و برای اجرای برنامه اکسل ورژن 15 را انتخاب نمائید و بخواهید مجدد برنامه را تحت اکسس 2010 اجرا نمائید باز این دفعه خطای عدم وجود آبجکت اکسل 15 صادر میشود.
نمیدانم دوستان حرفه ای در برنامه خود این مشکل بزرگ را چگونه برطرف نموده اند .
از جناب استاد پیروز مهر عزیز که مطمئنم راهکار منطقی حل این مشکل نزد ایشان است خواهش می کنم در صورتی که از این تاپیک بازدید نمودند و صلاح دانستند مثل همیشه بنده و دوستان دیگر را از راهنمائی خودشان محروم ننمایند .
با تشکر

[dhamara]

ممنون از مطلب عالیتون
مدیریت اسناد

[abas1388]

ممنون از مطلب عالیتون
مدیریت اسناد

سلام دوست عزیز !
بفرمائید لینکی که گذاشتی چه ارتباطی به موضوع این تاپیک داره .
برای تشکر کردن استفاده از دکمه تشکر کفایت می کنه
ایجاد پست بمنظور تبلیغ ممنوع می باشد.
لطفاً پستتان را حذف نمائید !
با تشکر

[alirezabahrami]

با سلام مجدد
همانطوریکه حدس زده بودم این اشکال در ورژن های بالاتر از اکسس 2007 هم وجود دارد . چون من بر روی سیستمم اکسس 2010 را نصب کردم و یک برنامه را تحت این ورژن تهیه نمودم و در در قسمت رفرنس vba اکسل 14 را انتخاب نمودم . برای اینکه امتحان کنم که آیا برنامه با اکسس 2013 هم اجرا میشود و مشکلی ایجاد نمیشود این دفعه اکسس 2010 را از سیستمم حذف و آفیس 2013 را نصب کردم . که با اجرای برنامه در این ورژن با خطای missing آبجکت در قسمت رفرنس ها مواجه شدم و متوجه شدم که علت صدور این خطا عدم وجود آبجکت فوق یعنی اکسل 14 می باشد ( در اکسس 2013 ااکسل 15 نصب میشود ) و متاسفانه با کدهای قبلی هم این آیتم حذف نمیشود و اگر هم دستی این آیتم را خذف کنی و برای اجرای برنامه اکسل ورژن 15 را انتخاب نمائید و بخواهید مجدد برنامه را تحت اکسس 2010 اجرا نمائید باز این دفعه خطای عدم وجود آبجکت اکسل 15 صادر میشود.
نمیدانم دوستان حرفه ای در برنامه خود این مشکل بزرگ را چگونه برطرف نموده اند .
از جناب استاد پیروز مهر عزیز که مطمئنم راهکار منطقی حل این مشکل نزد ایشان است خواهش می کنم در صورتی که از این تاپیک بازدید نمودند و صلاح دانستند مثل همیشه بنده و دوستان دیگر را از راهنمائی خودشان محروم ننمایند .
با تشکر

سلام
یک ایده برای رفع این مشکل این است که در رویداد Unload فرم اصلی ، آیتم اکسل را از لیست رفرنس ها حذف و در رویدادی که در آن قصد استفاده از برنامه اکسل دارید آن را به لیست رفرنس ها اضافه نمائید.
اضافه نمودن هم باید باید با توجه به نوع ویندوز و ورژن آفیس انجام شود .
یا علی

[abas1388]

سلام
یک ایده برای رفع این مشکل این است که در رویداد Unload فرم اصلی ، آیتم اکسل را از لیست رفرنس ها حذف و در رویدادی که در آن قصد استفاده از برنامه اکسل دارید آن را به لیست رفرنس ها اضافه نمائید.
اضافه نمودن هم باید باید با توجه به نوع ویندوز و ورژن آفیس انجام شود .
یا علی

سلام
با تشکر از جناب بهرامی ، باید عرض کنم که ایده و راهکار جالبی ارائه فرمودی ولی متاسفانه در نسخه mde که کدها کامپایل میشوند کاربردی نیست .
با تشکر

[e601]

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

[abas1388]

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

سلام جنا ب مسعودی !
ممنون از پیگیریتون
جناب بهرامی در راهکارشان فرمودند که میتوان در رویداد unload فرم برنامه اکسل را از رفرنس ها حذف نمائیم
بنده همین کار را با کد زیر انجام میدهم و با کد فوق هم اکسل از لیست رفرنس ها حذف میشود . اما وقتی فایل را بصورت mde تبدیل می کنیم و آن را اجرا می کنیم خطا صادر میشود .

Dim strRefName As String

    Dim MyRef As Reference

      

    For Each MyRef In Application.References

   If MyRef.Name = "excel" Then

   References.Remove MyRef

   End If

    Next

ممنون

[e601]

آقا فکر کنم راه حلش رو پیدا کردم (البته یک تبصره داره!) ولی انصافا خیلی چغر و سمج بود !
راه حل اینه که شما library اکسل رو خودتون بصورت دستی تیک نزنید !
بجاش کد زیر رو در اولین نقطۀ ورود به برنامه تون قرار بدید (مثلا فرم استارت اپ) :

On Error Resume Next

References.AddFromGuid "{00020813-0000-0000-C000-000000000046}", 0, 0

این کد آخرین library اکسل که روی ویندوز کاربر نصب هست رو به لیست رفرنس ها اضافه میکنه. اون قسمت on error هم برای اینه که وقتی یکبار سیستم library رو اضافه میکنه اگر دوباره بخوای اضافه کنی خطای existing میده یعنی این library در لیست رفرنس ها موجوده. با کد بالا هر وقت کاربر وارد برنامه بشه اگر library اکسل در لیست رفرنس ها وجود نداشته باشه، بصورت اتوماتیک آخرین کتابخانۀ اکسل موجود در ویندوز کاربر به رفرنسها اضافه میشه.
همچنین شما میتونید زمانی که در حال طراحی برنامه هستید تیک اکسل رو بزنید و با کدها راحت تر کار کنید و زمانی که خواستید برنامه تون رو توزیع کنید تیک اکسل رو بردارید و کد بالا رو در نقطه ورود به برنامه تون قرار بدید. من روی 2 تا سیستم یکی آفیس 2007 و یکی 2010 تست کردم و مشکلی نداشت.

ولی هنوز یک مشکل باقی میمونه !
اگر کاربر برنامۀ شما رو یکبار روی یک سیستمی با نسخۀ آفیس بالاتر (مثلا 2013) اجرا کنه و بعد بخواد روی سیستمی که آفیس پایین تر (مثلا 2010) داره اجرا کنه بازم همون مشکل missing رو خواهیم داشت! چون در سیستم قبلی تیک کتابخانۀ بالاتر تیک خورده و ذخیره شده.

در اینجا پیشنهاد من اینه که شما برنامه تون رو بصورت BackEnd/FrontEnd طراحی بکنید که قسمت FrontEnd میشه رابط کاربری شما و BackEnd میشه جداول. شما وقتی میخواید برنامه تون رو به کاربر تحویل بدید هر دو قسمت رو باید تحویل بدید دیگه. ما با قسمت BackEnd کاری نداریم چون اطلاعات ورودی کار در اون ذخیره میشه و باید روی سیستم کاربر بمونه.
حالا قسمت FrontEnd ی که به کاربر تحویل میدید باید نسخۀ پایۀ تیک نخورده (که در بالا توضیح دادم) باشه. کاربر نرم افزار رو اجرا میکنه و طبق نسخه ای که از آفیس روی سیستمش نصبه تیک مناسب از کتابخانۀ اکسل میخوره و مشکلی هم نخواهد داشت.
حالا اگر کاربری برنامه رو روی اکسس 2013 اجرا کنه و به هر دلیلی بخواد روی 2010 یا 2007 هم اجراش کنه باید فایل FrontEnd اولیه ای که شما بهش دادید رو جایگزین FrontEnd فعلی بکنه.

پس یکبار دیگه مرور کنیم (چون خیلی طولانی شد و خودمم گیج شدم! ) :
شما یک سی دی به کاربر میدی که فایل FrontEnd بدون تیک اکسل + فایل BackEnd بدون اطلاعات، در اون قرار داره و کاربر روی سیستمش کپی میکنه. فرض میکنیم آفیس کاربر 2013 هست. بنابراین وقتی کاربر برنامه رو باز کنه تیک excel 15 میخوره و کاربر به راحتی شروع به کار با برنامه و ثبت اطلاعات میکنه.
حالا این کاربر به هر دلیلی (مثلا آفیس 2013 رو پاک میکنه و 2010 یا 2007 نصب میکنه یا نرم افزار رو روی یک سیستم دیگه کپی میکنه که آفیسش پایین تر از 2013 هست یا هر دلیل دیگه) مجبور میشه که برنامه رو در آفیسی پایین تر از 2013 اجرا کنه که به مشکل میخوره. اینجا کاربر باید فقط نسخۀ اولیۀ FrontEnd ی که روی سی دی بهش دادید رو جایگزین FrontEnd فعلی بکنه و کاری به BackEnd نداره.
به همین راحتی برنامه رو مثلا روی اکسس 2010 اجرا میکنه و تیک excel 14 میخوره و مشکلی نداره. و مهم تر از همه اینکه اطلاعاتی که قبلا با اکسس 2013 در برنامه ثبت کرده بدون هیچ گونه مشکلی در اختیارش هست چون شما به BackEnd کاری نداری.

ببخشید که خیلی طولانی و پیچ در پیچ شد. واضح تر از این نتونستم بنویسم !
اگر ابهامی دارید در خدمتم...

[alirezabahrami]

3. ممکنه کدهایی که شما برای اینکار پیدا میکنه در ورژن های بالاتر دیگه توسط آفیس ساپورت نشده باشه که خود این باعث دردسر میشه. چون در این چند وقت که در مورد ورژن های جدید اکسس بررسی میکردم دیدم کدهایی رو که در ورژن های قبلی درست کار میکرده و در ورژن های جدید دچار تغییراتی شده و باید بصورت دیگری استفاده بشه.

اضافه نمودن هم باید باید با توجه به نوع ویندوز و ورژن آفیس انجام شود .

سلام abas1388 !
به نقل قول های بالا دقت کن !
یا علی

[e601]

البته جناب بهرامی عزیز یه نکته ای رو یادم رفت توضیح بدم.
هر library یک کلاس آی دی داره (همون GUID) که منحصر به فرده و این آی دی در رجیستری ثبت میشه.
تابع AddFromGuid سه تا ورودی میگیره :
اولی همون guid هست که برای تمام ورژن های کتابخانۀ اکسل ثابته :

{00020813-0000-0000-C000-000000000046}

دومی و سومی شماره ورژن های library مورد نظر هست. که اگر هر دو رو 0 بذاریم، خود تابع آخرین ورژن رو از رجیستری ویندوز میخونه و به رفرنس ها اضافه میکنه.
ضمنا اینجور دستورات به نظر من در تمام ورژن ها و ویندوزها ساپورت خواهد شد چون دستورات خیلی حساسیه...

[abas1388]

البته جناب بهرامی عزیز یه نکته ای رو یادم رفت توضیح بدم.
هر library یک کلاس آی دی داره (همون GUID) که منحصر به فرده و این آی دی در رجیستری ثبت میشه.
تابع AddFromGuid سه تا ورودی میگیره :
اولی همون guid هست که برای تمام ورژن های کتابخانۀ اکسل ثابته :

{00020813-0000-0000-C000-000000000046}

دومی و سومی شماره ورژن های library مورد نظر هست. که اگر هر دو رو 0 بذاریم، خود تابع آخرین ورژن رو از رجیستری ویندوز میخونه و به رفرنس ها اضافه میکنه.
ضمنا اینجور دستورات به نظر من در تمام ورژن ها و ویندوزها ساپورت خواهد شد چون دستورات خیلی حساسیه...

با سلام خدمت هردو استاد عزیز
ظاهراً کد بالا در اکسس 2013 جواب نمیده

[e601]

سلام
من روی اکسس 2007 و 2010 تست کردم مشکلی نبود.
چه خطایی میده؟ خط on error رو کامنت کنید ببینید چی میگه...

[abas1388]

سلام
من روی اکسس 2007 و 2010 تست کردم مشکلی نبود.
چه خطایی میده؟ خط on error رو کامنت کنید ببینید چی میگه...

سلام
با وجود کد On Error Resume Next که باعث میشود از نمایش خطای احتمالی چشم پوشی شود اکسل به قسمت رفرنس ها اضافه نمیشود و وقتی On Error Resume Next را از ابتدای کد حذف میشود خطای شماره 53 با عنوان فایل یافت نشد صادر میشود
ضمناً نوع ویندوز بنده سون است که برنامه آفیس در پوشه program files (x86) آن است
با تشکر

[e601]

این رو هم تست کنید. بجای استفاده از guid ، مستقیما خود فایل رو به رفرنسها اضافه میکنه :

On Error Resume Next

Dim excelLibraryPath As String

excelLibraryPath = SysCmd(acSysCmdAccessDir)

References.AddFromFile excelLibraryPath & "EXCEL.EXE"

[abas1388]

این رو هم تست کنید. بجای استفاده از guid ، مستقیما خود فایل رو به رفرنسها اضافه میکنه :

On Error Resume Next

Dim excelLibraryPath As String

excelLibraryPath = SysCmd(acSysCmdAccessDir)

References.AddFromFile excelLibraryPath & "EXCEL.EXE"

سلام جناب مسعودی !
ضمن تشکر فراوان ، باید عرض کنم که بنده الآن در محل کارم با ورژن های 2007 و 2010 تست کردم و جواب داد . انشاءالله امشب آن را بر روی سیستم منزل که 2013 است هم امتحان می کنم
اگر راهی هم برای حذف آن از لیست رفرنس ها در حالت MDE پیدا شود خیلی عالیست.
می گم مثل همیشه واقعاً از یک موضوعی در تعجبم که چرا اینقدر همکاری دوستان ضعیف و کمرنگ شده ؟ و حتی این همکاری در حد امتحان کردن یکی دو خط کد هم نیست .
شاید هم دوستان منتظرند که فعلاً ، فقط نظاره گر باشند تا در نهایت چنانچه تاپیک به جواب قطعی رسید از آن استفاده نمایند .
آقای مسعودی و دیگر اساتید بزرگوار همچون استاد پیروز مهر و ..... اینقدر بزرگوار هستند که اگر جواب این سوال مهم را بصورت خصوصی از آنها درخواست نمایم بنده را راهنمائی می فرمایند ، اما وقتی سوالی که مطمئناً مورد استفاده خیلی از عزیزان دوستدار اکسس است در این تالار پرسیده میشود هدف این است که ههگان از آن استفاده نمایند .
به امید همکاری دوستان
یا حق

[e601]

سلام جناب abas1388 عزیز !
اولا ممنون از نظر لطفتون. من به شخصه خیلی خوشحال میشم اگر بدونم اطلاعاتی که دارم باعث میشه گره ای از کار کسی باز بشه. البته نکته ای که هست اینه که برای بررسی این مشکلی که شما مطرح کردید نیاز هست که ورژن های مختلف آفیس در دسترس باشه تا بشه تست کرد. مثلا من خودم در منزل آفیس 2010 دارم و محل کار آفیس 2007 و 2010. شاید علت عدم حضور سایر کاربران در بحث، دسترسی نداشتن به ورژن های مختلف آفیس باشه. نمیدونم...

راستی خطایی که در فایل های mde به شما میده رو هم لطفا بگید و همچنین اینکه از کدوم کد برای حذف رفرنس استفاده میکنید که در فایل mde به شما خطا میده.
البته خودتون بهتر میدونید که در حالت mde کدها کامپایل میشن و شاید اجازۀ تغییر در رفرنسها بصورت طبیعی وجود نداشته باشه ! من دقیقا نمیدونم.

من حاضرم بازم بررسی کنیم ببینیم چجوری حل میشه ولی یه راهکار قطعی و نهایی وجود داره :
برنامه تون رو در حالت BackEnd/FrontEnd طراحی کنید و برای front end سه تا فایل به کاربر بدید که بر اساس ورژن آفیسش اجراش کنه. 2007 و 2010 و 2013. و در هر کدوم تیک مناسب library اکسل رو بزن تا خیالت راحت باشه.
هر موقع هم ورژن جدید آفیس اومد شما هم یه front end جدید اضافه کن !

[abas1388]

سلام جناب abas1388 عزیز !
اولا ممنون از نظر لطفتون. من به شخصه خیلی خوشحال میشم اگر بدونم اطلاعاتی که دارم باعث میشه گره ای از کار کسی باز بشه. البته نکته ای که هست اینه که برای بررسی این مشکلی که شما مطرح کردید نیاز هست که ورژن های مختلف آفیس در دسترس باشه تا بشه تست کرد. مثلا من خودم در منزل آفیس 2010 دارم و محل کار آفیس 2007 و 2010. شاید علت عدم حضور سایر کاربران در بحث، دسترسی نداشتن به ورژن های مختلف آفیس باشه. نمیدونم...

راستی خطایی که در فایل های mde به شما میده رو هم لطفا بگید و همچنین اینکه از کدوم کد برای حذف رفرنس استفاده میکنید که در فایل mde به شما خطا میده.
البته خودتون بهتر میدونید که در حالت mde کدها کامپایل میشن و شاید اجازۀ تغییر در رفرنسها بصورت طبیعی وجود نداشته باشه ! من دقیقا نمیدونم.

من حاضرم بازم بررسی کنیم ببینیم چجوری حل میشه ولی یه راهکار قطعی و نهایی وجود داره :
برنامه تون رو در حالت BackEnd/FrontEnd طراحی کنید و برای front end سه تا فایل به کاربر بدید که بر اساس ورژن آفیسش اجراش کنه. 2007 و 2010 و 2013. و در هر کدوم تیک مناسب library اکسل رو بزن تا خیالت راحت باشه.
هر موقع هم ورژن جدید آفیس اومد شما هم یه front end جدید اضافه کن !

سلام جناب مسعودی
با عرض پوزش از تاخیر ی که پیش آمد
خوشبختانه کد شما در ورژن 2013 هم جواب داد
تصویر خطائیکه در نتیجه بکار بردن کد های پست 14 در حالت MDE صادر میشود ضمیمه نموده ام
همانطور که اشاره فرمودی برای رهائی از این این خطا و مشکل میتوان بر اساس پیشنهاد شما برنامه را در نسخه های مختلف تهیه کرد ؛ ولی برای اینکار باید همیشه همه نسخه های آفیس بر روی سیستم ویندوز نصب باشد که اینکار قطعاً بباعث افت سرعت سیستم ویندوز خواهد شد.
با تشکر

[e601]

سلام

خوشبختانه کد شما در ورژن 2013 هم جواب داد

شما مطمئن هستی که در حالت mde یا accde هم جواب میده؟ چون من کمی بررسی کردم ظاهرا در این حالتها امکان تغییر در رفرنسها وجود نداره.

همانطور که اشاره فرمودی برای رهائی از این این خطا و مشکل میتوان بر اساس پیشنهاد شما برنامه را در نسخه های مختلف تهیه کرد ؛ ولی برای اینکار باید همیشه همه نسخه های آفیس بر روی سیستم ویندوز نصب باشد که اینکار قطعاً بباعث افت سرعت سیستم ویندوز خواهد شد.

البته فکر کنم شما منظور من رو کامل متوجه نشدی. منظور من این نبود که روی سیستم کاربر تمام نسخه های آفیس نصب بشه...

[nazanin_90]

سلام
من در منزل آفیس2007 و 2010 را بر روی سیستمم نصب کرده ام در یکی از برنامه های اکسس از اکسل استفاده می کنم و به همین لحاط در اکسس 2007 در قسمت رفرنس ها microsoft Excel 12.0 Object Library را انتخاب نمودم و زمانیکه برنامه را با اکسس 2010 اجرا میکنم این آیتم در قسمت رفرنس ها خود بخود به microsoft Excel 14.0 Object Library تبدیل میشود . تااینجا مشکلی نیست چون طبیعی است که در آفیس 2010 ورژن 14 می باشد . مشکل زمانی ایجاد میشود که وقتی برنامه را که با اکسس 2010 اجرا شده بر روی سیستمی که فقط آفیس 2007 بر روی آن نصب است اجرا می کنیم طبق تصویر ضمیمه یا آیتم اکسل خالی می ماند و یا همرا با Missing در قسمت رفرنس ها باقی می ماند .
من برای حذف این رفرنس از کد زیر استفاده می کنم ولی در زمان اجرای کد فوق خطای Error Loadin Dll صادر میشود . البته با همین کد میتوان رفرنس های دیگر که با Missing همراه هستند را پاک کرد .

Dim strRefName As String

    Dim MyRef As Reference

     

    For Each MyRef In Application.References

    If MyRef.IsBroken = True Then

     References.Remove MyRef

     End If

    Next

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

سلام
من چند وقتی است بخاطر ایرادات اینچنینی که از اکسس دیده بودم دیگر با اکسس کار نمی کنم . با فرمت mdb یا accdb معمولاً مشکلی پیش نمی آید ولی وقتی کدهای آن را کامپایل می کنیم و آن را به فرمت mde در میآوریم ایرادات آن ظاهرمیشود .
واقعاً اگر مایکروسافت برای رفع موارد اینچنینی راهکاری ارائه ننموده باشد یک رسوائی بزرگ برایش محسوب میشود .
قاعدتاً فایلهای درج شده در لیست رفرنس ها باید بصورت هوشمند با توجه به ورژن اکسس آپدیت شود . به عبارتی وقتی اکسل 12 در قسمت رفرنس انتخاب شده باشد و اگر برنامه با ورژنهای دیگر هم اجرا شد بطور اتوماتیک این مورد در قسمت رفرنس باید تغییر کند .
جناب abas1388 ! ازمن می شنوی هرچه زودتر با اکسس خداحافظی کن و وقت ارزشمند خودت را صرف یادگیری یکی از زبان های پیشرفته برنامه نویسی مثل vb.net , ......... کن !
موفق باشید

[e601]

سلاممن چند وقتی است بخاطر ایرادات اینچنینی که از اکسس دیده بودم دیگر با اکسس کار نمی کنم . با فرمت mdb یا accdb معمولاً مشکلی پیش نمی آید ولی وقتی کدهای آن را کامپایل می کنیم و آن را به فرمت mde در میآوریم ایرادات آن ظاهرمیشود .
واقعاً اگر مایکروسافت برای رفع موارد اینچنینی راهکاری ارائه ننموده باشد یک رسوائی بزرگ برایش محسوب میشود .
قاعدتاً فایلهای درج شده در لیست رفرنس ها باید بصورت هوشمند با توجه به ورژن اکسس آپدیت شود . به عبارتی وقتی اکسل 12 در قسمت رفرنس انتخاب شده باشد و اگر برنامه با ورژنهای دیگر هم اجرا شد بطور اتوماتیک این مورد در قسمت رفرنس باید تغییر کند .
جناب abas1388 ! ازمن می شنوی هرچه زودتر با اکسس خداحافظی کن و وقت ارزشمند خودت را صرف یادگیری یکی از زبان های پیشرفته برنامه نویسی مثل vb.net , ......... کن !
موفق باشید

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