论坛 › 已解决问题区 › [已解决]如何打开单个或者多个EXCEL文件

mpf5566 发表于 2013-8-29 14:01:49

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

本帖最后由 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       
               ;MsgBox(4096,"",$afiles[$i])
               $oexcel=_ExcelBookOpen(@ScriptDir&"\"&$afiles[$i])
               _ExcelBookSaveAs($oexcel,@ScriptDir&"\保留列"&$afiles[$i])
               _ExcelBookClose($oexcel,1,0)
        Next
                For $i= 2 To $afiles       
               ;MsgBox(4096,"",$afiles[$i])
               $oexcel=_ExcelBookOpen(@ScriptDir&"\"&$afiles[$i])
               _ExcelBookSaveAs($oexcel,@ScriptDir&"\对比结果"&$afiles[$i])
               _ExcelBookClose($oexcel,1,0)
                NEXT

请问大家，以上小弟写的程序只能打开多个excel文件，fileopendialog得到多个文件用“|”分割符，然后使用stringslipt进行分割处理。如果只选择一个文件打开的话应该做何修改？？万分感谢！！

tiger_47 发表于 2013-8-29 16:39:04

試試 這個 Excel UDF
http://www.autoitscript.com/forum/topic/144031-update-the-excel-udf-that-comes-with-autoit/

查看完整版本: [已解决]如何打开单个或者多个EXCEL文件