|
下記のように、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)
|
|