Имеем во многих ячейках ссылки типа таких:
''c:\[книга1.xls]МЕСЯЦ'!A$1"
''c:\[книга1.xls]МЕСЯЦ'!B$1"
''c:\[книга1.xls]МЕСЯЦ'!C$6"
''c:\[книга1.xls]МЕСЯЦ'!$I$3"
и т.д.
При попытке програмно заменить ссылку exel ругается
"не допустимая внешняя ссылка в формуле
проверьте указанные пути, название книги и т.д"
код которым меняю ссылки
- Код: Выделить всё
Sub add()
Dim strA As String
Dim strB As String
Dim strMonth As String
strMonth = InputBox("введите месяц")
strA = "'c:\[книга1.xls]МЕСЯЦ'!"
strB = "'c:\[книга1.xls]" & strMonth & "'!"
Cells.Replace strA, strB
End Sub
Пол дня думал ничего придумать не смог