[ferouk]

كيف يمكن نقل صفيف من البيانات  إلى عدة خلايا sheet- دفعة واحدة
في ملف اكسل واحد

xlapp.Range("b" & 6).Value = ComboBox1.Text
xlapp.Range("f" & 6).Value = ComboBox3.Text
xlapp.Range("m" & 6).Value = ComboBox2.Text

اريد نقل هذه البيانات الى 5خلايا   5sheet
دفعة واحدة في ملف اكسل واحد

[mrnooo2000]

جرب هذا الكود 

كود :

convert your datatable to 2D array '
Dim arr(dt.Rows.Count - 1, dt.Columns.Count - 1) As Object
        For r As Integer = 0 To dt.Rows.Count - 1
            Dim dr As DataRow = dt.Rows(r)
            For c As Integer = 0 To dt.Columns.Count - 1
                arr(r, c) = dr(c)
            Next c
        Next r

'write array data to excel
        Dim c1 As Excel.Range = CType(wsh.Cells(topRow, 1), Excel.Range)
        Dim c2 As Excel.Range = CType(wsh.Cells(topRow + dt.Rows.Count - 1, dt.Columns.Count), Excel.Range)
        Dim range As Excel.Range = wsh.get_Range(c1, c2)

        range.Value = arr