Передача массива данных в Excel или создание двумерного динамического массива

@RNDPhoenix · Регистрация: 22.04.2012

Студворк — интернет-сервис помощи студентам

Нашел на просторах вот такое:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
 
   'Открыть новую книгу Excel
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
   'Создать массив с 3 столбцами и 100 строками
   Dim DataArray(1 To 100, 1 To 3) As Variant
   Dim r As Integer
   For r = 1 To 100
      DataArray(r, 1) = "ORD" & Format(r, "0000")
      DataArray(r, 2) = Rnd() * 1000
      DataArray(r, 3) = DataArray(r, 2) * 0.7
   Next
 
   'Добавить заголовки в строку 1
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:C1").Value = Array("Order ID", "Amount", "Tax")
 
   'Передать массив на лист, начиная с ячейки A2
   oSheet.Range("A2").Resize(100, 3).Value = DataArray
   
   'Сохранить книгу и закрыть Excel
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit

В таком виде все прекрасно работает, но мне нужен либо двумерный динамический массив, либо 2 одномерных.
В таком виде уже ничего не работает:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Command1_Click()
Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
    Dim m
    Dim n
   
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
  
   Dim DataArray(m, 1)
   Dim r As Integer
   For r = 1 To 100
        ReDim Preserve DataArray(m, 0)
        DataArray(m, 0) = "ORD" & Format(r, "0000")
        ReDim Preserve DataArray(m, 1)
        DataArray(m, 1) = Rnd() * 1000
        m = m + 1
   Next
 
   
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:C1").Value = Array("Order ID", "Amount", "Tax")
 
   oSheet.Range("A2").Resize(m, n).Value = DataArray
   
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
End Sub

А в таком виде в ексель во всех 100 ячейках один и тот же, первый элемент массива

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub Command1_Click()
Dim oExcel As Object
   Dim oBook As Object
   Dim oSheet As Object
    
   Set oExcel = CreateObject("Excel.Application")
   Set oBook = oExcel.Workbooks.Add
 
 
   Dim DataArray()
   Dim r As Integer
   For r = 1 To 100
        ReDim Preserve DataArray(m)
        DataArray(m) = Rnd() * 1000
        m = m + 1
   Next
 
  
   Set oSheet = oBook.Worksheets(1)
   oSheet.Range("A1:C1").Value = Array("Order ID", "Amount", "Tax")
 
  
   oSheet.Range("A2").Resize(m).Value = DataArray
   
   
   oBook.SaveAs "C:\Book1.xls"
   oExcel.Quit
End Sub

@Alex77755 · 08.12.2014, 19:55

И да, с выгрузкой чета не понимаю, чего не так

Visual Basic
1
  oSheet.Range("A2").Resize(m, 2).Value = oExcel.transpose(DataArray)

@RNDPhoenix · 08.12.2014, 19:58 **[ТС]**

Аааааа, все, понял! Всем спасибо, вопрос закрыт!

@RNDPhoenix · 22.12.2014, 19:17 **[ТС]**

Хорошо что тема еще не закрыта

Вопрос мелкий, новую создавать не стоит.
в общем вот:

Visual Basic
1
2
3
4
5
6
For i = 2 To k - 1
      x = x+ 1
   Set oSheet = oBook.Worksheets.Add()
   Set oSheet = oBook.Worksheets(x)
   oSheet.Range("B1").Value = "s1"
next i

Новые листы в книге создаются, но заполняется данными только лист 4 и данными которые соответствуют последнему элементу цикла

@Апострофф · 22.12.2014, 19:30

Сообщение от RNDPhoenix

Set oSheet = oBook.Worksheets(x)

нам отсюда не видно, что такое X, где и как объявлено?

@RNDPhoenix · 22.12.2014, 19:38 **[ТС]**

Сообщение от Апострофф

нам отсюда не видно, что такое X, где и как объявлено?

обычный счетчик, не объявлял

@Апострофф · 22.12.2014, 19:42

Сообщение от RNDPhoenix

обычный счетчик, не объявлял

Тогда приведи полный код процедуры, а лучше модуля, а ещё лучше весь проект.

@RNDPhoenix · 22.12.2014, 21:43 **[ТС]**

да тут модули большие.... Как можно вообще провернуть смену листов и заполнение в цикле?

@Апострофф · 22.12.2014, 21:53

Сообщение от RNDPhoenix

обычный счетчик, не объявлял

Значит

Visual Basic
1
Set oSheet = oBook.Worksheets(x)

каждый раз обращается к oBook.Worksheets(1) - другого объяснения не вижу...

@RNDPhoenix · 22.12.2014, 22:13 **[ТС]**

в том то и дело, что обращается не к 1, а почему-то к 4, к первому листу, который создается

Visual Basic
1
Set oSheet = oBook.Worksheets.Add()

@Апострофф · 22.12.2014, 22:20

Сообщение от Апострофф

приведи полный код процедуры, а лучше модуля, а ещё лучше весь проект.

Или гадать будем дооолго.

Новые блоги и статьи Все статьи Все блоги /
Программное добавление префикса в нумерацию документов Maks 27.10.2026 Реализация из решения ниже выполнена в самописной конфигурации на БСП (помощь начинающему коллеге). Задача: Программно добавить префикс в нумерацию документов. Решение: В модуле объекта. . .	После закрытия оутлука продолжает висеть процесс в диспетчере задач Maks 27.10.2026 С недавнего времени в продакшене возникла проблема: при закрытии оутлука в диспетчере задач продолжал висеть процесс outlook. exe. Проблема возникла после установки MS Office 2021 LTSC на машинах, под. . .	Baragoz - DPS/HPS бот для WoW 3.3.5a, многоязычный AmbA 26.10.2026 Хотите ещё ботов? У меня есть один! А я пока отдохну от него. https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=12062&stc=1&d=1793007952 Инструкция внутри. https:/ / youtu. be/ VpfFZSUDGnQ. . .	Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .
FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .

@RNDPhoenix 0 / 0 / 1 Регистрация: 22.04.2012 Сообщений: 42
	08.12.2014, 19:58 [ТС]
	Аааааа, все, понял! Всем спасибо, вопрос закрыт! 0

@RNDPhoenix 0 / 0 / 1 Регистрация: 22.04.2012 Сообщений: 42
	22.12.2014, 21:43 [ТС]
	да тут модули большие.... Как можно вообще провернуть смену листов и заполнение в цикле? 0