在VBA中如何调用VBS脚本-CSDN论坛

⋅VB如何向C++dll里的方法传递byte数组地址 ⋅VBS中使用Adodb.Stream输出不带BOM的UTF-8文件 ⋅在VBA中如何调用VBS脚本 更多帖子 关注空间博客 神之泪花 本版专家分：0 红花 2013年11月挨踢职涯大版内专家分月排行榜第一 2011年11月挨踢职涯大版内专家分月排行榜第一 2011年10月挨踢职涯大版内专家分月排行榜第一 2010年7月挨踢职涯大版内专家分月排行榜第一 2010年6月挨踢职涯大版内专家分月排行榜第一 2010年5月挨踢职涯大版内专家分月排行榜第一 2010年4月挨踢职涯大版内专家分月排行榜第一 黄花 2011年12月挨踢职涯大版内专家分月排行榜第二 2010年9月挨踢职涯大版内专家分月排行榜第二 2010年3月挨踢职涯大版内专家分月排行榜第二 蓝花 2010年8月挨踢职涯大版内专家分月排行榜第三 结帖率 100%: 最近在学习VBA，遇到一个问题
我想在VBA中调用已经写好的VBS脚本，VBA代码如下：
Sub Macro1()
Shell "C:\windows\system32\cmd.exe"
Shell "cd C:\temp"
Shell "cscript test.vbs"

End Sub

上面的command命令在cmd中可以正常执行，但是在VBA中执行到Shell "cd C:\temp"这句就报错了
提示File not found错误

麻烦有这方面经验的朋友帮忙看一下问题出在哪里，如果有其他方法直接调用也欢迎您说说思路

谢谢

0 2012-04-18 16:37:50

回复数 7 只看楼主引用举报楼主

⋅求一条SQL语句，同一个表批量更新 ⋅水个分，致好久不来 ⋅周末散粪玩 更多帖子 关注空间博客 神马被哪个妞占用了呢 本版专家分：12559: 应该是把CD当作命令行了……

0 2012-04-19 00:17:57

只看TA 引用举报 #1 得分 0

⋅qt在调试时如何查看和复制比较长的std::string字符串 ⋅实现带有capacity的多维数组tensor ⋅求支持python和c++混合调试的IDE 更多帖子 关注空间博客 dianyancao 本版专家分：1646: Shell "cscript C:\temp\test.vbs" '不在环境变量%Path%的路径，要用完整路径。

'也可以新建一个批处理文件，然后再直接调用该批处理
  Dim tempString As String

  tempString = "cd C:\temp" & vbCrLf & "cscript test.vbs"

  If Dir("c:\temp\") = "" Then MkDir "c:\temp"
  Open "C:\temp\vbs.bat" For Output As #1
  Print #1, tempString
  Close #1

  Shell "c:\temp\vbs.bat"

0 2012-04-19 00:39:25

只看TA 引用举报 #2    得分 20

⋅求一条SQL语句，同一个表批量更新 ⋅水个分，致好久不来 ⋅周末散粪玩 更多帖子 关注空间博客 神马被哪个妞占用了呢 本版专家分：12559: Sub Macro1()
Shell "C:\windows\system32\cmd.exe /K cd c:\&cd c:\temp&cscript test.vbs"
End Sub

cmd一行多命令，中间用&隔开。

不知道这样行不行

0 2012-04-19 01:24:17

只看TA 引用举报 #3 得分 40

⋅用户 namedajipai 在问答区恶意刷贴 ⋅服务器时间不准！ ⋅[BUG报告](IE8)论坛页头多出多余显示 更多帖子 关注空间博客 Tiger_Zhao 本版专家分：129868 红花 2017年3月 VB大版内专家分月排行榜第一 2016年12月 VB大版内专家分月排行榜第一 2016年5月 VB大版内专家分月排行榜第一 2016年1月 VB大版内专家分月排行榜第一 2015年12月 VB大版内专家分月排行榜第一 2015年11月 VB大版内专家分月排行榜第一 2015年10月 MS-SQL Server大版内专家分月排行榜第一 2015年9月 VB大版内专家分月排行榜第一 2015年9月 MS-SQL Server大版内专家分月排行榜第一 2015年8月 VB大版内专家分月排行榜第一 2015年8月 MS-SQL Server大版内专家分月排行榜第一 2015年7月 VB大版内专家分月排行榜第一 2015年7月 MS-SQL Server大版内专家分月排行榜第一 2015年6月 VB大版内专家分月排行榜第一 2015年5月 VB大版内专家分月排行榜第一 2015年4月 VB大版内专家分月排行榜第一 2015年3月 VB大版内专家分月排行榜第一 2015年2月 VB大版内专家分月排行榜第一 2014年11月 VB大版内专家分月排行榜第一 2014年9月 VB大版内专家分月排行榜第一 2014年8月 VB大版内专家分月排行榜第一 2014年7月 VB大版内专家分月排行榜第一 2013年7月 VB大版内专家分月排行榜第一 2013年4月 VB大版内专家分月排行榜第一 2010年2月 VB大版内专家分月排行榜第一 2010年1月 VB大版内专家分月排行榜第一 2009年11月 VB大版内专家分月排行榜第一 2009年9月 VB大版内专家分月排行榜第一 2009年8月 VB大版内专家分月排行榜第一 2009年7月 VB大版内专家分月排行榜第一 2009年4月 VB大版内专家分月排行榜第一 2009年3月 VB大版内专家分月排行榜第一 2009年2月 VB大版内专家分月排行榜第一 2009年1月 VB大版内专家分月排行榜第一 2008年6月 VB大版内专家分月排行榜第一 2007年12月 VB大版内专家分月排行榜第一 2007年10月 VB大版内专家分月排行榜第一 2007年9月 VB大版内专家分月排行榜第一 黄花 2016年11月 VB大版内专家分月排行榜第二 2016年1月 MS-SQL Server大版内专家分月排行榜第二 2015年12月 MS-SQL Server大版内专家分月排行榜第二 2015年11月 MS-SQL Server大版内专家分月排行榜第二 2015年5月 MS-SQL Server大版内专家分月排行榜第二 2015年4月 MS-SQL Server大版内专家分月排行榜第二 2015年1月 VB大版内专家分月排行榜第二 2015年1月 MS-SQL Server大版内专家分月排行榜第二 2014年12月 VB大版内专家分月排行榜第二 2014年11月 MS-SQL Server大版内专家分月排行榜第二 2014年9月 MS-SQL Server大版内专家分月排行榜第二 2013年8月 VB大版内专家分月排行榜第二 2013年6月 VB大版内专家分月排行榜第二 2013年5月 VB大版内专家分月排行榜第二 2010年4月 VB大版内专家分月排行榜第二 2010年3月 VB大版内专家分月排行榜第二 2008年12月 VB大版内专家分月排行榜第二 2008年8月 VB大版内专家分月排行榜第二 2008年7月 VB大版内专家分月排行榜第二 2007年11月 VB大版内专家分月排行榜第二 蓝花 2017年1月 MS-SQL Server大版内专家分月排行榜第三 2015年6月 MS-SQL Server大版内专家分月排行榜第三 2015年3月 MS-SQL Server大版内专家分月排行榜第三 2015年2月 MS-SQL Server大版内专家分月排行榜第三 2014年12月 MS-SQL Server大版内专家分月排行榜第三 2014年10月 VB大版内专家分月排行榜第三 2014年10月 MS-SQL Server大版内专家分月排行榜第三 2014年8月 MS-SQL Server大版内专家分月排行榜第三 2013年9月 VB大版内专家分月排行榜第三 2013年3月 VB大版内专家分月排行榜第三 2012年5月 VB大版内专家分月排行榜第三 2012年4月 VB大版内专家分月排行榜第三 2010年10月 VB大版内专家分月排行榜第三 2010年8月 VB大版内专家分月排行榜第三 2010年7月 VB大版内专家分月排行榜第三 2009年5月 VB大版内专家分月排行榜第三 2008年9月 VB大版内专家分月排行榜第三 2008年4月 VB大版内专家分月排行榜第三 2008年2月 VB大版内专家分月排行榜第三

Shell 命令是在当前目录下执行的，所以可以这样：

ChDrive "C:"

ChDir "C:\Temp"

Shell "cscript test.vbs"

0 2012-04-19 09:14:03

只看TA 引用举报 #4 得分 40

⋅VB如何向C++dll里的方法传递byte数组地址 ⋅VBS中使用Adodb.Stream输出不带BOM的UTF-8文件 ⋅在VBA中如何调用VBS脚本 更多帖子 关注空间博客 神之泪花 本版专家分：0 红花 2013年11月挨踢职涯大版内专家分月排行榜第一 2011年11月挨踢职涯大版内专家分月排行榜第一 2011年10月挨踢职涯大版内专家分月排行榜第一 2010年7月挨踢职涯大版内专家分月排行榜第一 2010年6月挨踢职涯大版内专家分月排行榜第一 2010年5月挨踢职涯大版内专家分月排行榜第一 2010年4月挨踢职涯大版内专家分月排行榜第一 黄花 2011年12月挨踢职涯大版内专家分月排行榜第二 2010年9月挨踢职涯大版内专家分月排行榜第二 2010年3月挨踢职涯大版内专家分月排行榜第二 蓝花 2010年8月挨踢职涯大版内专家分月排行榜第三: 引用 2 楼  的回复:
Shell "cscript C:\temp\test.vbs" '不在环境变量%Path%的路径，要用完整路径。

'也可以新建一个批处理文件，然后再直接调用该批处理
  Dim tempString As String

  tempString = "cd C:\temp" & vbCrLf & "cscript test.vbs"

  If Dir(……

感谢您的回答
采用完整路径的代码我试过了，实现不了
原因是Shell调用的时候有一个默认的运行路径，如果不更改这个路径
会找不到需要运行的vbs

0 2012-04-19 09:57:18

只看TA 引用举报 #5    得分 0

⋅VB如何向C++dll里的方法传递byte数组地址 ⋅VBS中使用Adodb.Stream输出不带BOM的UTF-8文件 ⋅在VBA中如何调用VBS脚本 更多帖子 关注空间博客 神之泪花 本版专家分：0 红花 2013年11月挨踢职涯大版内专家分月排行榜第一 2011年11月挨踢职涯大版内专家分月排行榜第一 2011年10月挨踢职涯大版内专家分月排行榜第一 2010年7月挨踢职涯大版内专家分月排行榜第一 2010年6月挨踢职涯大版内专家分月排行榜第一 2010年5月挨踢职涯大版内专家分月排行榜第一 2010年4月挨踢职涯大版内专家分月排行榜第一 黄花 2011年12月挨踢职涯大版内专家分月排行榜第二 2010年9月挨踢职涯大版内专家分月排行榜第二 2010年3月挨踢职涯大版内专家分月排行榜第二 蓝花 2010年8月挨踢职涯大版内专家分月排行榜第三: 引用 3 楼的回复:
Sub Macro1()
Shell "C:\windows\system32\cmd.exe /K cd c:\&cd c:\temp&cscript test.vbs"
End Sub

cmd一行多命令，中间用&隔开。

不知道这样行不行

起初我也试过一行多命令的，就是卡在了cd这块
你提供的source测试通过了，重点就在于&符
多谢了

0 2012-04-19 10:05:04

只看TA 引用举报 #6 得分 0

⋅VB如何向C++dll里的方法传递byte数组地址 ⋅VBS中使用Adodb.Stream输出不带BOM的UTF-8文件 ⋅在VBA中如何调用VBS脚本 更多帖子 关注空间博客 神之泪花 本版专家分：0 红花 2013年11月挨踢职涯大版内专家分月排行榜第一 2011年11月挨踢职涯大版内专家分月排行榜第一 2011年10月挨踢职涯大版内专家分月排行榜第一 2010年7月挨踢职涯大版内专家分月排行榜第一 2010年6月挨踢职涯大版内专家分月排行榜第一 2010年5月挨踢职涯大版内专家分月排行榜第一 2010年4月挨踢职涯大版内专家分月排行榜第一 黄花 2011年12月挨踢职涯大版内专家分月排行榜第二 2010年9月挨踢职涯大版内专家分月排行榜第二 2010年3月挨踢职涯大版内专家分月排行榜第二 蓝花 2010年8月挨踢职涯大版内专家分月排行榜第三: 引用 4 楼的回复:
Shell 命令是在当前目录下执行的，所以可以这样：

VB code

ChDrive "C:"
ChDir "C:\Temp"
Shell "cscript test.vbs"

这样操作也是可以实现的，测试通过
重点在于【Shell 命令是在当前目录下执行的】
感谢您的回答

0 2012-04-19 10:06:22

只看TA 引用举报 #7 得分 0

在VBA中如何调用VBS脚本 [问题点数：100分，结帖人jie8991]