フォルダ名を取得し、テキストボックスにフォルダ名を入れたのですが
ハイパーリンクで開きません。
リンクは青色でカーソルも指マークになるのですが開けない状態です。
Webを参考に以下のようなVBAを使用しています。
＊説明不足な点もあるかもしれませんがお力添えをいただけると助かります。
Private Sub ボタン_Click()
Dim dlg As Object, boolResult As Boolean
'オブジェクト変数にFileDialogオブジェクトを代入
Set dlg = Application.FileDialog(msoFileDialogFolderPicker)
'FileDialogオブジェクトの各種プロパティを設定
With dlg
.Title = "フォルダを指定してください"
.ButtonName = "選択" 'デフォルトは[OK]
.InitialFileName = "D:\Data"
End With
'[ファイルを開く]ダイアログボックスを表示する
boolResult = dlg.Show
If boolResult Then
Me.フォルダ = dlg.SelectedItems.Item(1)
Else
'[キャンセル]ボタンが押された場合の処理
MsgBox "[キャンセル]ボタンが押されました。"
End If
End Sub
ハイパーリンク型のフィールドと連結したテキストボックスということでしょうか。
だとしたら、
下記のようにフォルダーパスを
#で囲んでください。hatenaさん ありがとうございました、無事にできました。実は添付ファイルで作ってたらファイルサイズがとんでもないことになってしまいハイパーリンク型に変えていました。本当に助かりました。
ちなみに、ハイパーリンク型フィールドの場合、# で区切った各セクションは下記の意味になります。
表示テキスト#リンクアドレス#リンクサブアドレス#ヒントテキスト