Sub 打开文件()
Dim NMM
Dim myxls As Workbook, thisbook, pic, pic1, psize
Set thisbook = ThisWorkbook
NMM = thisbook.ActiveSheet.Cells(4, 2).Value & "\"
mopen = Shell("Explorer.exe Y:\品质部\55 数据中心\NMM", vbNormalFocus)
End Sub
Sub 打开文件()
Dim NMM
Dim myxls As Workbook, thisbook, pic, pic1, psize
Set thisbook = ThisWorkbook
NMM = thisbook.ActiveSheet.Cells(4, 2).Value & "\"
mopen = Shell("Explorer.exe Y:\品质部\55 数据中心\NMM", vbNormalFocus)
上面的这句话我加了&还是打不开路径中的这个wen'j
End Sub