VBA файлы

[Kramorm]

Здравствуйте! Нужно написать макрос, одна из задач которого, это залазывание во все эксель-файлы, находящийся с данным файлом и разъединять объединенные ячейки. Что-то нашел в Интернете, что-то написал сам, и вот что получилось:

Sub Разъединить()
    Dim fl As String
    Dim rRange As Range, rCell As Range, sAdr As String, i As Integer
    fl = Dir(ActiveWorkbook.Path & "\*.xls*")
    Do Until fl = ""
        If fl <> ActiveWorkbook.Name Then
            Workbooks.Open(ActiveWorkbook.Path & "\" & fl).Worksheets("AllR").Select
            Set rRange = Range("A1:E58")
            For Each rCell In rRange
                If rCell.MergeCells Then
                sAdr = rCell.MergeArea.Address: rCell.UnMerge
                For i = 2 To Range(sAddress).Cells.Count
                With Range(sAddress)
                .Cells(i).Formula = "=" & .Cells(1).Address
                End With
                Next i
                End If
                Next rCell
            fn = Dir
        Else: fn = Dir
        End If
    Loop
End Sub

Вроде все работает, но не в том файле. Вроде как строкой Workbooks.Open(ActiveWorkbook.Path & "\" & fl).Worksheets("AllR").Select
задаю, чтоб активной был файл, который открылся, а весь макрос проходит только по файлу, от куда была запущен макрос. Я правильно понимаю, что строка написанная выше, заставляет последующие команды выполняться в заданной активной книге? Как правильно исправить, чтоб это начало работать?

[Hugo121]

Где расположили код? Точное местоположение.

[Kramorm]

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

Где расположили код? Точное местоположение.

Хм, в файле с названием Result16_03.xls, код написан для Листа 1, который находится в C:\Users\Comp\Downloads\moc. Правильно понял, что это нужно было?

[Hugo121]

Если код в модуле листа - он работает с этим листом, если в модуле книги - то с этой книгой (вообще коряво тогда работает, с глюками иногда).
Ваш код нужно расположить в стандартном модуле - именно про это я спрашивал, из ответа понял что код в модуле листа, что и есть причина проблемы.

[Kramorm]

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

Если код в модуле листа - он работает с этим листом, если в модуле книги - то с этой книгой (вообще коряво тогда работает, с глюками иногда).
Ваш код нужно расположить в стандартном модуле - именно про это я спрашивал, из ответа понял что код в модуле листа, что и есть причина проблемы.

Спасибо, не догадался бы.
А как в таком случае можно перенести макрос с одного компьютера на другой? Просто переносом файла?
Теперь на строчке For Each rCell In rRange вылетает ошибка:
Run-time error '438': Object doesn't support this property or method.

[Hugo121]

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

А как в таком случае можно перенести макрос с одного компьютера на другой? Просто переносом файла?

ну или копипастом кода, или использованием общей надстройки (расшарить в сети).
По ошибке не знаю, нужно видеть файл.

[Kramorm]

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

ну или копипастом кода, или использованием общей надстройки (расшарить в сети).
По ошибке не знаю, нужно видеть файл.

Да спасибо.
Файл чего? Тот, из которого запускается макрос совершенно пустой. А тот, который открывается через макрос содержит информацию в первых двух столбцах, который может быть объединенным. Это все.

[Hugo121]

Чтоб сказать на 95% - нужны оба файла.
5% оставлю на всякие макросы приложения или мало ли что ещё может быть... Говорят даже танки влияли

[Kramorm]

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

Чтоб сказать на 95% - нужны оба файла.
5% оставлю на всякие макросы приложения или мало ли что ещё может быть... Говорят даже танки влияли

Исходников нет, все делаю просто на примерно аналогичных файлах. Нашел ошибку, подправил, но теперь опять проблема в другом и не верно работает. Вот эти файлы

[Hugo121]

Посмотрите кто-нибудь, мне архивы будут доступны только вечером к сожалению...