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

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

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

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

جرب هذا الكود

كود :

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

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

ferouk

mrnooo2000