Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

6502 / 76734

←次へ　｜　前へ→


	【75832】Re:ブックの共有時のハイパーリンク使用２

ゆーあ - 14/7/11(金) 18:10 -


	引用なし

	パスワード

▼独覚さん

>ただし上記で開けるのはエクセルブックのみなので拡張子をチェックしてエクセルブックならば上記で、エクセルブック以外は
>WSH.Run """" & WK_Link & """", 3
>で開くようにする必要があります。
頑張ってみました！！

Dim ACR As Long
Dim WK_Link As String
Dim WSH
Dim XLApp As Excel.Application

　　Worksheets("Sheet5").Activate
　　ACR = ActiveCell.Row
　　Cells(ACR, 6).Select
　　ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-5],RC[-5])"
　　
　　WK_Link = Cells(ACR, 6).Value
　　If Cells(ACR, 1) = "" Then
　　Cells(ACR, 6).ClearContents
　　Exit Sub
　　End If
　　If Right(WK_Link, 3) = "xls" Then
　　Set XLApp = CreateObject("Excel.Application")
　　XLApp.Workbooks.Open WK_Link
　　XLApp.Visible = True
　　Set XLApp = Nothing
　　Else
　　If Right(WK_Link, 3) = "pdf" Then
　　Set WSH = CreateObject("Wscript.Shell")
　　WSH.Run """" & WK_Link & """", 3
　　Set WSH = Nothing
　　End If
　　End If
Worksheets("Sheet1").Select

6 hits

▼

【75819】ブックの共有時のハイパーリンク使用２ ゆーあ 14/7/10(木) 16:58