accessからexcel出力時にセルにハイパーリンクを設定したいです。

Question

ネットで探したのですが見つからなかったため

ご教授いただきたく思います。

よろしくお願い致します。

Set xlApp = CreateObject("Excel.Application") 

xlApp.ScreenUpdating = False 

vPath = Target

Set Wb = xlApp.Workbooks.Open(vPath) 

Set sh = Wb.Worksheets(1)

**sh.Cells(1, 1).Value = "https://www.yahoo.co.jp/"** 

Wb.Activate 

Wb.Save 

xlApp.ScreenUpdating = True 

xlApp.Visible = True 

Set xlApp = Nothing

上記のようにAccessからExcelを出力した後、

Excelを開いた時に自動でハイパーリンクにならず困っております。

現在はセルをダブルクリックして対応しています。

sh.Cells(1, 1).Value　のValueの部分を

いろいろかえてはみたもののダメでした。

知識ある方いらっしゃいましたら

どうぞよろしくお願い致します。

Answer 1

> Excelを開いた時に自動でハイパーリンクにならず困っております。

> sh.Cells(1, 1).Value = "https://www.yahoo.co.jp/"

------------------------------------------------------------

Dim rng As Object    'Excel.Range

Dim sHyperlinkAddress As String

Dim sScreenTip As String

Dim sTextToDisplay As String

Set rng = sh.Cells(1, 1) 

sHyperlinkAddress = "https://www.yahoo.co.jp/"

sScreenTip = "クリックするとリンク先を開きます。"

sTextToDisplay = "Yahoo! JAPAN"

'ハイパーリンクがまだ追加されていない場合

If rng.Hyperlinks.Count = 0 Then

    sh.Hyperlinks.Add Anchor:=rng, _

                      Address:=sHyperlinkAddress, _

                      ScreenTip:=sScreenTip, _ 

                      TextToDisplay:=sTextToDisplay

'既にハイパーリンクが追加されている場合

Else

    With rng.Hyperlinks(1)

        .Address = sHyperlinkAddress

        .ScreenTip = sScreenTip

        .TextToDisplay = sTextToDisplay

    End With

End If 

Set rng = Nothing 

------------------------------------------------------------

以上のように記述なさればよろしいのではないかと。

Answer 2

sk.exe様

今回も完璧なご回答どうもありがとうございました！

こちらも作業効率を下げる要因になっていたため

本当に助かりました。

どうもありがとうございましたm(_ _ )m