Замена меток в Excel

[bigor]

Есть скрипт замены меток в excel-файле, который стабильно работал в 2003 и более старых версиях офиса.
На 2010 работать отказался.

Сам скрипт вот такой:

' Замена строки ReplacedText строкой ReplaceWith
' Замена начинается от начала документа
' В течении выполнения данной операции курсор не изменяет своего положения
Private Sub ReplaceTextCustom(ReplacedText As String, ReplaceWith As String)
Dim oRange As Object 'Word.Range

Set oRange = ActiveWorkbook.ActiveSheet.UsedRang e
oRange.Replace What:=ReplacedText, _
Replacement:=ReplaceWith, _
LookAt:=xlWhole, _
MatchCase:=False

Set oRange = Nothing
End Sub

ОШИБКА:

Run-time Error '-2147417848 (80010108)'
Automation error
The object invoked has disconnected from its clients

Пытался обойти это написав напрямую скрипт из записанного макроса в 2010 офисе - тоже не работает.

Cells.Replace What:="$*]"", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

Тоже не дает, выдает ошибку:

Run-time Error '-2147417848 (80010108)'
Method 'Replace' of object 'Range' failed

Подскажите, что я не так делаю.

[EducatedFool]

Ошибка, скорее всего, в чем-то другом.
Это - простейший код, он не должен вызывать ошибок (если вызывается из VBA Excel)
Подробнее об этой ошибке: http://support.microsoft.com/default...;en-us;Q319832

Несколько смущает строка

Dim oRange As Object 'Word.Range

Вы, случайно, не из Word этот код запускаете?
Если да - то Word не знает значения встроенных Excel-констант типа xlPart, xlWhole и т.п.

Попробуйте так:

Private Sub ReplaceTextCustom(ReplacedText As String, ReplaceWith As String)
    ActiveSheet.UsedRange.Replace ReplacedText, ReplaceWith, 1, , False
End Sub

Sub Macro2()
    Cells.Replace "$*]", "", 2
End Sub

[bigor]

Сообщение от EducatedFool

Несколько смущает строка

Вы, случайно, не из Word этот код запускаете?

Нет, вызывается именно из Excel!
И в 2003 это все прекрасно работает, а в 2010 вылетает с ошибками.

Приведенный Вами пример так же не заработал.

[bigor]

Утоню как запускается макрос. Наверное стоило это указывать в самом начале.
Это формирование отчета по шаблону excel и отдельно лежащему файлу макроса.
Запускается все по следующему алгоритму (написано все на Delphi):

1) открывается шаблон эксель

2) для него запускается макрос командой
FApplication.VBE.ActiveVBProject.VB Components.Import(FScriptList[i])
FApplication.Run(FRunMacroName)

Здесь FScriptList[i] - полный путь к макросу.

Где-то при таком механизме запуска что-то отваливается в 2010 офисе.

[Hugo121]

Доступ к VBProject разрешён?

[bigor]

Сообщение от Hugo121

Доступ к VBProject разрешён?

Да, конечно. Макросы выполняются. Не работает именно конкретный макрос замены меток.

[Hugo121]

То, что макросы выполняются - на 2007/10 не значит, что разрешён доступ к VBProject.

[EducatedFool]

А зачем вообще всё усложнять?
К чему вообще весь этот импорт макросов в файл?
Почему код нельзя сразу поместить в шаблон Excel???

Или, в крайнем случае, почему не выполнить код прямо из Delphi? (код-то простейший, всего одна строка)

[bigor]

Сообщение от EducatedFool

А зачем вообще всё усложнять?
К чему вообще весь этот импорт макросов в файл?
Почему код нельзя сразу поместить в шаблон Excel???

Код, который не работает - маленький кусочек отчета, формируемого из информационной системы. Оттуда это все дело и вызывается.
Сам инструмент заточен под запуск отдельно шаблона и отдельно макроса.
Плюс есть набор библиотек, которые подгружаются при необходимости.
Отчетов много, так что тянуть это все в код - не вариант.

Соответственно все работает... Кроме замены меток.
И та не работает только в 2010 офисе.

[bigor]

Сообщение от Hugo121

То, что макросы выполняются - на 2007/10 не значит, что разрешён доступ к VBProject.

Да, согласен. Но доступ разрешён.