تقييم الموضوع :
  • 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
PHP كود :
Dim button As Button DirectCast(senderButton)
        
button.Enabled False 
الرد }}}}
تم الشكر بواسطة: salahalmasry
#6
شكرا لك اخيkhodor1985
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985
#7
"وموضوع التصدير ل pdf"

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

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

انت لما بتشوف الاكسل في التاسكمنجر هو بسبب تعريف الاكسل على مستوى الفورم ب New وطبعا مش راح يخرج الين تقفل الفورم، وبقائه في التاسكمنجر ما يعني انه معلق، يعني ما تقلق من وجوده.
القلق فقط لما بتقفل البرنامج كله والاكسل لساته موجود في التاسكمنجر لاكثر من خمس دقائق على ماعتقد لان الويندوز بيحاول ينظف الذاكرة كل فترة من البرامج الغير مستخدمة.
منشان هيك نحنا بنستعجل الويندوز بالتنظيف بواسطة الامر GC.Collect، ولا الويندوز حينظف حينظف بس له فترات معينة في النظام.
الرد }}}}
تم الشكر بواسطة: khodor1985 , khodor1985 , salahalmasry
#8
(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 هرسلك رسالة على الخاص اعرفك بالظبط اية الي لازمني
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال ايميل في vb.net مساعدة nabilelk 1 38 أمس, 11:48 PM
آخر رد: ابراهيم النعيمي
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 97 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 58 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 67 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 175 27-11-16, 12:29 AM
آخر رد: rabeh.ram
  مساعدة في انشاء ثيم عبدالرحمن المكاوي 11 304 25-11-16, 11:57 AM
آخر رد: العزابي
  مساعدة في عرض البيانات في التقرير haiderkh 1 75 21-11-16, 11:24 PM
آخر رد: السرور
  مساعدة بخصوص Listbox CLARO 3 84 16-11-16, 06:15 PM
آخر رد: silverlight
  [VB.NET] مساعدة بسيطة في الكمبوبكس . أبووسم 3 90 16-11-16, 11:58 AM
آخر رد: أبووسم
  مساعدة فى برنامج ارسال رسائل sms للموبايل nabil.1710 2 86 13-11-16, 12:00 PM
آخر رد: أبوبكر سويدان

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


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