| |
下記のように、ＶＢＡを作ってみました、
「セルＡ３」に入力した番号と同じ番号のファイルを呼び出し開き、もし、同じ番号のファイルがなければ、「セルＡ４」の番号と同じファイルを開く。というものを作りたいのですが、今のままでは、「セルＡ３」に入力した番号のファイルがあっても、「セルＡ４」と同じ名前のファイルも同時に開いてしまいます。
２個のＰＤＦファイルが開いてしまうのですが、どうしたら、いいのでしょうか？
ＶＢＡ超初心者ですが、答えていただける方・・・よろしくお願いします
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)
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/11/15(木) 21:30 -
