Excel VBA質問箱 IV

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

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


18735 / 76732 ←次へ | 前へ→

【63435】ハイパーリンク設定セルをUserFormのコマンドボタンで対象ファイルを開く
質問  しゅん  - 09/11/3(火) 16:02 -

引用なし
パスワード
   初めて質問させて頂きます。これまでは、ここの掲示板の内容を参照し、検証して少しずつVBAの楽しさがわかってきました。分かり辛い質問文で申し訳ありませんが以下に現在解決したい内容を書きましたのでご教授の程よろしくお願い致します。

WorkSheetのある列にハイパーリンク設定したセルがあります。
これをUserForm上のコマンドボタンから対象ファイルを開く様にしたいのですが、
FollowHyperlinkでのAddress、SubAddressの設定に問題がある様ですが解決方法解らずに困っています。

<環境>
XP(Home SP3)、EXCEL2003

<実現させたい機能>
ハイパーリンク設定セルをUserFormのコマンドボタンで対象ファイルを開く。

抜粋のソースは以下の通りです。
'標準モジュール
Public ws As Worksheet 
Public Path_in As String
Set ws = ThisWorkbook.Worksheets("データベース")



'UserForm
Private Sub CommandButton1_Click()
'----------------------------------
' ハイパーリンクファイル開く。
'----------------------------------
 path_out = ws.Cells(Row_Num,Col_Num).Value '例(2行目、9列)
 If (path_out <> "") Then
    ActiveWorkbook.FollowHyperlink Address:=path_out, _
    SubAddress:="", _
    NewWindow:=True
 End If

End Sub

上記のソースを使用したデバックで解ったことを以下に書きます。

<解決したい課題>
ハイパーリンク設定したセルの表示が以下の2ケースで動作が異なる。
1)TextToDisplayでファイル名等に変更表示されている。
2)フルパス表示(対象セルにはフルパスそのもののデータが書込まれている。)

上記の1)を採用したいのですがERRORになります。2)は問題なく開けますがセルの表示が長くなるため単にファイル名にしたい。

1)の場合、TextToDisplayで指定された表示のセルには、ワークシート上でEXCELのハイパーリンクの操作で設定されたアドレスにフルパスが設定があるはずで見かけ上表示文字列(TextToDisplay)がワークシート上表示されていると私は、考えていました。そこで私は、ws.cells(Row,colum).ValueをAddressに代入することで取得できると考えていましたが違うようです。ws.cells(Row,colum).ValueではTextToDisplayを取得して失敗している様です。ハイパーリンク設定され、表示がフルパス表示ではない場合のセルに保存されいるフルパスの情報をAddress/Subaddressに設定するにはどの様にすればできるのでしょうか?

1 hits

【63435】ハイパーリンク設定セルをUserFormのコマンドボタンで対象ファイルを開く しゅん 09/11/3(火) 16:02 質問
【63436】Re:ハイパーリンク設定セルをUserFormのコ... arajin 09/11/3(火) 16:58 発言
【63437】Re:ハイパーリンク設定セルをUserFormのコ... しゅん 09/11/3(火) 17:59 お礼
【63438】Re:ハイパーリンク設定セルをUserFormのコ... arajin 09/11/3(火) 18:48 発言
【63439】Re:ハイパーリンク設定セルをUserFormのコ... しゅん 09/11/3(火) 20:33 お礼

18735 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free