短短几行VBS代码为何总是提示无效字符

普大喜奔 · 发表于 2014-9-20 14:33:36

set oExcel=CreateObject("Excel.Application")
oExcel.Visible=True
set xlsfile=oExcel.Workbooks.Open FileName:="d:\data.txt",ReadOnly:=True,Format:=6,Delimiter=:"|"

复制代码

总共3行的脚本提示第1行错误：无效字符
到底哪里出问题了呢别的脚本类似代码运行的好好的啊会不会是open方法的参数写法不对可是也不应该提示是第1行的问题啊？？？

普大喜奔 · 发表于 2014-9-20 15:07:15

重新写了一遍代码这次是第3行出错：缺少语句，改成

set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.open Filename:="d:\data.txt"

复制代码

依然出错，再改

set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.open("d:\data.txt")

复制代码

正常运行。我晕死了这两种写法不是都有效的吗还请高手来解惑

CrLf · 发表于 2014-9-20 15:09:02

本帖最后由 CrLf 于 2014-9-20 15:57 编辑

FileName:="d:\data.txt",ReadOnly:=True,Format:=6,Delimiter=:"|"

这是 vba 的参数赋值方法，不适用于 vbs
vbs 不能跳着赋值，只能挨个填坑：

set xlsfile=oExcel.Workbooks.Open( "d:\data.txt",,True,6,,,,,"|")

复制代码

普大喜奔 · 发表于 2014-9-20 15:11:43

回复 3# CrLf
真是帮了我大忙了！！这个论坛太棒了高手如云菜鸟的福音哈哈

普大喜奔 · 发表于 2014-9-20 15:12:35

回复 3# CrLf
今天分用完了绝对+1

普大喜奔 · 发表于 2014-9-20 15:22:38

回复 3# CrLf
word的document.open参数可以跳着写啊，比如
set docfile=objWord.Documents.Open FileName:=arg,ReadOnly:=True,ConfirmConversions:=false,NoEncodingDialog:=true
在另一个脚本里可以正常运行
excel的确是你说的没法这么搞

CrLf · 发表于 2014-9-20 15:31:10

回复 6# 普大喜奔

vbs 没有 FileName:=arg 这种用法

普大喜奔 · 发表于 2014-9-20 15:33:07

回复 7# CrLf
呵呵我没全贴出来 arg是个字符串变量在前面定义了

CrLf · 发表于 2014-9-20 15:54:25

回复 8# 普大喜奔

我的意思是 vbs 没有 := 运算符

普大喜奔 · 发表于 2014-9-20 15:55:01

回复 7# CrLf
小弟又有新问题求教，还是刚才的代码，运行正常了但没有效果，比如data.txt的内容是这样

我用excel手动打开并设置分隔符为"|"的效果是这样

但代码运行的效果是这样

全部的内容都挤在第一列了 open参数好像没有起作用哇

CrLf · 发表于 2014-9-20 15:58:26

回复 10# 普大喜奔

没注意前面有个 set，已修改，但运行到那里应该会报错退出才是，你是怎么打开的...

普大喜奔 · 发表于 2014-9-20 16:04:45

回复 11# CrLf
代码是这样

set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.open "d:\data.txt",,True,6,,,,,"|"

复制代码

data.txt内容：
张三|12345|abc|
李大四|67890|def|

普大喜奔 · 发表于 2014-9-20 16:07:59

回复 11# CrLf
你说那个打开word的代码啊是这样

objWord.Visible=False
'以只读方式打开，并且避免打开文件转换或编码对话框
set docfile=objWord.Documents.Open FileName:=arg,ReadOnly:=True,ConfirmConversions:=false,NoEncodingDialog:=true
str=docfile.Content
docfile.Close

复制代码

CrLf · 发表于 2014-9-20 16:24:31

回复 12# 普大喜奔

同样的代码，已测无误，可能是版本差异。
我这里 MsgBox oexcel.Version 的结果是 11.0
你可以去下一个 vbsedit 或者直接用 excel 的宏编辑器，利用自动提示看下 .open 方法的参数说明，把参数对上位置就行

普大喜奔 · 发表于 2014-9-20 16:30:57

回复 14# CrLf
好的非常非常感谢啊有高人指点少走好多弯路

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[问题求助] 短短几行VBS代码为何总是提示无效字符

评分

浏览过的版块