找回密码
 加入
搜索
查看: 3753|回复: 1

[AU3基础] [已解决]如何打开单个或者多个EXCEL文件

[复制链接]
发表于 2013-8-29 14:01:49 | 显示全部楼层 |阅读模式
本帖最后由 mpf5566 于 2013-9-30 14:07 编辑

#include<Excel.Au3>
Dim $message = "按下 Ctrl 或 Shift 键选择多个文件."

Dim $var = FileOpenDialog($message, @ScriptDir , "所有文件(*.*)", 1+4)
                MsgBox(4096,"",$var)

If @error Then
        MsgBox(4096,"","没有选择文件!")
Else
EndIf
        Dim $afiles = StringSplit($var,"|")
         For $i= 2 To $afiles[0]       
                 ;MsgBox(4096,"",$afiles[$i])
                 $oexcel=_ExcelBookOpen(@ScriptDir&"\"&$afiles[$i])
                 _ExcelBookSaveAs($oexcel,@ScriptDir&"\保留列"&$afiles[$i])
                 _ExcelBookClose($oexcel,1,0)
        Next
                For $i= 2 To $afiles[0]       
                 ;MsgBox(4096,"",$afiles[$i])
                 $oexcel=_ExcelBookOpen(@ScriptDir&"\"&$afiles[$i])
                 _ExcelBookSaveAs($oexcel,@ScriptDir&"\对比结果"&$afiles[$i])
                 _ExcelBookClose($oexcel,1,0)
                NEXT

请问大家,以上小弟写的程序只能打开多个excel文件,fileopendialog得到多个文件用“|”分割符,然后使用stringslipt进行分割处理。如果只选择一个文件打开的话应该做何修改??万分感谢!!
发表于 2013-8-29 16:39:04 | 显示全部楼层
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-22 12:16 , Processed in 0.113187 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表