تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
ارسال البيانات م الفليكس الى الاكسل
#1

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

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

For 0 To MsFlex.Rows 1

    
For 0 To MsFlex.Cols 1
    
        MsFlex
.row R
        MsFlex
.Col C
        
If MsFlex.CellBackColor 0 Then
           If R 
0 Then
              MyExcel
.ActiveSheet.Cells(11).Interior.Color RGB(212208200)
           Else
              MyExcel
.ActiveSheet.Cells(11).Interior.Color vbWhite
           End 
If
        Else
           MyExcel.ActiveSheet.Cells(11).Interior.Color MsFlex.CellBackColor
        End 
If
        MyExcel.ActiveSheet.Cells(11).Interior.Pattern xlSolid
        MyExcel
.ActiveSheet.Cells(11).BorderAround 1xlThinxlColorIndexAutomatic
        MyExcel
.ActiveSheet.Cells(11).Value MsFlex.TextMatrix(RC)
    
    Next C

Next R
MyExcel
.Visible True
Set MyExcel 
Nothing 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة: VB_Local , عبد العزيز البسكري , سعود , sendbad100
#2
شكرا لك أخي فكرة جميلة
الرد }}}}
تم الشكر بواسطة:
#3
جزاكم الله الصحة و العافية
الرد }}}}
تم الشكر بواسطة:


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


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