منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارسال البيانات م الفليكس الى الاكسل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم مكتبة أكواد vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=33)
+---- الموضوع : ارسال البيانات م الفليكس الى الاكسل (/showthread.php?tid=13343)

ارسال البيانات م الفليكس الى الاكسل - أبو عمر - 25-09-15


PHP كود :
Dim MyExcel As New Excel.Application
Dim R As Integer, C As Integer

MyExcel.Workbooks.Open App.Path & "\2.xls"

For R = 0 To MsFlex.Rows - 1

    For C = 0 To MsFlex.Cols - 1
    
        MsFlex.row = R
        MsFlex.Col = C
        If MsFlex.CellBackColor = 0 Then
           If R = 0 Then
              MyExcel.ActiveSheet.Cells(R + 1, C + 1).Interior.Color = RGB(212, 208, 200)
           Else
              MyExcel.ActiveSheet.Cells(R + 1, C + 1).Interior.Color = vbWhite
           End If
        Else
           MyExcel.ActiveSheet.Cells(R + 1, C + 1).Interior.Color = MsFlex.CellBackColor
        End If
        MyExcel.ActiveSheet.Cells(R + 1, C + 1).Interior.Pattern = xlSolid
        MyExcel.ActiveSheet.Cells(R + 1, C + 1).BorderAround 1, xlThin, xlColorIndexAutomatic
        MyExcel.ActiveSheet.Cells(R + 1, C + 1).Value = MsFlex.TextMatrix(R, C)
    
    Next C

Next R
MyExcel.Visible = True
Set MyExcel = Nothing 


RE: ارسال البيانات م الفليكس الى الاكسل - أبو العباس - 05-07-16

شكرا لك أخي فكرة جميلة

RE: ارسال البيانات م الفليكس الى الاكسل - loghbil - 05-12-16

جزاكم الله الصحة و العافية

RE: ارسال البيانات م الفليكس الى الاكسل - bidai - 17-07-17

جزاك الله خيرا
[attachment=14882][attachment=14882][attachment=14882][attachment=14882]-أحتاج إلى مساعدة:
 كيف يمكن عمل استعلام للجدول الموجود في الجدول 01
ليعطينا الجدول الجدول 02 مع أحداث حقل جديد
 بإسم "العدد" يوضع فيه عدد الجنسيات
 
-البيانات معروضة في أدات Msflexgrid  في فيجوال بازيك 6

RE: ارسال البيانات م الفليكس الى الاكسل - amrgemaey555 - 23-10-19

فعلا فكرة ممتازة
مجهود مشكور أخي الكريم