指定ホルダのショートカットをデスクトップに作成

Question

会社で会社オリジナルのプログラムと、そのプログラムの検索が遅いのでデータをエクセルにおとし、検索用として使用しています。そしてエクセルでデータごとにフォルダを作成し、データをそのフォルダに入れて管理しています。しかし会社のプログラムで作成したデータを保存する際、いちいちそのフォルダを探してから保存しており、データが増えていくに従いホルダを探すのに時間がかかっている為、エクセル側で指定ホルダのショートカットをデスクトップ作成すればホルダを探す時間が無くなると思い、いろいろと検索しましたが見つかりませんでした。そこでどなたか「指定ホルダのショートカットをデスクトップに作成」のコードをご教示ください。いまだにwindows2000とエクセル2003という環境です。

MarcoRossiItaly · Accepted Answer

＞問題なのは作成したファイルを使用する場合、保存フォルダからあいうえおで区分されたフォルダに行き、……追加ファイルを保存する際も、保存先を同様に探っていかなければならないことです。
＞……作業後の保存の際、フォルダを探す手間が省けることから……

つまり、保存先のフォルダはあらかじめ作製済みだが、No.4 で回答したとおり保存の前にフォルダへのパスをコピーしておくにしても、数が多いからか、そのフォルダを探すだけでも大変、という意味でしょうか？

そうであれば、デスクトップにショートカットというのも良いとは思いますが、フォルダを開くためのハイパーリンク集を Excel シートで作製してみてはどうでしょうか。例えば添付図のような感じです。

フォルダを新たに作製するたびに、この表にも番号・顧客名を追加しておきます。以後、ハイパーリンクを 1 回クリックするだけで、そのフォルダが開きます。

「顧客の書類」というフォルダが D ドライブ直下にあり、その下に「斉藤123」フォルダを作ったとします。

A3　123
B3　斉藤
D3　=b3&a3
E3　=hyperlink("D:\顧客の書類\"&d3)

いやそうじゃなくて、やっぱりどうしてもショートカットを作りたいんだという場合は、次のような感じのコード。No.4 の参考 URL のコードを多少編集しただけのものです。フォルダをどんなふうに作って利用しているのか十分に分からないので、コード中のフォルダ名「CtmF」はとりあえず手書き（コピペ）するようにしてあります。

Option Explicit

Sub Sample1()
　　Dim WSH, sc, DeskTopPath As String, scName As String, CtmF As String
　　Set WSH = CreateObject("WScript.Shell")
　　CtmF = "斉藤123"　　'この行に新規作成したフォルダ名を上書きするか、他の何らかの方法で取得
　　DeskTopPath = WSH.SpecialFolders("Desktop")
　　scName = DeskTopPath & "\" & CtmF & ".lnk"
　　Set sc = WSH.CreateShortcut(scName)
　　sc.TargetPath = "D:\顧客の書類\" & CtmF　　'「&」以前のパスを実際のものに書換え
　　sc.Save
　　Set sc = Nothing
　　Set WSH = Nothing
End Sub

tsubuyuki · Answer

私も他の回答者さん同様に、
「ショートカットを作る目的・意義」が良くわからないので、
その他のやり方になってしまいます。

ひとまず、準備です。
下記のように「顧客名・顧客番号」を配置しておきます。

Ａ　　　　　　　　Ｂ　　　　　　　　Ｃ
１　　顧客名　　　　顧客番号　　　　頭文字
２　　斉藤　　　　　　123　　　　　　　さ

「頭文字（Ｃ２）セル」には「=LEFT(PHONETIC(A2),1)」という式が入っています。
同時にＡ２セルには、書式→ふりがな→設定　から、種類を「ひらがな」を設定しています。
Ｂ２セルは念のため、表示形式を文字列に設定してあります。
入力すべきセルは、Ａ２とＢ２です。

で、ＶＢＡ。

Sub Sample()
Dim myPath As String
Dim myFile As Variant

myPath = "C:\"　　　　'親フォルダを指定
　　　　myPath = myPath & Range("C2") & "\" & Range("A2") & Range("B2")
　　　　ChDir myPath
　　　　myFile = Application.GetOpenFilename( _
　　　　　　　　FileFilter:="Excel ファイル (*.xls),*.xls")

Workbooks.Open Filename:=myFile
End Sub

これでエクセル上で「開く」フォルダを設定できますが、こういう意味ではないのでしょうか？
一度開いておけば「名前をつけて保存」する際にもコレを保持します。

どうしてもショートカットに拘るとしても、
デスクトップで右クリック→新規作成→ショートカット
「項目の場所」に「C:\親フォルダ\さ\斉藤123\」と打つだけです。
わざわざエクセルを起動し、マクロを走らせ・・・と手間をかける必要は無いように思いますよ。

keithin · Answer

＞そしてエクセルでデータごとにフォルダを作成し、データをそのフォルダに入れて

それなら最初から最後まで、全部やらせりゃイイだけです。

sub macro1()
　dim myRoot as string
　dim myName as string
　dim s as string

myroot = "c:\Test\"　’適切に指定する事
　myname = "斉藤123"　’具体的な取得手段は適宜作成する事
　s = strconv(left(application.getphonetic(myname), 1), vbhiragana)

on error resume next
　mkdir myroot & s
　mkdir myroot & s & "\" & myname
　activeworkbook.saveas filename:=myroot & s & "\" & myname & "\" & myname & ".xls"
end sub

＃あーでもExcel2003は大丈夫ですが、Win2kで動いたかはやってみてください。

MarcoRossiItaly · Answer

他の皆さんと同様に私も、ご質問の趣旨が今一つ分かりかねている状況ですが。

お困りなのは、「データを保存する際、いちいちそのフォルダを探してから保存」という作業が大変であり、それの何が大変かと言えば、保存のダイアログにおいて、ダブルクリックで保存先を探しながら次々に深い階層のフォルダまで潜っていくのが手間だから、ということでしょうか？

ということは、もしもパッと保存先にたどり着ける操作方法があるならば、必ずしもショートカットを作る必要はないということでしょうか？そうだとして説明します。

まず保存先のフォルダを開きます。この説明では、C ドライブの下層に作られている「YAMADA Taro」というフォルダだということにします。フォルダの最上部にあるアドレスバーには、そのフォルダへのパスが表示されています。ここを右クリックし、「アドレスをテキストとしてコピー」します。すると、「C:\Users\YAMADA Taro」といった感じの文字列がコピーされます。もし頻繁にこの文字列を使いたいなら、メモ帳などで保存しておくとかは、ご自由に。

目的のデータ保存は保存のダイアログから行いますが、その際に、上のフォルダは閉じてしまっていても差し支えありません。今コピーした文字列をダイアログの「ファイル名」欄に貼り付けます。Ctrl+V または右クリックからできます。続けて Enter を押すと、上のフォルダがダイアログ内で開きます。

保存したいファイル名が「検索用データ」だとします。Windows Vista 以降であれば、ダイアログ内でフォルダが開くものの、Enter を押すと同時に、入力した文字列が「ファイル名」欄から消えているので、同じ欄に単に「検索用データ」と記入して保存します（Enter）。Windows XP 以前では Enter 後も欄に文字列が残っているので、その文字列の最後尾に「\検索用データ」と追記して Enter します。質問者さんの場合は 2000 とのことですから、後者でしょうね。

上のとおり保存した後、「YAMADA Taro」フォルダを開いて確認してみると、.xls の拡張子で保存したのであれば、「検索用データ.xls」というファイルが入っているはずです。

何回もダブルクリックするのに比べれば、操作の負担感は減るかと思います。保存先は毎回少しずつ異なるということなら、パスの中で共通した部分の文字列をコピーしてダイアログ上で開いてもいいでしょう。

なお、こういう話ではなくて、何らかの理由でやはりショートカットを作りたいんだというのであれば、WSH.CreateShortcut メソッドというのを使えば、参考 URL みたいな感じでできます。作るショートカットの TargetPath プロパティに好きな文字列を設定することもできますから、「指定ホルダ」とかいう場所へのパスを書き込むこともできるでしょう。必要な場合は、ご質問を補足してください。

参考URL：http://officetanaka.net/other/extra/tips12.htm

keithin · Answer

Excel2003でしたら。
名前を付けて保存ダイアログ上で指定のフォルダを選択、ダイアログのツールメニューから「マイプレースに追加」することで、ダイアログ左側の保存先一覧に指定のフォルダをどんどん追加していくことができます。

MackyNo1 · Answer

>「指定ホルダのショートカットをデスクトップに作成」のコードをご教示ください。

目的がいま一つ理解できないのですが、デスクトップにフォルダのショートカット作成のVBAコードなら以下のページが参考になると思います。
http://www.nurs.or.jp/~ppoy/access/access/acEt029.html

ただしfilePath の部分はfilePath = "C:\windows"のようにフォルダのパスを指定してください。
また、表示したいアイコンの場所や、名前も適宜変更してください。

koko88okok · Answer

次のように操作してみて下さい。

1) 当該のフォルダの上で右クリックします。
2) 表示される右クリックメニューの「送る」をポイントして「デスクトップ(ショートカットを作成)」を選択します。
3) デスクトップにそのフォルダのショートカットが作成されます。

上記のようなことですか？

「デスクトップにショートカットアイコンを作成する方法を教えてください。」
https://www.fmworld.net/cs/azbyclub/qanavi/jsp/qacontents.jsp?PID=7804-6259#case3

指定ホルダのショートカットをデスクトップに作成

＞問題なのは作成したファイルを使用する場合、保存フォルダからあいうえおで区分されたフォルダに行き、……追加ファイルを保存する際も、保存先を同様に探っていかなければならないことです。

私も他の回答者さん同様に、

＞そしてエクセルでデータごとにフォルダを作成し、データをそのフォルダに入れて

この回答への補足

他の皆さんと同様に私も、ご質問の趣旨が今一つ分かりかねている状況ですが。

この回答への補足

Excel2003でしたら。