منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ألمساعده فى تصدير البيانات من الفليكس جريد الى الكسيل

ارجو المساعده. اريد كود ترحيل محتويات البحث الموجوده فى الفليكس جريد الى الاكسيل

جزاكم الله عنى خيرا

السلام عليكم ورحمة الله وبركاته

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

el قم بإضافة مكتبة Excel من

Project >>> References <<< Microsoft Excel 14 or 12 Object Library

ثم اضف هذا الكود الى المشروع

PHP كود :

Private Sub FlexGrid_To_Excel(TheRows As Integer, TheCols As Integer, _
  Optional GridStyle As Integer = 1, Optional WorkSheetName _
  As String)
On Error Resume Next
Dim objXL As New Excel.Application
Dim wbXL As New Excel.Workbook
Dim wsXL As New Excel.worksheet
Dim intRow As Integer
Dim intCol As Integer

If Not IsObject(objXL) Then
    MsgBox "You need Microsoft Excel to use this function", _
       vbExclamation, "Print to Excel"
    Exit Sub
End If



On Error Resume Next


objXL.Visible = True
Set wbXL = objXL.Workbooks.Add
Set wsXL = objXL.ActiveSheet


With wsXL
    If Not WorkSheetName = "" Then
        .Name = WorkSheetName
    End If
End With
    
 
For intRow = 1 To TheRows
    For intCol = 1 To TheCols
        With MSFlexGrid1
            wsXL.Cells(intRow, intCol).Value = _
               .TextMatrix(intRow - 1, intCol - 1) & " "
        End With
    Next
Next

 
For intCol = 1 To TheCols
    wsXL.Columns(intCol).AutoFit
    wsXL.Columns(intCol).AutoFormat (1)
    wsXL.Range("a1", Right(wsXL.Columns(TheCols).AddressLocal, _
         1) & TheRows).AutoFormat GridStyle
Next
End Sub
Public Sub Export_To_Excel()
On Error Resume Next
FlexGrid_To_Excel MSFlexGrid1.Rows, MSFlexGrid1.Cols, 3, "AhmedAbdulaliem"
End Sub

Private Sub Command1_Click()
Call Export_To_Excel
End Sub

Private Sub Form_Load()
Dim iRow As Integer
Command1.Caption = "Export to Excel"
With MSFlexGrid1
.Cols = 3
.Rows = 5
.TextArray(0) = "Code"
.TextArray(1) = "Item Name"
.TextArray(2) = "Price"

For iRow = 1 To .Rows - 1
.TextMatrix(iRow, 0) = 1000 + iRow
.TextMatrix(iRow, 1) = "Item" & iRow
.TextMatrix(iRow, 2) = 9 + iRow
Next

End With
End Sub 

بالتوفيق

أستاذي الغالى. جزاك الله عنى الف خير
ربي ما يحرمنى منك
بكره ان شاء الله اجرب الكود.
يارب يحفظك يارب دائما سباق لفعل الخير
جعله الله في ميزان حسناتك يارب

تمام رائع واكثر من رائع استازى الغالى
جربت الكود ولا اروع من كده

تسلملى يارب

جزاك الله عنى خيرا

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mhareek

ahmedabdelaliem

mhareek

mhareek