Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29518 / 76738

←次へ　｜　前へ→


	【52501】PDFファイルを開く方法

kao

- 07/11/15(木) 21:30 -


	引用なし

	パスワード

下記のように、ＶＢＡを作ってみました、
「セルＡ３」に入力した番号と同じ番号のファイルを呼び出し開き、もし、同じ番号のファイルがなければ、「セルＡ４」の番号と同じファイルを開く。というものを作りたいのですが、今のままでは、「セルＡ３」に入力した番号のファイルがあっても、「セルＡ４」と同じ名前のファイルも同時に開いてしまいます。
２個のＰＤＦファイルが開いてしまうのですが、どうしたら、いいのでしょうか？
ＶＢＡ超初心者ですが、答えていただける方・・・よろしくお願いします

option Explicit

private Sub Openfile(strfileName As String)
　Select Case strConv(Right$(strfileName,3),vbUpperCase)
　 Case "XLS"
　　 Call Shell("EXCEL.exe " & Chr$(&H22) & strfileName & Chr$(&H22))
　 Case Else

　　 Call shell(Environ("ComSpec") & " /c "& Chr$(&H22) & strfileName &_ Chr$(&H22))
End Select

End Sub

Private Sub Worksheet_Change(ByVal C As Range)
　 Dim strPartsNumber As String
　 Dim strfileName As String
　 Dim LR As String
　 Dim LRfile As String

strPartsNumber = Worksheets("DATA").range("a3")
LR =　Worksheets("DATA").range("a4")

strfileName = "Y:\商品番号ファイル" & "\" & strPartsNumber & ".pdf"
LRfileName = ""Y:\商品番号ファイル" & "\" & LR & ".pdf"

Call Openfile(strfileName)
Call openfile(LRfileName)

0 hits

▼

【52501】PDFファイルを開く方法 kao 07/11/15(木) 21:30

≪