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

جزاكم الله عنى خيرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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

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

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

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


PHP كود :
Private Sub FlexGrid_To_Excel(TheRows As IntegerTheCols As Integer_
  Optional GridStyle 
As Integer 1Optional 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(objXLThen
    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(intRowintCol).Value _
               
.TextMatrix(intRow 1intCol 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
.RowsMSFlexGrid1.Cols3"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(iRow0) = 1000 iRow
.TextMatrix(iRow1) = "Item" iRow
.TextMatrix(iRow2) = iRow
Next

End With
End Sub 



بالتوفيق
محاسب / أحمد عبد العليم

الى اللقاء ان شاء الله Heart
الرد
تم الشكر بواسطة: عبد العزيز البسكري , mhareek , Ahmed_Mansoor
#3
أستاذي الغالى. جزاك الله عنى الف خير
ربي ما يحرمنى منك
بكره ان شاء الله اجرب الكود.
يارب يحفظك يارب دائما سباق لفعل الخير
جعله الله في ميزان حسناتك يارب
الرد
#4
تمام رائع واكثر من رائع استازى الغالى
جربت الكود ولا اروع من كده

تسلملى يارب

جزاك الله عنى خيرا
الرد
تم الشكر بواسطة: ahmedabdelaliem , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تكرار البيانات عند الطباعة DATAREPORT دهشوش1 3 99 13-12-18, 05:03 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيفية الاتصال بقاعدة البيانات علي شبكة دون طلب اسم الجهاز وكلمة المرور kamalgadir 0 50 05-12-18, 05:58 PM
آخر رد: kamalgadir
  طباعة قيم مربعات نص غير مربوطة بقاعدة البيانات دهشوش1 4 95 30-11-18, 11:02 PM
آخر رد: دهشوش1
Question [vb6.0] كيف يتم إضهار الترقيم تلقائي المجود في قاعدة البيانات عند النقر على امر جديد ؟ Microformt 8 516 20-10-18, 09:54 PM
آخر رد: gonm64
  الحدف من الفليكس كريد WAFY 0 77 30-09-18, 07:12 PM
آخر رد: WAFY
  السلام عليكم ورحمة الله وبركاتة - ارجو المساعدة فى ترتيب البيانات داخل الفلكس جريد mhareek 4 268 14-07-18, 09:17 PM
آخر رد: mhareek
Question [vb6.0] هل يمكن تشفير قاعدة البيانات اكسس بحث لا يمكن فتحها من خلال برنامج Microsoft Access Microformt 0 251 05-05-18, 02:40 PM
آخر رد: Microformt
  [vb6.0] تعديل عرض البيانات من الاكسيل الى الليست فيو w123eg 0 173 25-04-18, 10:17 PM
آخر رد: w123eg
  من لديه مثال عن طباعه الصفوف المختاره من الفلكس جريد الي الاكتيف ريبورت scsi7000 4 315 13-04-18, 10:14 PM
آخر رد: mhareek
  احبابي أرجو ألمساعده بخصوص الترقيم التلقائي mhareek 6 294 13-04-18, 10:12 PM
آخر رد: mhareek

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


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