Результат запроса выгрузить на лист существующего файла Excell

@alexpro1979 · Регистрация: 08.06.2015

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

Доброе утро, подскажите каким образом результат запроса выгрузить на определенный лист существующего файла Excell. На другом листе идут расчеты.

mobile · 13.03.2016, 10:29

Например так

Visual Basic

Dim oapp As Object, owrk As Object, osh As Object
Set owrk = GetObject("C:\путь\имяфайла.xls")
Set oapp = owrk.Application
Set osh = owrk.Worksheets(3)             'Выгружаем на третий лист
owrk.Windows(1).Visible = True
osh.Range("B12").copyfromrecordset rst   'Записываем рекордсет, начиная с ячейки B12
oapp.Visible = True

Добавлено через 12 минут
Впрочем можно и по имени листа. Не только по номеру

Visual Basic

1	Set osh = owrk.Worksheets("Лист3") 'Выгружаем на третий лист

@alexpro1979 648 / 101 / 11 Регистрация: 08.06.2015 Сообщений: 1,564
		1
	Результат запроса выгрузить на лист существующего файла Excell 13.03.2016, 09:19. Показов 1196. Ответов 1 Метки нет (Все метки) Доброе утро, подскажите каким образом результат запроса выгрузить на определенный лист существующего файла Excell. На другом листе идут расчеты. 0

	13.03.2016, 10:29

Результат запроса выгрузить на лист существующего файла Excell

Решение