中国DOS联盟

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,"系统提示"

jmz573515辛苦
我试试看~~

提示：出现错误，脚本退出
是不是环境设置有什么要求或者文件摆放的位置有要求

list.xls，这个脚本，要改名的文件放在同一目录下。

ms这句执行有错误：fso.getfile(objExcel.Cells(h,1).Value).name=objExcel.Cells(h,2).Value
文件名没有给对还是要加上文件的扩张名

我这个脚本，list.xls，以及女人花.doc，文档.doc，记事本.doc
这几个文件我都放在同一目录下
但是运行就会报错

原来不就是带的扩展名吗？（我是按带扩展名处理的）
还有如果文件名已经改过1个或着几个，就会出现错误，总之文件名和EXCEL里的内容要完全一致。

会不会存在这个问题，
脚本和list.xls在同一目录下可能会出错？

不会，要求就是在同一目录下的

我现在设置的是显示文件的扩展名
实际情况是excel表格里面只给出文件的前缀，没有跟扩展名
这个怎么改呢？

同一目录下有其他文件不会发生冲突
如果我把excel文件下对应的都加上文件的扩展名没问题
可以修改
但一般都不给出扩展名

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,"系统提示"

可以实现了
谢谢jmz573515
学到很多哈~~
起初只是想到用批处理来实现

顺便问一下：16+4096,"提示
以及：4096+48,"系统提示"
2个数字有什么特别的作用
一些代码的意思有点理解
其他继续学习ing

Last edited by frankkf on 2007-7-31 at 04:08 PM ]

VbCritical 16 显示 Critical Message 图标。
VbExclamation 48 显示 Warning Message 图标。
vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。 （你居然加这个=.=）

4096对系统有什么影响
如果加的不对或者有问题的话，会出现什么情况