お世話になっています。
カレントフォルダにあるExcelファイルを開くには次の関数を作成して実現しています。
Function ExWorkbooksOpen(myOpenXlsName As Variant)
Dim myWb As Workbook
Dim totoFullName As Variant
Set myWb = ActiveWorkbook
totoFullName = myWb.Path & "\" & myOpenXlsName
Workbooks.Open Filename:=totoFullName
Set myWb = Nothing
End Function
この方法ですと、別のフォルダにあるExellファイルを開く事はできません。
そこで、ショートカットファイルをカレントフォルダへ置いて開く事を考えていますが、どの様にオープンしていいのか分かりません。
アドバイスをよろしくお願いします。
No.2ベストアンサー
- 回答日時:
こんにちは。
Excelのショートカットファイルのフルパスは以下の方法で取得出来ます。
ご参考にどうぞ。
Dim WshShell As Object
Dim oShellLink As Object
Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut("D:\hoge.xls へのショートカット.lnk")
MsgBox oShellLink.TargetPath ' ←Excelへのフルパス
No.4
- 回答日時:
こんにちは。
#3の方に対する返答になってしまいますが、お許しください。
#2では、ショートカットへのオブジェクト参照を作成して、その参照からExcelファイルのフルパスを取得しているだけで、ショートカット自体を作成しているわけではありません。
ショートカットを作成するには確かにSaveが必要ですが、先に作成しておいたショートカットからフルパスを取得するだけであれば、Saveは不要のはずです。
この質問者の方の場合、カレントフォルダに手作業で作成したショートカットファイルを置くことを前提にしているのだと思います。
(Excelファイルへのフルパスがユーザーによって変えられてしまう、というお話がありますから)
ですので、ショートカットを作成するためのSaveメソッドは不要と思います。
何か私が勘違いしていたらごめんなさい。
蛇足失礼しました。
補足ありがとうございます。
おっしゃる通り、手作業でショートカットファイルを作成して、
それをカレントフォルダへ移動して使用する予定です。
No.1
- 回答日時:
フルパスが分かっているならtotoFullNameへの代入を工夫するだけなのでは
たとえば
Function ExWorkbooksOpen(myOpenXlsName As Variant, Optional sPath as String = "")
Dim myWb As Workbook
Dim totoFullName As Variant
Set myWb = ActiveWorkbook
if sPath = "" then
totoFullName = myWb.Path & "\" & myOpenXlsName
else
totoFullName = sPath & "\" & myOpenXlsName
end if
Workbooks.Open Filename:=totoFullName
Set myWb = Nothing
End Function
といった具合に パスも渡すようにしてやるとか
ご回答ありがとうございます。
職場の共有フォルダを参照するのですが、
このフルパスが時々変わられてしまいます。
システムを知らない人が共有を管理している為です。
変更された時に、VBAのソースを直すのが難点で、
出来れば、ショートカットファイルのリンク先アドレスを
読み取る方法でも良いのですが。
ご提案の方法は一つの選択肢として参考にしたいと思います。
深夜にも関わらずありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ShellExecute でショートカットを開く
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
xcopyコマンドの進行状況を表示...
-
VBAで、VBのapp.pathと同じ機能...
-
【VB.NET】App.configにファイ...
-
【VBA】ExcelマクロでCSVファイ...
-
Eclipse
-
A列に記載されているフォルダ...
-
コマンドプロンプトのコピー関...
-
開いているファイルを削除し、...
-
【VBA】複数のtxtファイルから...
-
エクセルVBAで一つ上の階層...
-
エクセルのファイルオープン時...
-
ShellExecuteでエクセルファイ...
-
Accessで「ファイルを開く」ダ...
-
VB2005 でパス名が誤っていない...
-
パスワード保護されたExcelファ...
-
ファイル名の半角スペースについて
-
Excel VBAでテキストファイルを...
-
システムの特殊なフォルダのパ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルvbaでdocuworksprinter...
-
Excel 相対パス
-
エクセルVBAで一つ上の階層...
-
エクセルのマクロで特定フォル...
-
xcopyコマンドの進行状況を表示...
-
ExcelVBAの使い方 ¥の使い方...
-
EXCEL(VBA)で指定フォルダ内の...
-
【VBA】ExcelマクロでCSVファイ...
-
【VB.NET】App.configにファイ...
-
VBA★PDFをPDFアプリで印刷し...
-
ExcelのVBAで上書き保存を確...
-
VBAでパワーシェルを実行したい...
-
SaveAsの保存先について
-
outlook開けない
-
Eclipse
-
C#でのProcess.Startと変数path
-
開いているファイルを削除し、...
-
A列に記載されているフォルダ...
-
コマンドプロンプトのコピー関...
-
【VBA】複数のtxtファイルから...
おすすめ情報