[已解决]目标excel.xlsm文档用_ExcelbookSaveAs保存无法打开？
本帖最后由 mpf5566 于 2013-9-30 14:08 编辑#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= 1 To $afiles
;MsgBox(4096,"",$afiles[$i])
$oexcel=_ExcelBookOpen(@ScriptDir&"\"&$afiles[$i])
_ExcelBookSaveAs($oexcel,@ScriptDir&"\"&"保留列"&$afiles[$i],"xls")
Next
以下这个函数只能打开多个excel如何更改可以打开单个excel文件啊？ $oexcel.saveas(@ScriptDir&"\"&"保留列"&$afiles[$i],$oexcel.fileformat)
不如这样试下
页:
[1]