Проблеммы с экспортом в Excel

@lynx505 · Регистрация: 13.06.2012

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

Доброго времени суток !
Имеется главная форма, в которой подчиненная ленточная форма. на главной форме
кнопка для экспорта данных в Excel. По данному ниже коду, выдает ошибку на строке.
ПЛИЗ, помогите разобраться.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Кнопка99_Click()
 
Dim app As Excel.Application
Dim strDOT As String
Dim ds As Object
Set app = New Excel.Application
app.Visible = True
strDOT = CurrentProject.Path & "\договора\Бланки.xltx"
app.Workbooks.Add strDOT
    Set ds = Me!("ЗаказыТовар").Form.RecordsetClone
    Dim i&: i = 8
    ds.MoveFirst
    
    Do While Not ds.EOF
       
        ex.Cells("A" & i) = ds("Артикул")
        ex.Cells("b" & i) = ds("Наименование")
        ex.Cells("c" & i) = ds("Цена")
        ex.Cells("d" & i) = ds("Колличество")
        ex.Cells("e" & i) = ds("Стоимость")
        i = i + 1
        ds.MoveNext
    Loop
End Sub

Добавлено через 2 минуты
сори забыл указать строку на которой выдает ошибку:

Code
1
ex.Cells("A" & i) = ds("Артикул")

@Agapov_stas · 14.06.2012, 15:33

А Вы уверены, что Вам это необходимо, именно рекордсетом перебирать данные подчиненной формы?..
Вам нужно отфильтрованные данные вывести в шаблон Excel,так?.
Почему не вывести их сразу из выполненного запроса?..

По сабжу, попробуйте так:

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
Private Sub Кнопка99_Click()
 
Dim app As Excel.Application
Dim strDOT As String
Dim ds As Object
Set app = New Excel.Application
app.Visible = True
strDOT = CurrentProject.Path & "\договора\Бланки.xltx"
app.Workbooks.Add strDOT
    Set ds = Me("ЗаказыТовар").Form.RecordsetClone 
    Dim i&: i = 5
    ds.MoveFirst
    
    Do While Not ds.EOF
       
        app.Cells(i,1) = ds("Артикул")
        app.Cells(i,2) = ds("Наименование")
        app.Cells(i,3) = ds("Цена")
        app.Cells(i,4) = ds("Колличество")
        app.Cells(i,5) = ds("Стоимость")
        i = i + 1
        ds.MoveNext
    Loop
End Sub

mobile · 14.06.2012, 15:33

1. Не определена переменная ex
2. Метод CopyFromRecordset наше все. Цикл по листу екселя не нужен.

@lynx505 · 14.06.2012, 15:52 **[ТС]**

ОГРОМНОЕ ВСЕМ СПАСИБО !!!!!!
разобрался с Вашей помощью.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	14.06.2012, 15:33
	1. Не определена переменная ex 2. Метод CopyFromRecordset наше все. Цикл по листу екселя не нужен. 1

@lynx505 0 / 0 / 0 Регистрация: 13.06.2012 Сообщений: 13
	14.06.2012, 15:52 [ТС]
	ОГРОМНОЕ ВСЕМ СПАСИБО !!!!!! разобрался с Вашей помощью. 0