Access и Excel: добавление данных в открытую книгу

Хазар Нубов

Дата: 28.02.2008 22:56:37

Приветствую, Народ!

Имеется открытый файл EXCEL “DataProd.xls”
В этом файле имеется 2-листа “First” и “Second”

Требуется загнать данные в этот открытый файл данные на 2-ой лист “Second”

Пытаюсь с помощью кода

Set xlApp = New Excel.Application
xlApp.Visible = False
Set xlBook = xlApp.Workbooks("DataProd ") 
Set xlSheet = xlBook.Worksheets("Second")

Но код не работает. Где скрылась ошибка?

Понимаю, что NEW использовать нельзя и наверно нужно указать путь к этому файлу?

Student007

Дата: 29.02.2008 00:01:25

Хазар Нубов

Понимаю, что NEW использовать нельзя и наверно нужно указать путь к этому файлу?

А Вы понимаете, что нужно сообщить какая именно ошибка возникает и на какой строчке?

booby

Дата: 29.02.2008 00:05:58

Student007

Хазар Нубов

Понимаю, что NEW использовать нельзя и наверно нужно указать путь к этому файлу?

А Вы понимаете, что нужно сообщить какая именно ошибка возникает и на какой строчке?

ошибка в третьей строчке.
теперь вам понятней стало?

booby

Дата: 29.02.2008 00:23:24

Хазар, ты пока ответа ждешь,
полистай
http://www.sql.ru/forum/actualtopics.aspx?search=getobject+xls&bid=4

может что полезное найдется.

Хазар Нубов

Дата: 29.02.2008 00:35:42

Ну ошибка самая распространенная: просто ничего не выводит в EXCEL, т.е вообще никакого результата.

Student007

Дата: 29.02.2008 08:19:52

А где сам код, которым Вы загоняете данные на лист "Second"?

Старый юнга

Дата: 29.02.2008 10:46:14

Если стоит СР2 для офиса ХР или выше, вставить данные в прилинкованую таблицу екселя вы не сможите. Заморочки майкрософта. Только импорт и экспорт.

Хазар Нубов

Дата: 01.03.2008 16:17:52

Можно...

Set xlApp = GetObject(, "Excel.Application")
xlApp.Application.Visible = False
Set xlSheet = xlApp.Worksheets("Klient") '..Activate

Далее

xlSheet.Cells(i, 1)....

Т.е. как обычно :-)