[已解决]为什么这段代码不能运行

wjp023

老师，为什么下面的代码不能运行批处理文件？是哪里的引号错了吗
Dim mst As String
mst = ThisWorkbook.Path
Shell "cmd.exe /c mst & "\不显示隐藏文件.bat""

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-30 12:16

1. Sub test()
   
2.     Dim mst As String
   
3.     mst = ThisWorkbook.Path
   
4.     Debug.Print "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
   
5.     Shell "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
   
6. End Sub

复制代码

可以看看立即窗口的输出。

跳转到最佳答案楼层

hwc2ycy

Dim mst As String
mst = ThisWorkbook.Path
Shell "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""

hwc2ycy

mst是变量，要放到引号外面。

hwc2ycy

1. Sub test()
   
2.     Dim mst As String
   
3.     mst = ThisWorkbook.Path
   
4.     Debug.Print "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
   
5.     Shell "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
   
6. End Sub

复制代码

可以看看立即窗口的输出。

wjp023

没想到这么快就回了，hwc2ycy 老师。
Debug.Print "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
是什么意思呢

hwc2ycy

wjp023 发表于 2013-4-30 12:28
没想到这么快就回了，hwc2ycy 老师。
Debug.Print "cmd.exe /c """ & mst & "\不显示隐藏文件.bat"""
是什 ...

这是在立即窗体输出信息，方便调试用的。

wjp023

哦，谢谢老师的耐心讲解。