![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
いつもお世話になっています。ちょっと前に 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
![「PowerShellを使って関連付けられ」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/3/772459_57804cb3c2d4b/M.jpg)
No.1ベストアンサー
- 回答日時:
最初に、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
ご解答ありがとうございます。
リンク先の説明を読んでみました。
今のところどれもあてはまるようなものがないような気がします。
正直なところよくわかりませんが。
とにかく職場のNASとWifi環境下でないと試せないので、
すいませんが詳細の説明は月曜日以降ということにさせて頂きます。
もしご面倒でなければ月曜日以降に観て頂ければ補足のところで説明します。
※質問はしばらく閉じないとおきます。
いつもご解答ありがとうございます。
No.3
- 回答日時:
>1回目のコードでバッチリです!
>どうしてこんなに安定しているのか不思議です。
思惑があたったというところですが、ファイルの種類がある程度決まっているなら大丈夫だと思います。
まあ、もしダメでも、解決方法はいくつか用意していますから、その時は、またお聞きになったらよいかと思いますが、分からなくなったら、コマンドプロンプト上で、試してみれば、だいたいのことはみえてくるはずです。
今回は本当にありがとうございます。
エラーメッセージの件ですが職場でお礼をアップした時には、
エラーメッセージがご指摘の症例だということに気が付きませんでした。
今落ち着いて読み返したところご指摘の通りで、確かにファイル名ではありませんが、
フォルダー名の一部に全角スペースがありました。
それとリンク先のページにあった「Chr(34)」と「""」が同じだということも今回初めて知りました。
前回教えて頂いた方のコードの中にも「Chr(34)」という文字があったのですが、
意味がわからないままスルーしていました。
今回は本当にありがとうございます。
VBAの本を2冊読み終え、そろそろ3冊目も読み終えます。
もうちょっと実力がついたら今まで頂いたアドバイスを読み返してみようと思っています。
今後ともよろしくお願いします。
今回は本当にありがとうございました。
No.2
- 回答日時:
ちょっと、返事をつけやすいようにコメントを置いておきます。
今回のコードの手法は、あくまでも、Wscript.Shell オートメーション・オブジェクトを用いた方法であり、フォルダー・オプションの中で拡張子が登録してあるという前提が成り立っている中で、組み立てられたコードです。PCによって、例えば、拡張子が登録していなければ、何の意味もありません。
簡単に確認するには、エクスプローラーなどで、ファイルを選択して、クリックして、アプリが呼び出されるかどうかで決まります。
しかし、例えば、拡張子.pdf だけの話なら、本体のAcrobat Reader を呼び出せば済むことなのですし、拡張子によっていくつかのプログラムを呼び出すことも可能なのです。
また、#1 で書いている「""(ダブルコーテーション)」についても、ショートネームにすれば、不要なことなのです。もちろん、ChDir で、そのファイルのフォルダーに変更するという手もあるわけです。
Wscript.Shell を利用するのは、その一つでしかありません。
返答が遅くなりすいません。
追加のアドバイスありがとうございます。
1回目のコードでバッチリです!
どうしてこんなに安定しているのか不思議です。
本当にありがとうございます。
前回のコードで解決ですがせっかくですので、
問題のエラーメッセージを貼り付けておきます。
>また、#1 で書いている「""(ダブルコーテーション)」についても、ショートネームにすれば、不要なことなのです。もちろん、ChDir で、そのファイルのフォルダーに変更するという手もあるわけです。
この件は今の私ではよくわからないのですが、ちょっとづつ勉強しようと思います。
あと前回のアドバイスで「VBScript」という言葉がありました。
これも初めて聞く言葉なので軽く調べておきます。
いつもいろいろアドバイスありがとうございます。
PS
先の通りエラーメッセージの件があるので、
一応、質問を閉じないで開けておきます。
※エラーメッセージは以下の通りです
タイピングミスはないと思いますが補足のところに画像も張り付けておきます。
↓
「実行時エラー'-2147024894(80070002)':
'Run'メソッドは失敗しました:'IWshShell3'オブジェクト」
※今晩、No.1の答えにベストアンサーをつけて閉じる予定です。
いつも本当にありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
【EXCEL-VBA】PDFファイルを開いて印刷したい
Excel(エクセル)
-
VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません
Visual Basic(VBA)
-
エクセルVBAでPDFを作成したい
Visual Basic(VBA)
-
-
4
EXCEL ページを指定してPDF出力するVBAを教えてください。
PDF
-
5
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
-
6
PDFファイルを開き、印刷し、閉じるマクロ
Visual Basic(VBA)
-
7
Excelのセルにユーザー名を表示する方法
Excel(エクセル)
-
8
VBAにてTIFFから画像を取込みたいのですが
Visual Basic(VBA)
-
9
vbaから他のアプリを終了
Visual Basic(VBA)
-
10
VBA 実行時エラー 2147024893
Visual Basic(VBA)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
Application.Runエラー(1004)
Excel(エクセル)
-
13
ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存
Visual Basic(VBA)
-
14
VBAでホルダー内のPDFを一括印刷したい
Excel(エクセル)
-
15
WSH.Run の処理内容をテキストに落とすには
その他(プログラミング・Web制作)
-
16
エクセルでエラーが出て困っています。
Excel(エクセル)
-
17
Dirコマンドでフォルダ内ファイルの合計サイズをだすには?(コマンドプロンプトにて)
UNIX・Linux
-
18
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
19
Excel VBA の印刷後の判定
Excel(エクセル)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Returnに対するGoSubがありません
-
「パス名が無効です」の発生原因
-
エラー:インクルードファイル ...
-
画像読み込み失敗の判定
-
cube PDFについて
-
アクセスのクエリでコンパイル...
-
エクセル Fill.UserPictureで...
-
fgets関数のEOFの扱い方について
-
access テキストボックスの値取得
-
ファイルの有無を確認した際の...
-
メニューのショートカットキー
-
batファイルでレジストリキーの...
-
CFileのReadでの例外エラー#38...
-
VBAでPDFを読み取り、シートに...
-
PowerShellを使って関連付けら...
-
構造体をランダムファイルに書...
-
freadでデータがない場合の読込...
-
VB6.0開発ソフトインストールで...
-
イベントが発生しない vba
-
EXCELでのXMLファイルのインポ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba ファイル書き込み時に書き...
-
「パス名が無効です」の発生原因
-
Returnに対するGoSubがありません
-
PowerShellを使って関連付けら...
-
エクセル VBA dll 読み込...
-
batファイルでレジストリキーの...
-
gccを行ってもexeファイルが生...
-
アクセスのクエリでコンパイル...
-
VBから参照できないCのDLLを使...
-
access テキストボックスの値取得
-
VBでファイルが開かれているか...
-
EXCELのVBAでWORDが開いてある...
-
NAS上のファイルの使用中が解除...
-
VB6 Dir関数で52エラー発生
-
VBA ExecuteExcel4Macro 型が一...
-
エクセルマクロでエラーの原因...
-
fgets関数のEOFの扱い方について
-
【COBOL】read文でエラー
-
FTPの送信結果を検知したい
-
FORTRANの実行エラーについて
おすすめ情報
エラーメッセージの画像です