- Код: Выделить всё
Dim oExcel As Excel.Application = New Excel.Application
Dim oBook As Excel.Workbook = oExcel.Workbooks.Add()
Dim oSheet As Excel.Worksheet = oBook.ActiveSheet
Dim rng As Excel.Range
oExcel.Visible = True
rng = oSheet.Range(oSheet.Cells(startRow, col), oSheet.Cells(endRow, col))
dim arr(endRow-startRow) as object
...заполняю массив...
rng = arr
и получаю, что во всех строчках содержится содержимое первого элемента из массива.
