PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー

Question

いつもお世話になっています。ちょっと前に　http://bit.ly/29gdmC4　にてA1セルにフルパスを入力して、PDFファイルを開く方法を教えて頂きました。
教えて下さった、maiko0333さん、ありがとうございます。

教えたもらったコードにファイルが存在しなかった時のエラーコードを貼り付けて使ってみました。
すると、自宅のパソコンではうまくいくのですが、職場のパソコンでは予期しないエラーでうまく動作しません。

理由は多分、職場のPC環境のせいだと思っています。

自宅でテストする時は自分のパソコンのCドライブにアクセスしています。
ですが、職場のPCはネットワーク内にありA1セルで検索にいくPDFファイルはNASの中にあります。
しかもWiFiを経由するので無線環境下にあります。

要するに、、、、素人の判断ですが、多分、最初に「If Dir(Range("A1").Value, vbNormal) 」
で検索した時はファイルが見つかるのですが、実際にPowerShellでファイルにアクセスしたときに、モタモタしてしまい「該当なし」ではない別のエラーになってしまうのではないかと考えています。

という状況ですので、私が作成したような先にファイルの有無を確認するタイプのエラー対策ではなく、PowerShellでファイルが開けないという結果が出てからのエラー対策というのは出来ないのでしょか？

もし出来るのでしたら教えて下さい。
※安定していれば他の方法でも構わないです。

詳しい方、説明の上手な方、直接、コードで説明できる方、すいませんがよろしくお願いします。

※今日、明日と仕事が休みのため今、職場PCのエラーを記載することが出来ません。
職場PCのエラーメッセージは月曜日にこちらに貼り付けようと思っています。
※一応、エクセルの画面も貼り付けておきます。
※コードは以下の通りです。
※NASはバッファローのLinkStationです。

－－－－－－－－－－－－－
Sub Macro1()

If Dir(Range("A1").Value, vbNormal) = "" Then
MsgBox ("該当なし")
Else

Dim ターゲットパス As String
ターゲットパス = Range("A1").Value
 Dim WSH As Object
 Set WSH = CreateObject("Wscript.Shell")
 WSH.Run Chr(34) & ターゲットパス & Chr(34), 1 '第2引数 WshWindowStyle は1が通常サイズ、2が最小化、3が最大化。好みでどうぞ」
Set WSH = Nothing

End If
 End Sub

WindFaller · Accepted Answer

最初に、PowerShell　って、前の人が使っていた言葉ですね。
PowerShell は、.Net FrameWork 由来のプログラミング言語で、VBScript に取って代わるものではあるのですが、なかなか、環境的にも、多くの人にも広まっていないような気がします。

"Wscript.Shell" は、Windows のオートメーション・オブジェクトの一部で、おもに、VBScript に使われます。

今回のWscript.Shell のRun メソッドは、拡張子の定義づけられたアプリが呼び出されるという仕組みです。

どんなエラーが出たかにもよりますが、

例えば、こんな内容のもの。
--------------------
実行時エラー　'-2147024894(80070002)':
'Run'メソッドは失敗しました。'IWshShell3' オブジェクト
--------------------

ここを読んでみてください。
失敗の原因と思われることが書かれています。

https://www.moug.net/tech/exvba/0060072.html

>実は、WSHのRunメソッドに指定するファイル名には「空白を含まない」というルールがあります。
>ファイル名に空白が含まれていると、Runメソッドは空白までがファイル名であると認識してしまうのです。

そのために、もう一度、クォーテーション・マーク("")で囲んであげる必要があるかもしれません。

例えば、こんなふうに書き換えてみました。

Sub FileExecute()
　Dim WSH As Object
　Dim FName As String
　Set WSH = CreateObject("Wscript.Shell")
　FName = Range("A1").Value
　If Dir(FName, vbNormal) = "" Then
　　　 MsgBox "ファイルが見つかりません。", vbExclamation
　Else
　　　WSH.Run """" & FName & """", 3
　End If
　Set WSH = Nothing
End Sub

WindFaller · Answer

>1回目のコードでバッチリです！
>どうしてこんなに安定しているのか不思議です。

思惑があたったというところですが、ファイルの種類がある程度決まっているなら大丈夫だと思います。

まあ、もしダメでも、解決方法はいくつか用意していますから、その時は、またお聞きになったらよいかと思いますが、分からなくなったら、コマンドプロンプト上で、試してみれば、だいたいのことはみえてくるはずです。

WindFaller · Answer

ちょっと、返事をつけやすいようにコメントを置いておきます。

今回のコードの手法は、あくまでも、Wscript.Shell オートメーション・オブジェクトを用いた方法であり、フォルダー・オプションの中で拡張子が登録してあるという前提が成り立っている中で、組み立てられたコードです。PCによって、例えば、拡張子が登録していなければ、何の意味もありません。

簡単に確認するには、エクスプローラーなどで、ファイルを選択して、クリックして、アプリが呼び出されるかどうかで決まります。

しかし、例えば、拡張子.pdf だけの話なら、本体のAcrobat Reader を呼び出せば済むことなのですし、拡張子によっていくつかのプログラムを呼び出すことも可能なのです。

また、#1 で書いている「""(ダブルコーテーション)」についても、ショートネームにすれば、不要なことなのです。もちろん、ChDir で、そのファイルのフォルダーに変更するという手もあるわけです。
Wscript.Shell を利用するのは、その一つでしかありません。

PowerShellを使って関連付けられたアプリケーションでファイルを開く時のエラー

最初に、PowerShell って、前の人が使っていた言葉ですね。

>1回目のコードでバッチリです！

ちょっと、返事をつけやすいようにコメントを置いておきます。

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

最初に、PowerShell　って、前の人が使っていた言葉ですね。