حل مشکل کد

[mobinsaffarpour]

سلام دوستان میشه لطفاً فایل Project رو تست کنید


زمان اجرای ماکرو پیغام خطا میده

بی زحمت فایلS4BRN721 رو توی مسیر اصلی درایو d کپی کنید . باتشکر

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

[Ali Parsaei]

سلام،
کلا" اين کدها نهايتا" چه کاري را انجام مي دهند؟
من يک نگاه انداختم، در فايل s4brn721 کدي که در هنگام اجراي فايل فعال مي شود بعضي سطرهايش اشتباه در نوشتار دارد بدين طريق که در ابتداي بعضي سطرها اشتباها" عبارت: ( ' ) نوشته شده و لذا آن سطر از کد به عنوان توضيحات در آمده و سبز رنگ شده. در صورتي که ظاهرا" آن سطرها قاعدتا" نبايد توضيحات باشند!
بايد دقيق بررسي کنيد و از ابتداي تمام سطرهاي سبز رنگ که جزو کد حساب مي شوند عبارت: ( ' ) را حذف کنيد.
ضمنا" اگر آخرين خط سبز هم جزو کد باشد و عبارت ( ' ) را از ابتداي آن برداريد منجر به فراخواني ماکرو2 خواهد شد در صورتي که اصلا" ماکرو2 وجود ندارد!
با توجه به طولاني بودن کد، اگر خودتان هم يک توضيح کلي بدهيد که روال کار چيست بهتر مي توان کارتان را بررسي نمود.

[mobinsaffarpour]

جناب آقای پارسا متشکرم از اینکه قبول زحمت کردید

خدمات شما عرض کنم که فایل S4BRN721 رو به هیچ عنوان نمیشه کدهاش رو دستکاری نمود . من توی فایل Project اومدم دستورات رو به این شکل نوشتم

ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.DeleteLines 1, _
ThisWorkbook.VBProject.VBComponents("ThisWorkbook" ).CodeModule.CountOfLines
برای حذف کدهای درون ThisWorkBook هست

و
Dim DeleteModule As Object
Set DeleteModule = Application.VBE.ActiveVBProject.VBComponents
DeleteModule.Remove VBComponent:= _
DeleteModule.Item("Module1")
برای حذف ماژول 1 هست

من میخوام از طریق کد های بالا کدهای درون WorkBook و ماژول 1 رو از S4BRN721 حذف کنم


در حال حاضر در زمان اجرا کد با 3 خطا مواجه می شویم

RunTime Erro 1004 -1

2 - .Refresh BackgroundQuery:=False

3 - Set B = Workbooks(1).Sheets("TABLE")

من میخوام تمامی خطا ها نادیده گرفته بشن و اینکه کد من کار خودش رو انجام بده

[misammisam]

سلام
فکر کنم بهتره کلا این خطو پاک کنید

.Refresh BackgroundQuery:=False 

[mobinsaffarpour]

عرض کردم که در فایل s4brn721 نمیشه تغییراتی اعمال کرد و من اون دستورات رو به همین دلیل نوشتم . چون فایل s4brn721 فایلی هست که بصورت روزانه از سیستم دیگری دریافت میشه و به هیچ عنوان نباید اون رو ویرایش کرد.

[iranweld]

عرض کردم که در فایل s4brn721 نمیشه تغییراتی اعمال کرد و من اون دستورات رو به همین دلیل نوشتم . چون فایل s4brn721 فایلی هست که بصورت روزانه از سیستم دیگری دریافت میشه و به هیچ عنوان نباید اون رو ویرایش کرد.

با سلام

فایل پیوست را بهمراه فایل S4BRN721 از پست اول در درایو d کپی نموده و اجرا کنید. ماکرو فایل S4BRN721 در نظر گرفته نمیشود

[mobinsaffarpour]

ضمن تشکر از همه دوستان بخصوص دوست عزیز و گرامیم (iranweld)

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

Application.EnableEvents = False