تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كيف يمكن نقل صفيف من البيانات إلى عدة خلايا sheet- دفعة واحدة
#1
كيف يمكن نقل صفيف من البيانات  إلى عدة خلايا sheet- دفعة واحدة
في ملف اكسل واحد

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

اريد نقل هذه البيانات الى 5خلايا   5sheet
دفعة واحدة في ملف اكسل واحد
الرد }}
تم الشكر بواسطة:
#2
جرب هذا الكود 

كود :
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
الرد }}
تم الشكر بواسطة: sendbad100



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم