TA的每日心情 | 擦汗 前天 09:07 |
---|
签到天数: 527 天 连续签到: 4 天 [LV.9]测试副司令
|
1测试积点
- 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
|
|