如何依次打开并关闭多个连续excel文件？（已解决）

32714107 · 发表于 2012-5-31 19:14:56

本帖最后由 32714107 于 2012-6-5 14:58 编辑

有多个excel文件，序号从1到200，里面的内容改的大都一样。怎么设置一个脚本，依次打开并修改后关闭excel文件啊。
我知道
run("explorer.exe /e,G:\excls\1.xls")
这个可以打开一个excel文件，想把1用一个变量代替，但提示找不到文件。
上面是用资源管理器打开文件。

我是新手，希望高手多多指教！

kevinch · 发表于 2012-5-31 20:28:03

本帖最后由 kevinch 于 2012-5-31 20:37 编辑

If ProcessExists("excel.exe") Then
        $excel=ObjGet("","excel.application")
Else
        $excel=ObjCreate("excel.application")
EndIf
$excel.visible=True
For $n=1 To 200
        If FileExists("G:\excls"&$n&".xls")=1 Then 
                $wb=$excel.workbooks.open("G:\excls"&$n&".xls")
                ;------修改的代码写这段里------
                $wb.activesheet.range("a1").value="test"
                ;------------------------------
                $wb.close(true)
        EndIf                        
Next

看一下，感觉路径名拼写错了吧

xms77 · 发表于 2012-5-31 20:50:56

学习2楼的代码了，感谢！

32714107 · 发表于 2012-5-31 21:13:19

谢谢2楼的回答!一鞠躬！

		自动登录	找回密码
密码			加入

[AU3基础] 如何依次打开并关闭多个连续excel文件？（已解决）

相关帖子

评分