2010

a_axe · Конфигурация компьютера

oleg_nojab, попробуйте код ниже. Код заменит ссылки на одном активном листе.
Предварительно сделайте резервную копию вашей книги, во избежание потери данных.

Код

Код:

Public Sub HL_repl()
    Dim HLobj As Hyperlink
    For Each HLobj In ActiveSheet.Hyperlinks
        HLobj.Address = Replace(HLobj.Address, "\\10.52.1.1\Стройки\Проекты", "\\10.52.1.1\Проекты")
    Next HLobj
End Sub

Iska · Отправлено: **09:39, 31-10-2016** | #3

На WSH (не проверялось):

Код:

Option Explicit

Const xlPart = 2

Dim objWorkSheet


With WScript.CreateObject("Excel.Application")
	With .Workbooks.Open("C:\Мои проекты\0023\Книга1.xls")
		.Parent.DisplayAlerts = False
		
		For Each objWorkSheet In .Worksheets
			objWorkSheet.UsedRange.Replace "\\10.52.1.1\Стройки\Проекты", "\\10.52.1.1\Проекты", xlPart
		Next
		
		.Parent.DisplayAlerts = True
		
		.Save
		.Close
	End With
	
	.Quit
End With

WScript.Quit 0

oleg_nojab · Отправлено: **11:55, 31-10-2016** | #4

Цитата a_axe:

Public Sub HL_repl()
Dim HLobj As Hyperlink
For Each HLobj In ActiveSheet.Hyperlinks
HLobj.Address = Replace(HLobj.Address, "\\10.52.1.1\Стройки\Проекты", "\\10.52.1.1\Проекты")
Next HLobj
End Sub »

Выдает ошибку "Run-time error 13: Type mismatch"

Iska · Отправлено: **13:02, 31-10-2016** | #5

Цитата oleg_nojab:

Выдает ошибку "Run-time error 13: Type mismatch" »

Покажите скриншот вместе с данным кодом в окне редактора VBA. Было бы неплохо также приложить образец Рабочей книги с гиперссылками, упаковав его в архив.

a_axe · Конфигурация компьютера

Цитата Iska:

На WSH (не проверялось): »

Iska, это в редакторе VBA нужно запускать? Не то чтобы я что-нибудь понял, просто хоть понять, в какую сторону идти...

Iska · Отправлено: **17:33, 31-10-2016** | #7

Цитата a_axe:

Iska, это в редакторе VBA нужно запускать? »

Нет. Сохранить в файл с расширением .vbs и запустить двойным щелчком из Проводника (хост WScript.exe). Я лично предпочитаю консоль Far Manager'а, посему у меня по умолчанию («CScript.exe //H:CScript») используется консольный хост CScript.

Ваш код, кстати, как я полагаю, более правильный.

oleg_nojab · Отправлено: **07:46, 01-11-2016** | #8

Пробую на тестовом файле, ошибка сохраняетсяСнимок1.JPG

Iska · Отправлено: **08:14, 01-11-2016** | #9

oleg_nojab, к сожалению, не видно место возникновения ошибки. Упакуйте Ваш тестовый файл в архив и приложите к сообщению, либо выложите на RGhost или Яндекс.Диск.

oleg_nojab · Отправлено: **07:15, 02-11-2016** | #10

Всем спасибо, проблема решена, скрипт взят с сайта www.vba-excel.ru
Замена гиперссылок.txt