Excel VBA質問箱 IV

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

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


29512 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   下記のように、VBAを作ってみました、
「セルA3」に入力した番号と同じ番号のファイルを呼び出し開き、もし、同じ番号のファイルがなければ、「セルA4」の番号と同じファイルを開く。というものを作りたいのですが、今のままでは、「セルA3」に入力した番号のファイルがあっても、「セルA4」と同じ名前のファイルも同時に開いてしまいます。
2個のPDFファイルが開いてしまうのですが、どうしたら、いいのでしょうか?
VBA超初心者ですが、答えていただける方・・・よろしくお願いします

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 質問
【52503】Re:PDFファイルを開く方法 ponpon 07/11/15(木) 21:49 発言
【52529】Re:PDFファイルを開く方法 kao 07/11/17(土) 20:01 お礼

29512 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free