|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
16 楼』:
vbs写的，直接读取读取“list.xls”文件
on error resume next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
path=ws.currentdirectory
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(path & "\list.xls")
h=1
do until objExcel.Cells(h,1).Value=""
fso.getfile(objExcel.Cells(h,1).Value).name=objExcel.Cells(h,2).Value
if err then
objexcel.quit
err.clear
msgbox "出现错误，脚本退出！",16+4096,"提示"
wscript.quit
end if
h=h+1
loop
objExcel.Quit
msgbox "操作成功！",4096+48,"系统提示"
|
|
 2007-7-31 14:48 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
17 楼』:
jmz573515辛苦
我试试看~~
|
|
|
2007-7-31 14:57 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
18 楼』:
提示：出现错误，脚本退出
是不是环境设置有什么要求或者文件摆放的位置有要求
|
|
|
2007-7-31 15:05 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
19 楼』:
list.xls，这个脚本，要改名的文件放在同一目录下。
|
|
|
2007-7-31 15:26 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
20 楼』:
ms这句执行有错误：fso.getfile(objExcel.Cells(h,1).Value).name=objExcel.Cells(h,2).Value
文件名没有给对还是要加上文件的扩张名
|
|
|
2007-7-31 15:35 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
21 楼』:
我这个脚本，list.xls，以及女人花.doc，文档.doc，记事本.doc
这几个文件我都放在同一目录下
但是运行就会报错
|
|
|
2007-7-31 15:44 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
22 楼』:
原来不就是带的扩展名吗？（我是按带扩展名处理的）
还有如果文件名已经改过1个或着几个，就会出现错误，总之文件名和EXCEL里的内容要完全一致。
|
|
|
2007-7-31 15:44 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
23 楼』:
会不会存在这个问题，
脚本和list.xls在同一目录下可能会出错？
|
|
|
2007-7-31 15:45 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
|
|
2007-7-31 15:46 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
25 楼』:
我现在设置的是显示文件的扩展名
实际情况是excel表格里面只给出文件的前缀，没有跟扩展名
这个怎么改呢？
|
|
|
2007-7-31 15:48 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
26 楼』:
同一目录下有其他文件不会发生冲突
如果我把excel文件下对应的都加上文件的扩展名没问题
可以修改
但一般都不给出扩展名
|
|
|
2007-7-31 15:52 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
27 楼』:
on error resume next
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
path=ws.currentdirectory
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(path & "\list.xls")
h=1
do until objExcel.Cells(h,1).Value=""
fso.getfile(objExcel.Cells(h,1).Value & ".doc").name=objExcel.Cells(h,2).Value & ".doc"
if err then
objexcel.quit
err.clear
msgbox "出现错误，脚本退出！",16+4096,"提示"
wscript.quit
end if
h=h+1
loop
objExcel.Quit
msgbox "操作成功！",4096+48,"系统提示"
|
|
|
2007-7-31 15:57 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
28 楼』:
可以实现了
谢谢jmz573515
学到很多哈~~
起初只是想到用批处理来实现
顺便问一下：16+4096,"提示
以及：4096+48,"系统提示"
2个数字有什么特别的作用
一些代码的意思有点理解
其他继续学习ing
[ Last edited by frankkf on 2007-7-31 at 04:08 PM ]
|
|
|
2007-7-31 16:07 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
29 楼』:
VbCritical 16 显示 Critical Message 图标。
VbExclamation 48 显示 Warning Message 图标。
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。 （你居然加这个=.=）
|
|
|
2007-7-31 16:53 |
|
|
frankkf
初级用户
积分 88
发帖 43
注册 2007-5-30
状态 离线
|
『第
30 楼』:
4096对系统有什么影响
如果加的不对或者有问题的话，会出现什么情况
|
|
|
2007-7-31 17:01 |
|
