无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 3456|回复: 5
打印 上一主题 下一主题

[求助] 这个VBS中的变量如何调用

[复制链接]
跳转到指定楼层
1#
发表于 2021-6-26 20:24:42 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

这个VBS中的变量ExcelApp.Path如何调用
Set pp = CreateObject("WScript.Shell")
SET ExcelApp=CreateObject("Excel.Application")
Msgbox ExcelApp.Path '显示的是office所在目录

pp.run  """&ExcelApp.Path&"""   '打不开所在目录



2#
发表于 2021-6-26 21:32:12 | 只看该作者
pp.run  """"&ExcelApp.Path&""""

点评

谢谢,用你的代码打开了 为什么要4对引号呢 若是写的绝对空格路径,3对引号就行了  详情 回复 发表于 2021-6-26 22:24
回复

使用道具 举报

3#
 楼主| 发表于 2021-6-26 22:24:37 | 只看该作者
slore 发表于 2021-6-26 21:32
pp.run  """"&ExcelApp.Path&""""

谢谢,用你的代码打开了

为什么要4对引号呢

若是写的绝对空格路径,3对引号就行了

点评

"abc" "def",引用的字符串中有引号时,解析器怎么知道你不是 "abc"和"def"这2个字符串? 所以引号中的引号用2来转义表示。  详情 回复 发表于 2021-6-26 22:58
回复

使用道具 举报

4#
发表于 2021-6-26 22:58:55 | 只看该作者
yjqd 发表于 2021-6-26 22:24
谢谢,用你的代码打开了

为什么要4对引号呢

"abc"   "def",引用的字符串中有引号时,解析器怎么知道你不是

"abc"和"def"这2个字符串?


所以引号中的引号用2来转义表示。

点评

谢谢 能否再问一个问题: Dim WshShell, oExec Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("cmd /c echo abc") IF oExec.StdOut.ReadAll=abc Then Msgbox "OK" End If  详情 回复 发表于 2021-6-27 10:12
回复

使用道具 举报

5#
 楼主| 发表于 2021-6-27 10:12:03 | 只看该作者
slore 发表于 2021-6-26 22:58
"abc"   "def",引用的字符串中有引号时,解析器怎么知道你不是

"abc"和"def"这2个字符串?

谢谢

能否再问一个问题:
Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")
Set oExec = WshShell.Exec("cmd /c echo abc")

IF oExec.StdOut.ReadAll=abc Then
Msgbox "OK"
End If


运行无结果
如果红色的abc改为数字,比如89,运行后有结果,弹出消息框:OK

为什么数字有结果,而字符无结果呢



回复

使用道具 举报

6#
发表于 2021-6-27 11:47:40 | 只看该作者
abc是变量,"abc"是字符串。

abc = "xyz" 可以。

89  = 120 不行。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-11-27 08:13

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表