Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Exel. / 8 сообщений из 8, страница 1 из 1
15.02.2007, 08:56
    #34332066
Eriksson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
Здравствуйте,
У меня в одной рабочей области (Worksheets) располагаются несколько блоков данных... С помощью какой команды можно получить значение строки, которая является началом листа при печати - я хочу, чтобы программа располагала каждый блок данных так, чтобы они выводились на отдельном листе (при печати), но находились в одной рабочей области.
Заранее благодарен за вашу помощь.
...
Рейтинг: 0 / 0
15.02.2007, 09:00
    #34332072
klen_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
В меню
Файл
Область печати
Задать
...
Рейтинг: 0 / 0
15.02.2007, 11:26
    #34332552
Eriksson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
Нее... я пишу в VB 6.3 при Exel - программа формирует несколько блоков данных на рабочем листе, и мне надо программно, с помощью команд, определить расстояние между этими блоками данных так, что бы каждый блок был выведен на отдельном листе при печати.
Но все же спасибо за внимание )
...
Рейтинг: 0 / 0
20.02.2007, 15:51
    #34344395
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
задавай на Excel'евском форуме, там бы быстро ответили :)
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub test()
Dim HPB As HPageBreak
    For Each HPB In ActiveSheet.HPageBreaks
        Debug.Print HPB.Location.Address
        Debug.Print HPB.Location.Row
    Next HPB
End Sub
...
Рейтинг: 0 / 0
20.02.2007, 16:02
    #34344444
Eriksson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
Спасибо
...
Рейтинг: 0 / 0
21.02.2007, 07:38
    #34345621
Eriksson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
Когда внедрил модуль в свою программу - начал выдавать ошибки

Dim HPB As HPageBreak
For Each HPB In ActiveSheet.HPageBreaks <---------------- Error
Debug.Print HPB.Location.Address
Debug.Print HPB.Location.Row
If StrNextBase < HPB.Location.Row Then
StrNextBase = HPB.Location.Row
Exit For
End If
MsgBox (HPB.Location.Row)
Next HPB

По разным условиям - выдает разные ошибки:
1. Run time error 424 Object required
2. и как то раз выскакивала Error 9

Почему он не хочет работать? - модуль у меня находиться в цикле и для каждый таблицы, положение которой определяется переменной StrNextBase определяется новое положение, учитывая начало следующего листа...
...
Рейтинг: 0 / 0
21.02.2007, 08:59
    #34345747
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
то пример на VBA? просто, чтоб показать с какими объектами работать, а в VB6 нужно что-нибудь типа:
Код: plaintext
1.
2.
3.
4.
5.
6.
Private Sub Test(XLApp As excel.Application)
Dim HPB As excel.HPageBreak
    For Each HPB In XLApp.ActiveSheet.HPageBreaks
        Debug.Print HPB.Location.Address
        Debug.Print HPB.Location.Row
    Next HPB
End Sub
XLApp - соотв. подключенный Excel
...
Рейтинг: 0 / 0
21.02.2007, 11:16
    #34346287
Eriksson
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBA и Exel.
Спасибо,
да, это VBA - а как определять этот XLApp... как его подгрузить? а то у меня выдает ошибку 91 - Object variable or block variable not set.
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA и Exel. / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]