+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] كيف يمكن نقل صفيف من البيانات إلى عدة خلايا sheet- دفعة واحدة (/showthread.php?tid=25234)
كيف يمكن نقل صفيف من البيانات إلى عدة خلايا sheet- دفعة واحدة - ferouk - 04-06-18
كيف يمكن نقل صفيف من البيانات إلى عدة خلايا sheet- دفعة واحدة
في ملف اكسل واحد
xlapp.Range("b" & 6).Value = ComboBox1.Text
xlapp.Range("f" & 6).Value = ComboBox3.Text
xlapp.Range("m" & 6).Value = ComboBox2.Text
اريد نقل هذه البيانات الى 5خلايا 5sheet
دفعة واحدة في ملف اكسل واحد
RE: كيف يمكن نقل صفيف من البيانات إلى عدة خلايا sheet- دفعة واحدة - mrnooo2000 - 04-06-18
جرب هذا الكود
كود :
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