Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1507200 Mon, 02 Apr 2007 07:20:14 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1507200 Цитата Old Bat @ 30.03.07, 10:57

Set InsertNextOutputTable = tblTable

, но лучше сразу

Set InsertNextOutputTable = docDocument.Tables.Add(Range:=rngTable, NumRows:=1, NumColumns:=5)

Спасибо за подсказку. Все работает. Ссылку почитаю. Держи плюс ;)]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1505179 Fri, 30 Mar 2007 13:36:50 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1505179 http://word.mvps.org/FAQs/MacrosVBA/]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1505017 Fri, 30 Mar 2007 12:12:40 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1505017 Цитата

что за источник ??

VBA for Dummies :yes:]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1504864 Fri, 30 Mar 2007 10:57:42 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1504864

Set InsertNextOutputTable = tblTable

, но лучше сразу

Set InsertNextOutputTable = docDocument.Tables.Add(Range:=rngTable, NumRows:=1, NumColumns:=5)

Цитата awax @ 30.03.07, 07:03

Учебник по VBA ответа на этот вопрос не дает

:huh: что за источник ?? см. создание ссылки на объект]]> Old Bat VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1504458 Fri, 30 Mar 2007 07:03:20 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1504458

Private Function InsertNextOutputTable(docDocument As Document, intTableIndex As Integer) as table

Dim tblTable As table

Dim rngTable As Range

' ...

Set tblTable = docDocument.Tables.Add(Range:=rngTable, NumRows:=1, NumColumns:=5)

InsertNextOutputTable = tblTable

End Function

Используется ф-я следующим образом:

Dim tblTargetTable As table

' ...

Set tblTargetTable = InsertNextOutputTable(docDocument:=docActive, intTableIndex:=visitUser.intIndex)

Во время прогона макроса, при входе в функцию, компилятор сразу останавливает выполнение программы, подсвечивает InsertNextOutputTable в последнем выражении функции и выдает ошибку Compile error: Invalid use of property. Все типы определены и совпадают. В чем дело? Учебник по VBA ответа на этот вопрос не дает ;)]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1503124 Thu, 29 Mar 2007 08:14:25 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1503124 Цитата

Цитата (pvr @ Вчера, 17:04)
Function InsertNextOutputTable надо объявить как AS TABLE ( или OBJECT)

Это как? Table Function InsertNextOutputTable? Как в сях?

Надо юзать Help или учебник какой....

Private Function InsertNextOutputTable(docDocument As Document, intTableIndex As Integer) As Table

]]> pvr VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1503028 Thu, 29 Mar 2007 07:22:14 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1503028 Цитата pvr @ 28.03.07, 14:04

Function InsertNextOutputTable надо объявить как AS TABLE ( или OBJECT)

Это как? Table Function InsertNextOutputTable? Как в сях?

-Added 29.03.07, 07:40

Цитата Krasnaja Shapka @ 28.03.07, 16:05

то у вас

Цитата awax @ 28.03.07, 05:56

Dim rngLogFileRange As Range

то

Цитата awax @ 28.03.07, 12:39

Dim rngLogFileRange, rngRange As Range

вы определитесь, а? :)

вы пробовали свой макрос по F8 прогнать или проще в форуме спрашивать? :)))

Прошу прощения за несогласованность. Дело в том, что для краткости и четкости я убираю все то, что, как мне кажется, не относиться непосредственно к вопросу. Поэтому я убрал rngRange, но позже понял, что, возможно, этот самый rngRange и является причиной возникновения ошибки. Насколько я теперь понимаю (спасибо pvr!!!) при объявлении

Dim rngLogFileRange, rngRange As Range

переменная rngLogFileRange объявляется как variant. В моем случае это недопустимо.
А что касается F8, то я, безусловно, пользуюсь этой возможностью, но до определенного момента, пока не возникает ошибка, так что полностью прогнать макрос не получается.]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502382 Wed, 28 Mar 2007 16:05:33 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502382

Цитата awax @ 28.03.07, 05:56

Dim rngLogFileRange As Range

то

Цитата awax @ 28.03.07, 12:39

Dim rngLogFileRange, rngRange As Range

вы определитесь, а? :)

вы пробовали свой макрос по F8 прогнать или проще в форуме спрашивать? :)))]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502222 Wed, 28 Mar 2007 14:04:18 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502222 Если тип переменной опущен, то ей автоматически присваивается тип Variant, НЕ OBJECT.
Function InsertNextOutputTable надо объявить как AS TABLE ( или OBJECT)]]> pvr VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502020 Wed, 28 Mar 2007 12:39:49 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1502020 Цитата

разбей это на два оператора...

Set rngLogFileRange = parLogFile.Range
и
parLogFile.Range.Select (или rngLogFileRange.select)

Не-а, твой вариант тоже не работает. Кажется я нашел причину ошибки. Переменная rngLogFileRange объявляется вместе с еще одной:

Dim rngLogFileRange, rngRange As Range

А если их объявить так:

Dim rngLogFileRange As Range

Dim rngRange As Range

то все работает правильно. Объяснения у меня этому нет.

P.S.
Появилась другая ошибка:

Dim tblTargetTable As table

' ...

Set tblTargetTable = InsertNextOutputTable(docDocument:=docActive, intTableIndex:=visitUser.intIndex)

'-----------------------------------

Private Function InsertNextOutputTable(docDocument As Document, intTableIndex As Integer)

Dim tblTable As table

' ...

InsertNextOutputTable = tblTable

End Function

Компилятор выдает ошибку 13. Мол, опять с типами косяк какой-то. Подсвечивает всю строку целеком. В чем дело?]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501623 Wed, 28 Mar 2007 09:31:04 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501623
Set rngLogFileRange = parLogFile.Range
и
parLogFile.Range.Select (или rngLogFileRange.select)

Добавлено 28.03.07, 09:33
а можешь вообще вызвать

FillVisitUserWithLogData parLogFile.Range, visitUser

и избавишься от лишней переменной... :)]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501524 Wed, 28 Mar 2007 08:48:41 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501524 Цитата

а что имелось ввиду под этим: Set rngLogFileRange = parLogFile.Range.Select?
select - это метод, он ничего не возвращает, поэтому у тебя твоя range переменная = Nothing - вот и ошибка

При помощи Set rngLogFileRange = parLogFile.Range.Select я хотел установить рандж в 1 параграф, ну и передавать его процедуре для обработке. А Select для того, чтобы весь этот процесс наблюдать визуально, для контроля (где-то вычитал про такой прием).
Так, как сделать, чтобы все было ОК, чтобы возвращался рандж?]]> awax VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501291 Wed, 28 Mar 2007 06:26:49 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501291 select - это метод, он ничего не возвращает, поэтому у тебя твоя range переменная = Nothing - вот и ошибка

п.с. на будующее юзай пошаговый запуск (F8) со включенными locals window (там отображаются значения всех переменных в данный момент) и watches window при необходимости (туда можно вставить дополнительные конструкции и отслеживать их значение)...]]> Krasnaja Shapka VB for Application https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501239 Wed, 28 Mar 2007 05:56:11 +0000 В чем ошибка? https://forum.sources.ru/index.php?showtopic=177534&view=findpost&p=1501239

Dim docLogFile As Document

Dim rngLogFileRange As Range

Dim parLogFile As Paragraph

Set docLogFile = Documents.Open(FileName:=strLogFileName, ReadOnly:=True, Visible:=False)

For Each parLogFile In docLogFile.Paragraphs

Set rngLogFileRange = parLogFile.Range.Select

FillVisitUserWithLogData rngRange:=rngLogFileRange, visitUser:=visitUser

End For

'----------------------------------------------------

Private Sub FillVisitUserWithLogData(rngRange As Range, visitUser As Visit)

'...

End Sub

Во время запуска программы на выполнение возникает ошибка: "Compile error: ByRef argument type mismatch", при этом подсвечивается параметр rngLogFileRange в строке вызова процедуры FillVisitUserWithLogData. Не могу понять что приводит к ошибке. Вроде, все типы совпадают.]]> awax VB for Application