بخصوص الفيجوال والإكسل

أخى العزيز أمير البحار الـ46

هذا الكود كنت أرسل به البيانات من الجريد إلى الإكسل وهو شغال 10/10

ولكن لا تنسى أن تضيف مرجع للإكسل فى البرنامج لكى لا يعطيك رسالة خطأ عند التنفيذ

وأن تعدل المثال ليناسب القائمة

Sub ToExcel(Frm As Form, Flex As MSHFlexGrid)
 On Error GoTo ErrFound
Dim xlApp As Excel.Application
Dim XLWorkBook As Excel.Workbook
Dim I As Long, H As Long
 Frm.MousePointer = vbHourglass
    Set xlApp = CreateObject("Excel.application")
    Set XLWorkBook = xlApp.Workbooks.Add
    With Flex
      For I = 0 To .Rows - 1
        DoEvents
        For H = 0 To .Cols - 1
           xlApp.Cells(I + 1, H + 1).Value = .TextMatrix(I, H)
        Next H
      Next I
    End With
    Beep
    For I = 0 To Flex.FixedRows - 1
      xlApp.Rows(I + 1).Font.Bold = True
    Next I
    xlApp.Cells.Select
    xlApp.Columns.AutoFit
    xlApp.Cells(1, 1).Select
    xlApp.Application.Visible = True
ErrFound:
 Set xlApp = Nothing
 Set XLWorkBook = Nothing
 Frm.MousePointer = vbDefault
End Sub

طبعا أنت تعرف أى جزء ستغيره (التكرار)

أما الحصول من الإكسل على قائمة فهو مجرد أنك تغير مصدر البيانات ليكون إكسل وتعمل تكرار على الحقل اللى عاوزه وتحمله للقائمة

أعطيتك مفتاح للحل لعله ينفعك ولا ينكسر فى الباب :D

جزاك الله الف خير أخي abulyaman على التوضيح

لقد عدلت على الحل وعمل معي تمام التمام

جزاك الله خيرا

أخي الكريم abulyaman

ياريت توضحلي بمثال طريقة سحي بيانات من عمود في الإكسل إلى ليست بوكس

لأني حاولت ولم أنجح

شكرا لك مقدما

لقد توصلت إلى الحل أخي الكريم

Dim db As Database
Dim rs As Recordset
Private filepath As String
Private sheetname As String



    DoEvents
    filepath = App.Path & "\Grouping.xls" 
    sheetname = "Sheet1$"
    Set db = OpenDatabase(filepath, False, False, "Excel 8.0;HDR=yes;")
    Set rs = db.OpenRecordset(sheetname)
    rs.MoveFirst
    While rs.EOF <> True   
    If rs.Fields("ROW") <> "" Then
    List1.AddItem rs.Fields("ROW")
    End If   
    rs.MoveNext
    Wend

يارب ما تعصلج معاك حاجة أبدا

ربنا يوفقك