AppleScript, Microsoft Excel и включение гиперссылок - PullRequest
Новая
       16

AppleScript, Microsoft Excel и включение гиперссылок

1 голос
/ 25 августа 2011

Существует вопрос о создании активных гиперссылок в Excel без обращения к макросу ... но предположим, что один хочет создать макрос или, скорее, что-то в AppleScript?

Я начал грабить словарь AppleScript для Excel для Mac ... и до сих пор у меня получилось (предположим, что столбец 1 содержит строку за строкой, равную URI в каждой ячейке, и ни один из них не активирован): 

tell application "Microsoft Excel"
    activate
    make new hyperlink of column 1 at active sheet with properties {address:column 1}
end tell

Это почти работает ... за исключением того, что каждая ячейка оказывается гиперссылкой на http://www.microsoft.com/mac/ вместо этого! (Приятное прикосновение, MSFT. Хехе.) Если серьезно, я не могу помочь, но думаю, что я довольно близко, но я не уверен, что мне не хватает.

Для сравнения, вот рабочий макрос Excel (с использованием выделения). 

For Each xCell In Selection
    ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

Подсказки приветствуются и ценятся!

1 Ответ

1 голос
/ 25 августа 2011

Я верю, что у меня это есть!Допустим, ячейки находятся в столбце 8 (не считая строки заголовка).Вы могли бы сделать что-то вроде этого. 

tell application "Microsoft Excel"
    tell (get used range of active sheet)
        repeat with i from 2 to count rows
            set v to value of column 8 of row i
            make new hyperlink at column 8 of row i with properties {address:v}
        end repeat
    end tell
end tell

nb: Я понятия не имею, является ли это "правильным" AppleScript, но я думаю, что это начало.Не стесняйтесь предлагать улучшения, во что бы то ни стало!

...