как сделать ячейку с формулой гиперссылки живой после вставки

Я вставляю экспорт Access в Excel в другую книгу Excel. Все хорошо, за исключением того, что столбец, заполненный формулами гиперссылок (= гиперссылки ("www.stackoverflow.com", "Мое имя"), вставляется мертвым. Сначала я попытался вставить все данные, используя значения PasteSpecial,

    fromWS.Range(fromWS.Cells(2, 1), fromWS.Cells(fLastRow, FLastCol)).Copy
    Set toWS = toWB.Worksheets(WSheets(w))
    toWS.Cells(5, 1).PasteSpecial Paste:=xlPasteValues, _
    Operation:=xlNone, SkipBlanks:=False, Transpose:=False

а затем, взяв столбец, который имеет формулу гиперссылки,

    fromWS.Range(fromWS.Cells(2, 123), fromWS.Cells(fLastRow, 123)).Copy

И вставив его в окончательный рабочий лист,

    toWS.Cells(5, 123).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

с параметром формулы PasteSpecial, но в столбце все еще есть мертвые гиперссылки. (Под мертвыми я подразумеваю, что они отображаются в виде текста, и при нажатии на них они не переходят на гиперссылки).

Если я щелкну одну из ячеек и нажму F2 + ВВОД, ссылка станет активной в виде внешнего вида и результата. Мысли? Помогите? будет принята с благодарностью. Благодарю.

Хосе PS: поиск вокруг, и есть множество мест, где они показывают, как создавать гиперссылки, но я уже знаю это. Еще раз спасибо за любую помощь ...

Всего 1 ответ


Если кто-то знает лучший ответ, пожалуйста, напишите его.

Чтобы сделать ссылки работоспособными, мне нужно было выполнить этот фрагмент кода после вставки данных: Dim col As Integer col = 5 While toWS.Cells(col, 124) <> "" 'This has the ProjectID, if null EOD. If toWS.Cells(col, 123) <> "" Then toWS.Cells(col, 123).Formula = toWS.Cells(col, 123).Value End If col = col + 1 Wend Dim col As Integer col = 5 While toWS.Cells(col, 124) <> "" 'This has the ProjectID, if null EOD. If toWS.Cells(col, 123) <> "" Then toWS.Cells(col, 123).Formula = toWS.Cells(col, 123).Value End If col = col + 1 Wend Однако это действительно раздражает, так как мой сценарий теперь намного медленнее с этим изобретением. Должно просто сработать, после специальной вставки с опцией формулы. Благодарю.

josé


Есть идеи?

10000