|
本帖最后由 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进行分割处理。如果只选择一个文件打开的话应该做何修改??万分感谢!! |
|