Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Печать несколько листов
 
Здравствуйте.
Имеется несколько листов в книге. Требуется выводить на печать несколько листов, но не по порядку, а произвольно (например: Лист1, Лист5, Лист2). Так же нужно в каждом листе вывести только первую страницу, а остальные отбросить. Произвольный диапазон выводится одним заданием, эти строки не подходять:
Код
 Sheets("Лист1").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
 Sheets("Лист5").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
 Sheets("Лист2").Select
 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1

Проблема вот в чем. Нужно выводить листы из VBA на принер с двухсторонней печатью, т.е. подать не прерывный поток (одним заданием) всех нужных Листов, в определенном порядке. Количество листов и порядок изменяется каждый раз.
Изменено: sh11 - 10.05.2013 12:36:21
Преобразование XML в текст
 
Здравствуйте.  
Есть XML файл. Нужно открыть его, с помощью VBA как текст, но без служебной информации (теги и т.п.), только полезные данные. Вопрос: как это можно сделать, есть ли функция?
Загрузка Веб-страницы
 
Здравствуйте. Такая ситуация: нужно каждый день брать данные со странице из интернета и заносить в таблицу. Вопрос: можно, с помощью VBA, загрузить эту страницу и выбрать нужные данные, например как открытие файла в текстовом режиме.
Ошибка в SQL запросе
 
Здравствуйте.  
Подскажите, пожалуйста, где ошибка?  
Запрос к БД:  
rstDog.Open "SELECT * FROM Договора WHERE Номер договора=1", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFile  
sFile - путь к БД  
 
Выскакивает:  
Run-time error '-2147217900(80040e14)':  
Ошибка синтаксиса (пропущен оператор) в выражении запроса 'Номер договора=1'
Страницы: 1
Наверх