Excelのセルにリンクを埋め込んでいます。それを、VBAで取得するのに一部失敗しました。
セル上のHyperlinkは一般的には、urltxt = Cells(y,x).Hyperlinks(1).Address などの書き方で、y,xに適宜な値を入れると、urltxtにいわゆるリンク先のURLを取得することができます。
しかし、twitterのＵＲＬが途中までしか取得できないのです。例えば、http://twitter.com/#!/arekore というのがあるとして、前記の方法では、http://twitter.com/までしか取得できないのでした。あれ〜、不思議です。
しかたないので、twitterのURLかどうか判断し、フラグが立てば別の場所にある正しいＵＲＬをurltxtに代入するという、余分な作業をすることで、当面の解決と言うことにしました。しかし、どうにかして、埋め込んであるハイパーリンクの値をスッキリと取り込みたいものです。
