在VBA中如何调用VBS脚本

VB > VBA
收藏 回复
[问题点数：100分，结帖人jie8991]
更多帖子
私信 空间 博客
神之泪花
本版专家分：0
结帖率 100%
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2013年11月 挨踢职涯大版内专家分月排行榜第一
2011年11月 挨踢职涯大版内专家分月排行榜第一
2011年10月 挨踢职涯大版内专家分月排行榜第一
2010年7月 挨踢职涯大版内专家分月排行榜第一
2010年6月 挨踢职涯大版内专家分月排行榜第一
2010年5月 挨踢职涯大版内专家分月排行榜第一
2010年4月 挨踢职涯大版内专家分月排行榜第一
Blank
黄花 2011年12月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第二
2010年3月 挨踢职涯大版内专家分月排行榜第二
Blank
蓝花 2010年8月 挨踢职涯大版内专家分月排行榜第三
最近在学习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错误

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

谢谢
只看楼主 引用 举报 楼主 收起
展开阅读全文
更多帖子
私信 空间 博客
神马被哪个妞占用了呢
本版专家分：12519
应该是把CD当作命令行了……
只看TA 引用 举报 #1得分 0
更多帖子
私信 空间 博客
dianyancao
本版专家分：1633
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"
只看TA 引用 举报 #2得分 20
更多帖子
私信 空间 博客
神马被哪个妞占用了呢
本版专家分：12519
Sub Macro1()
Shell "C:\windows\system32\cmd.exe /K cd c:\&cd c:\temp&cscript test.vbs"
End Sub


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


不知道这样行不行
只看TA 引用 举报 #3得分 40
更多帖子
私信 空间 博客
Tiger_Zhao
本版专家分：129844
Blank
红花 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大版内专家分月排行榜第一
Blank
黄花 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大版内专家分月排行榜第二
Blank
蓝花 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"
只看TA 引用 举报 #4得分 40
更多帖子
私信 空间 博客
神之泪花
本版专家分：0
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2013年11月 挨踢职涯大版内专家分月排行榜第一
2011年11月 挨踢职涯大版内专家分月排行榜第一
2011年10月 挨踢职涯大版内专家分月排行榜第一
2010年7月 挨踢职涯大版内专家分月排行榜第一
2010年6月 挨踢职涯大版内专家分月排行榜第一
2010年5月 挨踢职涯大版内专家分月排行榜第一
2010年4月 挨踢职涯大版内专家分月排行榜第一
Blank
黄花 2011年12月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第二
2010年3月 挨踢职涯大版内专家分月排行榜第二
Blank
蓝花 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
只看TA 引用 举报 #5得分 0
更多帖子
私信 空间 博客
神之泪花
本版专家分：0
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2013年11月 挨踢职涯大版内专家分月排行榜第一
2011年11月 挨踢职涯大版内专家分月排行榜第一
2011年10月 挨踢职涯大版内专家分月排行榜第一
2010年7月 挨踢职涯大版内专家分月排行榜第一
2010年6月 挨踢职涯大版内专家分月排行榜第一
2010年5月 挨踢职涯大版内专家分月排行榜第一
2010年4月 挨踢职涯大版内专家分月排行榜第一
Blank
黄花 2011年12月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第二
2010年3月 挨踢职涯大版内专家分月排行榜第二
Blank
蓝花 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测试通过了，重点就在于&符
多谢了
只看TA 引用 举报 #6得分 0
更多帖子
私信 空间 博客
神之泪花
本版专家分：0
Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2013年11月 挨踢职涯大版内专家分月排行榜第一
2011年11月 挨踢职涯大版内专家分月排行榜第一
2011年10月 挨踢职涯大版内专家分月排行榜第一
2010年7月 挨踢职涯大版内专家分月排行榜第一
2010年6月 挨踢职涯大版内专家分月排行榜第一
2010年5月 挨踢职涯大版内专家分月排行榜第一
2010年4月 挨踢职涯大版内专家分月排行榜第一
Blank
黄花 2011年12月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第二
2010年3月 挨踢职涯大版内专家分月排行榜第二
Blank
蓝花 2010年8月 挨踢职涯大版内专家分月排行榜第三
引用 4 楼  的回复:
Shell 命令是在当前目录下执行的，所以可以这样：

VB code

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


这样操作也是可以实现的，测试通过
重点在于【Shell 命令是在当前目录下执行的】
感谢您的回答
只看TA 引用 举报 #7得分 0
收起
收藏 回复
神之泪花

等级：

Blank
签到新秀 累计签到获取，不积跬步，无以至千里，继续坚持！
Blank
红花 2013年11月 挨踢职涯大版内专家分月排行榜第一
2011年11月 挨踢职涯大版内专家分月排行榜第一
2011年10月 挨踢职涯大版内专家分月排行榜第一
2010年7月 挨踢职涯大版内专家分月排行榜第一
2010年6月 挨踢职涯大版内专家分月排行榜第一
2010年5月 挨踢职涯大版内专家分月排行榜第一
2010年4月 挨踢职涯大版内专家分月排行榜第一
Blank
黄花 2011年12月 挨踢职涯大版内专家分月排行榜第二
2010年9月 挨踢职涯大版内专家分月排行榜第二
2010年3月 挨踢职涯大版内专家分月排行榜第二
Blank
蓝花 2010年8月 挨踢职涯大版内专家分月排行榜第三
关注 私信 TA的帖子
Excel VBA编写代码操控 OneNote

遇到困难，网站为Flash图片，图片中的一些按钮之类大同小异总有些变化，所以编好的代码由于这种变化经常识别不了，无意中发现，借助微软OneNote的OCR图片识别功能可做到，故整理了此文档供vb及VBA开发者参考

【Python】如何在VBA中调用Python脚本

已有一个Python脚本实现了部分功能，想使用VBA直接调用Python脚本 Python脚本如下： import time def hello(name): return "Hello, " + name + "!" print hello("World") #延时关闭windows控制台，使得用户...

使用VS2013调试vbs脚本

vs2013中设置上： 调试–选项和设置–实时 命令行输入wscript /X 要调试vbs脚本的路径 例如：wscript /X C:/outfile.vbs 可以开始调试了

wincc 趋势曲线VBS脚本

博途V15 wincc使用VBS脚本添加删除趋势曲线，文件为添加删除曲线脚本

VBS脚本常用经典代码收集

1、VBS脚本用途 计算 处理文件和文件夹 管理Windows 处理Word, Excel, PowerPoint等Office文档 嵌入网页，驱动dHTML 编写HTTP通信 调用系统功能（COM组件），比如说语音说话 分析HTML, XML 调用命令行并...

VBS脚本语法简略教程（1）

表示脚本 msgbox "Hello World!" Msgbox语法：msgbox "内容", , "标题"2、输入输出交互 Dim name name= Inputbox("请输入你的名字:","名称") Inputbox(&...

VBS 与 VBA 的区别

‘■前言 VBA操作Excel很常见， 之前也看到过使用VBS操作Excel，来完成某些...VBA中的某些代码，复制到VBS不一定好用。 反过来也是同样。 ■VBS 代码运行，基于windows的“wscript.exe” https://blog....

VBA中调用Java程序

1、创建一个Java Class代码可以简单如下public class Test { public static void main(String[] args) { System.out... }}2、编译Class3、在VBA中通过如下代码调用java Dim ws As WshShell Dim we As WshExec ...

在VBA中使用JAVASCRIPT和VBSCRIPT

以下文字整理自http://club.excelhome.net 作者 figfig 节选了自己能明白的部分代码,还有部分php和js... 代码1: 数组排序 ...Set x = CreateObject("msscriptcontrol.scriptcontrol") x.Language = "javascrip

通过VBS代码调用Excel中的宏

在自动化测试过程中，采用Excel作为数据源是很常见的。而在访问数据之前，需要对数据进行动态更新，这时候就需要通过VBA来实现。 首先在在Excel中编辑一个...在外部VBS代码中，调用这个宏： Set oExcel = createobjec

dos批处理文件中使用vbs

mshta命令用法示例_DOS/BAT_脚本之家 http://www.jb51.net/article/50370.htm 这篇文章主要介绍了mshta命令用法示例 ,需要的朋友可以参考下 它支持命令行参数，可以接收JS和VBS的方法。看示例（在命令行下...

HTML页面中使用VBS和JS脚本直接运行Windows可执行程序

HTML页面中使用VBS和JS脚本直接运行Windows可执行程序 2015-03-22 23:28:00weixin_33843409阅读数 106 原文链接：https://my.oschina.net/Tsybius2014/blog/390188

使用 Sublime Text 编写 VBS 脚本

最近在用QTP编辑VBS脚本，但是QTP本身的IDE环境不好用，因此这里推荐一款好用的工具：Sublime Text Sublime Text 下载地址：https://www.sublimetext.com/ VBS插件的下载地址：...

【VBS脚本教程】:写入记事本文件及输出

代码Dim wshshell set wshshell = createobject("wscript.shell") wshshell.run "notepad" wscript.sleep 1500 wshshell.appactivate "成功" wshshell.sendkeys "happy birthday!!!" wscript.sleep 500 ...

定时提醒和倒计时VBS脚本

VBS是一种Windows脚本，它的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版)，VBS是Visual Basic的的一个抽象子集，是系统内置的，除了web前端使用外，用它编写的脚本代码可直接由Windows...

VBS脚本如何把数据库里面返回值赋给脚本里面的一个变量啊！

VBS脚本如何把数据库里面返回值赋给脚本里面的一个变量啊！ 只返回某字段查找的某一个值，我试了好久就是不成功。 上网查的方法，不会用： setrs=connObj.execute(strSQLCode)ifnotrs.eofthenmsgboxrs(字段名)或用...

vbs 脚本：CopyFile

Rem : =========== 将文件 file 复制到文件夹 folder 中 Rem : =========== file必须存在 Rem : =========== folder必须存在且属性不能为只读 Rem : =========== foler中不能存在与file同名的文件或文件夹 Sub ...

vba vbs ansi_c脚本

基于wincc vba , vbs , ansi_c 脚本资料

VBS 脚本中的字典、动态数组、队列和堆栈

今天用VBS脚本写了几个程序，用到了字典（Dictionary）、动态数组（ArrayList）、队列（Queue）和堆栈（Stack）。现在写篇Blog总结一下 ：-） 1.编写环境 今天突发奇想下载了个gVim来写VBS脚本，我用的版本是7.4的...

使用vbs脚本uft8toansi进行文件编码转换

控制台里面编译.java文件，如果源文件字符编码是utf-8...百度了很久批处理没有结果，最后使用vbs来转换。将代码内容保存，文件名为uft8toansi.vbs。就能使用：uft8toansi srcFile tarFile '另存为 uft8toansi srcFile

相关热词 c#中如何设置提交按钮 c#帮助怎么用 c# 读取合并单元格的值 c#带阻程序 c# 替换span内容 c# rpc c#控制台点阵字输出 c#do while循环 c#调用dll多线程 c#找出两个集合不同的