Вопрос № 82702: Здравствуйте уважаемые эксперты, как можно пробежать по списку dir1 от начала до конца выводя путь каждой папки в text1...Вопрос № 82761: Как средствами VBA преобразовать отчет в талицу Excel с учетом групировок. Стандартное преобразование из Access создает очень сложную и неудобную для редактирования талицу. А хочется получить талицу по виду как в отчете.
Подскажите или пошлите к ...
Вопрос № 82.702
Здравствуйте уважаемые эксперты, как можно пробежать по списку dir1 от начала до конца выводя путь каждой папки в text1
Отвечает: PsySex
Здравствуйте, Чалагаев И.Г!
Вот процедура которая выводит весь список папок в ListBox, включая вложенные. На форму ListBox и кнопку. См. приложение.
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 16.04.2007, 01:47 Оценка за ответ: 5 Комментарий оценки: Спасибо, очень рад что хоть кто-то еше помогает...пятерка!
Отвечает: Alec Perle
Здравствуйте, Чалагаев И.Г!
Воспользуйтесь свойством List контрола DirListBox
В приложении код, выводящий в текстовом поле список каталогов в выбранном.
В элементе Text1 установите свойство MultiLine = True
Приложение:
--------- Пессимист - это хорошо информированный оптимист (а оптимист - хорошо проинструктированный пессимист)
Ответ отправил: Alec Perle (статус: 7-ой класс)
Ответ отправлен: 16.04.2007, 20:54 Оценка за ответ: 5 Комментарий оценки: спасибо очень рад что здесь есть кто-то живой :)
Вопрос № 82.761
Как средствами VBA преобразовать отчет в талицу Excel с учетом групировок. Стандартное преобразование из Access создает очень сложную и неудобную для редактирования талицу. А хочется получить талицу по виду как в отчете.
Подскажите или пошлите к другим источникам;)
Валерий
Отправлен: 16.04.2007, 10:54
Вопрос задал: Hush_007 (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: QDSota
Здравствуйте, Hush_007!
Примерно так:
set Excel=CreateObject("Excel.Application")
set WB=Excel.Workbooks.Add
set Sh=WB.activesheet
Ответ отправил: QDSota (статус: Профессионал) Тел.: 8-916-53-43-916 ICQ: 84611301 ---- Ответ отправлен: 16.04.2007, 15:39
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Hush_007!
Или так:
...
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Open "C:Книга1.xls" 'Открытие шаблона
If Err.Number = 1004 Then MsgBox " - нет шаблона '"
Set XLT = XL.Worksheets("Лист1") 'переменная листа
код заполнения...
Set XLT = Nothing
Set XL = Nothing
...
при использовании заготовленного шаблона