LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
 Forums Обновлено :: 06 февраля 2005
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Программа...
 Тема: Программа для переноса данных в Excel
 
 15.06.2007 21:09:24
Alx
5 сообщения


Тема: Программа для переноса данных в Excel
Кто-нибудь может помочь с программой для переноса данных в Excel:
Необходимо по нажатию готовой кнопки в форме выполнить готовый запрос, открыть готовый файл Excel, очистить там определенный диапазон ячеек и поместить результаты запроса в него, как текст.



P.S. Общие вопросы по базе данных
Автор: Alx от 16.05.2005 11:09:17 Источник ...
 15.06.2007 21:09:24
Catalina1
11 сообщения


RE: Программа для переноса данных в Excel
Событие -> Нажатие кнопки.
Навешиваем околоподобную процедуру:
(при условии, что Ехель лежит в той же папке, что и база)
Private Sub button_Click()
On Error GoTo Err_Exit
Dim xlApp As Object 'определяем объект
Set xlApp = CreateObject("Excel.Application") 'создаем экземпляр объекта Ехель
With xlApp
.Visible = False 'скрываем Ехель
.DisplayAlerts = False ' не выводим на экран
.Workbooks.Open Application.CurrentProject.Path & "\" имя_файла.xls ' открываем файл
.Worksheets(1).Activate ' определяем рабочую книгу
xlApp.Cells(номер_строки, номер_столбца).Value="То, что надо записать в данную ячейку" 'работаем с ячейками книги (при необходимости загоняем в цикл)
.Workbooks(1).Close False ' после всех манипуляций закрываем книгу
End With
xlApp.Quit ' закрываем Ехель
Set xlApp = Nothing 'забываем обо всем
Err_Exit: ' на случай ошибки должны приложение Ехель закрыть
MsgBox Err.Description
Err.Clear
xlApp.Quit
End Sub
Надо более подробней - обращайтесь :-)



P.S. Общие вопросы по базе данных
Автор: Catalina от 17.05.2005 13:28:17 Источник ...
 15.06.2007 21:09:25
Catalina1
11 сообщения


RE: Программа для переноса данных в Excel
Событие -> Нажатие кнопки.
Навешиваем околоподобную процедуру:
(при условии, что Ехель лежит в той же папке, что и база)
Private Sub button_Click()
On Error GoTo Err_Exit
Dim xlApp As Object 'определяем объект
Set xlApp = CreateObject("Excel.Application") 'создаем экземпляр объекта Ехель
With xlApp
.Visible = False 'скрываем Ехель
.DisplayAlerts = False ' не выводим на экран
.Workbooks.Open Application.CurrentProject.Path & "\" имя_файла.xls ' открываем файл
.Worksheets(1).Activate ' определяем рабочую книгу
xlApp.Cells(номер_строки, номер_столбца).Value="То, что надо записать в данную ячейку" 'работаем с ячейками книги (при необходимости загоняем в цикл)
.Workbooks(1).Close False ' после всех манипуляций закрываем книгу
End With
xlApp.Quit ' закрываем Ехель
Set xlApp = Nothing 'забываем обо всем
Err_Exit: ' на случай ошибки должны приложение Ехель закрыть
MsgBox Err.Description
Err.Clear
xlApp.Quit
End Sub
Надо более подробней - обращайтесь :-)



P.S. Общие вопросы по базе данных
Автор: Catalina от 17.05.2005 13:28:36 Источник ...
 Страница 1 из 1
СледующийПредыдущийНет оценки
  Программирование  Microsoft Access. Файлы mdb и accdb  Тема: Программа...
ПоискПоиск  Список форумовСписок форумов  
right
Начало | Forums
Copyright 2002-2016 Leadersoft.ru   ::  Leadersoft  ::  Соглашение о безопасности  ::  Условия использования
Не забудьте сохранить ссылку на страницу с кодом для дальнейшего анализа
Сайт разработан на базе технологий ASP.NET, DotNetnuke