ник: АлаяЗаря
Еще раз доброго времени суток!
вот что имею, написанный мною через одно место но работающий код
1. GetSQL
2. DoCmd.OutputTo acQuery, "фильтрпоизделию", acFormatXLS, "фильтр.xls", False, "", 0
3. Set xlapp = CreateObject("Excel.Application")
4. Set xlbook = xlapp.Workbooks.Open("фильтр.xls")
5. Set xlsheet = xlbook.ActiveSheet
6. xlsheet.Name = "фильтр"
7. xlbook.SaveAs (ExportFile), xlNormal
8. xlbook.Close
9. Set xlbook = xlapp.Workbooks.Open(ExportFile)
10. Set xlsheet = xlbook.Worksheets("фильтр")
11. xlsheet.Activate
|
бился три дня, но знаю можно написать легче и проще, долго открывает... немного опишу по пунктам:
1. Выполняю функцию сбора данных (по принцыпу луковской кукурузы)
2. Импортирую в файл Excel - по другому не умею =)
3. Приложение Excel
4. Открываю импортируемый файл
5. Как я понял выбираю активный лист =)
6. переименовываю лист
7. Сохраняю все это дело (вот тут проблема, т.к. пункт 2 сохраняет почему то только для чтения, а моя основная задача это редактирование листа, об этом во втором вопросе =)))
8. Закрываю книгу
9. Открываю книгу =)
10. выбираю лист
11. делаю его активным
.... дальше начинаю редактировать....
собственно вопрос: как упростить все это? Заранее прошу не материться, для меня почему то экспорт в эксель оказался ахилесовой пятой.... =((