تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة بسيطة شباب
#1
السلام عليكم ورحمة الله وبركاتة 

الصورة الاولى صورة البرنامج الي بصممة 

اختيار Save محتاجة يشتغل مرة واحدة بس يعني اضغط علية مرة واحدة وبعدين يبقى غير مفعل 

الصورة التانية بتاعة التاسك مانيجر 
مظبط الاكواد بس وقت ما اقفل البرنامج الي مصممة يتقفل بس الاكسيل مش بيتقفل 

دة الكود المستخدم

PHP كود :
   Dim xlApp As New Excel.Application
    Dim xlWorkBook 
As Excel.Workbook
    Dim xlWorkSheet 
As Excel.Worksheet
    Private Sub ReactorButton1_Click_1
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ReactorButton1.Click
        xlWorkBook 
xlApp.Workbooks.Open("C:\test.xls")
 
       xlApp.Visible False
        xlWorkSheet 
xlWorkBook.Sheets("sheet")


 
    
   With xlWorkSheet

            
.Range("A2").Value ReactorMultiLineTextBox1.Text
            
.Range("a3").Value ReactorMultiLineTextBox2.Text
            
.Range("A4").Value ReactorMultiLineTextBox3.Text

        End With

        xlWorkSheet 
Nothing
        xlWorkBook
.Save()
 
       Try
        Catch ex 
As Exception
        Finally
            If Not xlWorkBook Is Nothing Then
                xlWorkBook
.Close(False)
 
               xlWorkBook Nothing
            End 
If
 
           If Not xlApp Is Nothing Then
                xlApp
.Quit()
 
               xlApp Nothing
            End 
If
 
           GC.Collect()
 
           GC.WaitForPendingFinalizers()
 
           GC.Collect()
 
           GC.WaitForPendingFinalizers()
 
       End Try
 
   End Sub
End 
Class 

لو سمحتم مطلوب حد يشوف الخطأ فين او اية الي ناقص 


كمان فية طلب اخير   Heart

عاوز اصدر الشيت ل PDF بحيث يكون في ملف ثابت 
بمعنى اي مشروع يتحسب بالبرنامج يتصدر  PDF فيمجلد ثابت وكمان اسم ال PDF يكون خلية من الشيت
الرد }}}
تم الشكر بواسطة:
#2
جرب بدون ما تعدل في الكود
كود :
Dim xlApp As Excel.Application
    Dim xlWorkBook As Excel.Workbook
    Dim xlWorkSheet As Excel.Worksheet

    Private Sub ReactorButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReactorButton1.Click

        Try
            xlApp = New Excel.Application
            xlApp.Visible = False
            xlWorkBook = xlApp.Workbooks.Open("C:\test.xls")
            xlWorkSheet = xlWorkBook.Sheets("sheet")

            With xlWorkSheet

                .Range("A2").Value = ReactorMultiLineTextBox1.Text
                .Range("a3").Value = ReactorMultiLineTextBox2.Text
                .Range("A4").Value = ReactorMultiLineTextBox3.Text

            End With

            xlWorkSheet = Nothing
            xlWorkBook.Save()

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        If Not xlWorkBook Is Nothing Then
            xlWorkBook.Close(False)
            xlWorkBook = Nothing
        End If

        If Not xlApp Is Nothing Then
            xlApp.Quit()
            xlApp = Nothing
        End If

        GC.Collect()
        GC.WaitForPendingFinalizers()

    End Sub

لاحظ مفيش Finally

المشكلة كل مرة بضع كود جديد تقوم ترجع للكود القديم، حبيبي صلاح هل هاد عدم رضاك عن اداء اكوادي؟
الرد }}}
تم الشكر بواسطة: salahalmasry
#3
لا والله مش مقصودة ممكن من كترة الاكواد خليتني اتلخبطت
انا حاطط كل الاكواد على save شوف كود التصدير لل pdf حاول تظبطة

الكود هجربة بكرا وهعرفك

لو عرفت حل لباقي الحجات الي نقصاني ابقى عرفني
الرد }}}
تم الشكر بواسطة:
#4
تمام ظبط الكود حقك الاكسيل بيقفل مع البرنامج

باقي كيف اخلي Button1_Click يشتغل مرة واحدة فقط يعني اكبس علية مرة بعدين يصير غير مفعل

وموضوع التصدير ل pdf
الرد }}}
تم الشكر بواسطة:
#5
شكرا لك اخيkhodor1985
الرد }}}
تم الشكر بواسطة: khodor1985 , khodor1985
#6
"وموضوع التصدير ل pdf"

سبق أن وضعتلك مشاركة فيها دوال تحويل ومن ضمنها (4: تحويل كامل ملف اكسل إلى بي دي اف ExportExcelWorkbookToPdf)
http://vb4arb.com/vb/thread-13970-post-6...l#pid66849

تذكرت حاجة....

انت لما بتشوف الاكسل في التاسكمنجر هو بسبب تعريف الاكسل على مستوى الفورم ب New وطبعا مش راح يخرج الين تقفل الفورم، وبقائه في التاسكمنجر ما يعني انه معلق، يعني ما تقلق من وجوده.
القلق فقط لما بتقفل البرنامج كله والاكسل لساته موجود في التاسكمنجر لاكثر من خمس دقائق على ماعتقد لان الويندوز بيحاول ينظف الذاكرة كل فترة من البرامج الغير مستخدمة.
منشان هيك نحنا بنستعجل الويندوز بالتنظيف بواسطة الامر GC.Collect، ولا الويندوز حينظف حينظف بس له فترات معينة في النظام.
الرد }}}
تم الشكر بواسطة: khodor1985 , khodor1985 , salahalmasry
#7
(09-12-15, 01:18 AM)hamada558 كتب : "وموضوع التصدير ل pdf"

سبق أن وضعتلك مشاركة فيها دوال تحويل ومن ضمنها (4: تحويل كامل ملف اكسل إلى بي دي اف ExportExcelWorkbookToPdf)
http://vb4arb.com/vb/thread-13970-post-6...l#pid66849

تذكرت حاجة....

انت لما بتشوف الاكسل في التاسكمنجر هو بسبب تعريف الاكسل على مستوى الفورم ب New وطبعا مش راح يخرج الين تقفل الفورم، وبقائه في التاسكمنجر ما يعني انه معلق، يعني ما تقلق من وجوده.
القلق فقط لما بتقفل البرنامج كله والاكسل لساته موجود في التاسكمنجر لاكثر من خمس دقائق على ماعتقد لان الويندوز بيحاول ينظف الذاكرة كل فترة من البرامج الغير مستخدمة.
منشان هيك نحنا بنستعجل الويندوز بالتنظيف بواسطة الامر GC.Collect، ولا الويندوز حينظف حينظف بس له فترات معينة في النظام.






السلام عليكم اخي hamada558   




بخصوص الاكسيل اتحلت بالكود حق الاخ الفاضل khodor1985   

لان الاكسيل مش بيقفل غير مع البرنامج والحكاية دي سببت مشكلة لاني لو ضغطت على save مرة اخرى بيظهر خطأ لان البقرنامج مفتوح وزي ما ذكرت الكود حق الاستاذ khodor1985   هيعطل ال save 

 وتقريبا لو عاوز حل اكيد للمشكلة دي بحيث ال save يشتغل عدد مرات لا نهائية هضطر اغير نظام الاتصال بالاكسيل لاني شفت شرح للاستاذ احمد النجار 

كان بيتصل بالاكسيل بنظام مختلف بس بصراحة معرفتش اطبقة على المشروع بتاعي 



اما بخصوص ال pdf هرسلك رسالة على الخاص اعرفك بالظبط اية الي لازمني
الرد }}}
تم الشكر بواسطة:
#8
Button1_Click.Enabled = False
علشان تخلي الButton1_Click يشتغل مرة واحدة

حطها اخر حاجة في الButton1_Click
الرد }}}
تم الشكر بواسطة: اللورد محمود , اللورد محمود


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في تقرير mrfenix93 1 41 24-03-24, 10:29 PM
آخر رد: mrfenix93
  مساعدة jalaltech 1 95 07-03-24, 07:38 PM
آخر رد: قناص المدينة
  [VB.NET] مساعدة فى كود فاتورة اللكترونية asdfar1977 2 194 02-03-24, 02:00 AM
آخر رد: asdfar1977
  مساعدة فى كود فاتورة الكترونية asdfar1977 0 79 29-02-24, 07:14 PM
آخر رد: asdfar1977
  مساعدة jalaltech 0 133 17-02-24, 02:15 AM
آخر رد: jalaltech
  طلب مساعدة AHMED213 3 323 06-02-24, 09:39 PM
آخر رد: AHMED213
  [VB.NET] طلب مساعدة AHMED213 0 220 31-01-24, 12:56 AM
آخر رد: AHMED213
  طلب مساعدة بخصوص كود الطباعة paveldida 2 461 19-01-24, 12:00 AM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775
  اريد مساعدة في العملية الحسابية melad2002 3 406 29-12-23, 09:10 PM
آخر رد: melad2002

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم