[sooriaty03]

كويس كتب :عليكم السلام ورحمة الله وبركاته
شكرا لمساعدتك اخى الكريم
كنت اقصد ان التواريخ التى بالشيت تضاف تلقائيا فى ملف اكسيل جديد والدولة ثم النتيجه
او فى ليست بوكس حتى
شكرا لك مره اخرى

تفضل هذا هو الكود

كود :

Imports Microsoft.Office.Interop
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim exl_app As New Excel.Application
        Dim exl_wrk As Excel.Workbook
        Dim exl_wst As Excel.Worksheet
        exl_app = CreateObject("Excel.Application")
        exl_wrk = exl_app.Workbooks.Open("c:\Book1.xlsx")
        exl_wst = exl_wrk.Worksheets(1)
        Dim Counter As New List(Of String)
        Dim Values As New List(Of String)
        With exl_wst
            Dim Value1, Value2 As String
            Dim Index As Integer
            For I = 1 To .UsedRange.Rows.Count
                If Not String.IsNullOrEmpty(.Range("D" & I).Value) Then
                    Value1 = .Range("D" & I).Value.ToString.Split(" ")(0)
                    Value2 = .Range("E" & I).Value
                    Index = Values.IndexOf(Value1)
                    Application.DoEvents()
                    If Index = -1 Then
                        Values.Add(Value1)
                        Counter.Add("0")
                        Index = Values.Count - 1
                    End If
                    Counter.Item(Index) = Val(Counter.Item(Index)) + IIf(Value2 = TextBox1.Text, 1, 0)
                End If
            Next
        End With
        ListBox1.Items.AddRange(Values.ToArray)
        ListBox2.Items.AddRange(Counter.ToArray)
    End Sub
End Class

بالتوفيق