12
返回列表 发帖
普大喜奔

Rank: 2

帖子
77 
积分
103 
技术
1  
捐助
0  
注册时间
2014-9-18 
5楼 跳转到 »
发表于 2014-9-20 15:12 | 只看该作者
回复 3# CrLf
今天分用完了 绝对+1
!scripting!

TOP

普大喜奔

Rank: 2

帖子
77 
积分
103 
技术
1  
捐助
0  
注册时间
2014-9-18 
4楼
发表于 2014-9-20 15:11 | 只看该作者
回复 3# CrLf
真是帮了我大忙了！！这个论坛太棒了 高手如云 菜鸟的福音 哈哈
!scripting!

TOP

CrLf

Rank: 8Rank: 8

帖子
6388 
积分
18843 
技术
982  
捐助
100  
注册时间
2010-10-9 
3楼
发表于 2014-9-20 15:09 | 只看该作者
本帖最后由 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,,,,,"|")COPY
1

评分人数

链接：在线第三方命令行工具下载   bat、vbs、js 原生混编

TOP

普大喜奔

Rank: 2

帖子
77 
积分
103 
技术
1  
捐助
0  
注册时间
2014-9-18 
2楼
发表于 2014-9-20 15:07 | 只看该作者
重新写了一遍代码 这次是第3行出错：缺少语句，改成
set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.open Filename:="d:\data.txt"COPY
依然出错，再改
set oexcel=createobject("excel.application")
oexcel.visible=true
oexcel.workbooks.open("d:\data.txt")COPY
正常运行。我晕死了 这两种写法不是都有效的吗 还请高手来解惑
!scripting!

TOP

12
返回列表