Excel VBA質問箱 IV

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

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


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

6515 / 76734

←次へ　｜　前へ→


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

ゆーあ - 14/7/10(木) 16:58 -


	引用なし

	パスワード

WinXP Excel2000

先日お教え頂き、ブックの共有を行った状態で、
HYPERLINK関数を使用し、JPGファイルを開くことが出来たのですが、
今回、同様のコードでxlsファイルを開こうと思ったのですが、上手くいきません。
下記に、コードを記載致しますので、
ご教授の程、宜しくお願い致します。

セルC1に、xlsファイルのパス名があり、
セルF1のHYPERLINK関数を使用して、C1を参照しファイルを開いてます。
Private Sub CommandButton6_Click()
Dim ACR As Long
Dim WK_Link As String
Dim WSH
　　Worksheets("Sheet5").Activate
　　ACR = ActiveCell.Row
　　Cells(ACR, 6).Select
　　ActiveCell.FormulaR1C1 = "=HYPERLINK(RC[-3],RC[-3])"
　　
　　WK_Link = Cells(ACR, 6).Value
　　If Cells(ACR, 3) = "" Then
　　Cells(ACR, 3).ClearContents
　　Exit Sub
　　End If
　　Set WSH = CreateObject("Wscript.Shell")
　　WSH.Run """" & WK_Link & """", 3
　　Set WSH = Nothing
　　
　　Worksheets("Sheet1").Select
End Sub

5 hits

▼

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

≪