حل مشکل کد

**Ali Parsaei** · 2015/07/17, 19:53

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

**mobinsaffarpour** · 2015/07/17, 20:01

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

خدمات شما عرض کنم که فایل 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** · 2015/07/17, 20:32

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

کد PHP:


.Refresh BackgroundQuery:=False

**mobinsaffarpour** · 2015/07/17, 20:47

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

**iranweld** · 2015/07/19, 16:48

نوشته اصلی توسط mobinsaffarpour

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

با سلام

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

فایل های پیوست شده