Excel VBA質問箱 IV

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

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


11195 / 13644 ツリー ←次へ | 前へ→

【17518】フォルダを開く mamama 04/9/1(水) 4:36 質問[未読]
【17519】Re:フォルダを開く かみちゃん 04/9/1(水) 7:26 回答[未読]
【17520】Re:フォルダを開く IROC 04/9/1(水) 8:58 回答[未読]
【17534】Re:フォルダを開く Kein 04/9/1(水) 20:25 回答[未読]
【17542】Re:フォルダを開く mamama 04/9/2(木) 0:50 お礼[未読]

【17518】フォルダを開く
質問  mamama  - 04/9/1(水) 4:36 -

引用なし
パスワード
   質問です。。。
ハイパーリンクはファイルを開くことができますが
フォルダを開くのにはどう設定したらいいのですか?
すみません、教えてください・・・。

【17519】Re:フォルダを開く
回答  かみちゃん  - 04/9/1(水) 7:26 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>ハイパーリンクはファイルを開くことができますが
>フォルダを開くのにはどう設定したらいいのですか?

http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=17447;id=excel
ここの続きスレッドだと思いますので、関連する場合は、元スレッドに続けていただければと思います。そうすると、前からの流れもわかりますので・・・

ところで・・・
上記のスレッドのこもれびさんのコメントでできます。
A1セルをフォルダ名にして、一度マクロを実行してください。
マクロを実行しないと、ハイパーリンクは再設定されません。

なお、蛇足ですが・・・
回答のお礼は、新規スレッドではなく、元スレッドにお願いします。

管理人でもなんでありませんが、多くの人が見ていますので、よろしくお願いします。

【17520】Re:フォルダを開く
回答  IROC  - 04/9/1(水) 8:58 -

引用なし
パスワード
   >フォルダを開くのにはどう設定したらいいのですか?

エクスプローラーをフォルダを指定して
起動する方法ということでしょうか?

【17534】Re:フォルダを開く
回答  Kein  - 04/9/1(水) 20:25 -

引用なし
パスワード
   >フォルダを開く
なら、こんな感じです。もちろんイベントマクロではありませんが。

Sub Fol_Open()
  Dim objShell As Object, objFolder As Object
  Dim FSO As Object, WshShell As Object
  Dim FolN As String, SPath As String
   
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell _
  .BrowseForFolder(0, "フォルダを選択して下さい", 0, "C:\")
  If objFolder Is Nothing Then GoTo ELine
  FolN = objFolder.Items().Item().Path
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set WshShell = CreateObject("WScript.Shell")
  SPath = FSO.GetFolder(FolN).ShortPath
  WshShell.Run SPath, 3, False
  Set FSO = Nothing: Set WshShell = Nothing
ELine:
  Set objFolder = Nothing: Set objShell = Nothing
End Sub

【17542】Re:フォルダを開く
お礼  mamama  - 04/9/2(木) 0:50 -

引用なし
パスワード
   ▼かみちゃん さん: 
回答ありがとうございましたVBAも初心者でなおかつこのサイトも初心者なのでお礼の返信がああなってしまいました。
A1セルをフォルダ名&フォルダパスに設定して行ったら成功しました。ありがとうございました。
▼IROC さん:
説明不十分ですいません。次回はもっとわかりやすく書きます。m(__)m
▼Kein さん:
丁寧に回答ありがとうございました。私には(マクロ&プログラミング)は片足の小指をちょっと入れたばかりなので、keinさんの回答は少し時間をかけて勉強しようと思います。本当にありがとうございました。

→mamamaより

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