Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 510
от 21.04.2007, 12:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 256, Экспертов: 40
В номере:Вопросов: 2, Ответов: 4


Вопрос № 82702: Здравствуйте уважаемые эксперты, как можно пробежать по списку dir1 от начала до конца выводя путь каждой папки в text1...
Вопрос № 82761: Как средствами VBA преобразовать отчет в талицу Excel с учетом групировок. Стандартное преобразование из Access создает очень сложную и неудобную для редактирования талицу. А хочется получить талицу по виду как в отчете. Подскажите или пошлите к ...

Вопрос № 82.702
Здравствуйте уважаемые эксперты, как можно пробежать по списку dir1 от начала до конца выводя путь каждой папки в text1
Отправлен: 15.04.2007, 21:04
Вопрос задал: Чалагаев И.Г (статус: 1-ый класс)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 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

'Здесь заполнение таблицы EXCEL
Sh.Cells(5,5)="Hush007"
'...

WB.visible=true

---------
Открыть глаза навстречу солнцу
Ответ отправил: 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
...
при использовании заготовленного шаблона
Ответ отправил: Тесленко Евгений Алексеевич (статус: 6-ой класс)
Ответ отправлен: 16.04.2007, 20:06


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Email: support@rusfaq.ru, тел.: +7 (926) 535-23-31
Авторские права | Реклама на портале
Версия системы: 4.50 (beta) от 15.04.2007
Яндекс Rambler's Top100

В избранное