普大喜奔

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

普大喜奔

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

CrLf

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

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

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

普大喜奔

重新写了一遍代码 这次是第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")
复制代码

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