تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كود التصدير لاكسيل محمى بكلمة مرور + طباعة ملف الاكسيل
#1
Shocked 
كود التصديل لاكسيل  + الطباعة عن طريق الاكسيل 

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        'تصدير(لاكسيل)

        Dim EOpject As Object
        Dim ENew As Object
        Dim EWork As Object
        '----------------------
        Dim I, N, nog As Integer
        '---------------------------------------------------
        nog = DataGridView1.Rows.Count
        EOpject = CreateObject("Excel.Application")
        ENew = EOpject.Workbooks.open("مسار الملف واسمة", , , , "كلمة السر")

        EWork = ENew.Worksheets("اسم الصفة")

        '----------------------------------------------------
        'نقل بيانات تيكيست بوك او كمبو بوكس الى الاكسيل
        EWork.Cells(3, 2).Value = TextBox1.Text
        EWork.Cells(4, 2).Value = ComboBox1.Text
        EWork.Cells(3, 7).Value = DateTimePicker1.Text
        EWork.Cells(4, 7).Value = TextBox2.Text
        EWork.Cells(6, 1).Value = TextBox5.Text
        'نقل محتوايات الداتا جريد فيو الى الاكسيل
        For I = 0 To DataGridView1.RowCount - 1
            For N = 1 To Me.DataGridView1.ColumnCount - 1
                EWork.Cells(I + 8, N).Value = DataGridView1.Rows(I).Cells(N).Value
            Next
        Next
        EWork.Cells(7 + nog, 1).Value = TextBox3.Text
        EWork.Cells(7 + nog, 2).Value = TextBox4.Text
        EWork.Cells(7 + nog, 3).Value = "الاجمالى"
        EWork.Cells(9 + nog, 3).Value = "توقيع المحاسب"
        EWork.Cells(9 + nog, 5).Value = "توقيع المراجع"
        'لظهور الاكسيل او عدم الظهور***********************
        EOpject.Visible = False
        'لطباعة الصفحة المحددة
        EWork.PrintOut(From:=1, Copies:=1, Collate:=True)
        
        EWork = Nothing
        ENew = Nothing
        EOpject.Quit()

        EOpject = Nothing
        GC.Collect()

    End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مشروع] هدية في شهر رمضان ___ اداة طباعة الداتا جريد raaddawood 15 1,502 27-10-16, 04:04 PM
آخر رد: عبد العظيم
  كود رائع وجميل لقفل اي فورم تريد بكلمة سر honest 0 306 29-04-16, 12:03 PM
آخر رد: honest
  طباعة البينات manal2288 0 804 25-11-14, 12:47 PM
آخر رد: manal2288

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


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