Небольшой урок по передаче информации из Access в Excel. Имеются примеры...
Передача информации из Access в Excel
Одно из основных преимуществ MS Office 97 и MS Office 2000 состоит в том что во всех офисных приложениях используется один язык программирования - Visual Basic Для того чтобы перенести информацию из одного офисного приложения в другое необходимо использовать макросы или программные модули. Второе более предпочтительно.
В данном примере (Access-Excel.mdb) - (MSA97) я постарался показать принцип переноса информации из Access в Excel. Рассматривается 2 варианта: 1.Перенос одной строки из таблицы в книгу 2.Перенос всех строк таблицы в книгу
Вкратце я расскажу о порядке действий для получения данного результата Итак: как перенести информацию из таблицы Access в Excel , не особо зная код и команды Excel Прежде всего надо составить проект ( можно в голове) чего мы хотим добиться Итак, с проектом все нормально. Приступаем непосредственно к работе: 1.Открываем новую книгу Excel. Переход по меню: Сервис – Макрос – Начать запись Имя макроса неважно – пишет Макрос1. Пускай будет... Нажимаем ОК. 2.Появляется окошко с двумя кнопками в центе экрана. Да? Все хорошо. Одна из кнопок «остановить». Эта кнопка нам понадобиться в конце работы. 3.А пока моделируем события того проекта, который мы составили. Например: наводимся на ячейку B2 и в поле ввода набираем Привет. В конце своих действий нажимаем на кнопку «остановить». Это как раз та кнопка, о которой я говорил 5 предложений выше (п.2.) 4.Теперь переход по меню: Сервис – Макрос –Редактор Visual Basic. 5.Открываем окно Редактора Visual Basic. Находим Модуль1, открываем его. 6. Теперь видно код макроса, наших действий. Выделяем весь код и записываем его в «карман» (clipboard) : пункт меню – Правка - Копировать (или Ctrl/C). 7. Открываем окно кода в форме и вставляем содержимое «кармана». 8. Затем вставляем перед кодом содержимого кармана: Set xlApp = CreateObject("excel.application") xlApp.Visible = False Workbooks.Open (“c:1.xlc”) ‘ – открываем файл “c:1.xlc” ‘ если его нет – надо предварительно его создать
И после:
ActiveWorkbook.SaveAs FileName:=(Me!SaveF), FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ' - сохраняем как exl xlApp.Application.Quit ‘закрываем приложение Excel Set xlApp = Nothing ' из приложения. Ссылка очищается Workbooks.Close ‘закрываем книгу ‘-------------------------------------- Код можно посмотреть в программе Также в примере приводятся примеры : -Выставить ориентацию листа – портретную функция- Landscape() -Выставить ориентацию листа – книжную функция – Portrait() -Функция передачи фокуса другому окну «GetActiveWindow()» -Функция создания файла Create() - Функция поиска файла FindFile() -Функция удаления файла DeleteFiles()
К сожалению, я так и не понял: почему Excel не всегда выгружается из списка задач Кто добьется этого сообщите, пожалуйста, результат