求一个自动另存excel文件的au3脚本

royalrav

excel文件已经打开，现在想用脚本定时自动完成把excel文件的另存到e:\date文件夹里面
希望这个保存过程能在后台自动处理。不在前台显示。
请高手帮忙看下如何实现！

ghl781258

看看excel宏记录的代码，作为参考
Sub Macro1()
'
' Macro1 Macro
' 刘锋 记录的宏 2010-5-27
'

'
    ChDir "C:\Documents and Settings\Sakura\桌面"
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Sakura\桌面\Book1.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub
-------------------------------------
au3代码如下：
$oExcel=CreateObject(Excel.Application)
while 1
with $oExcel
.Application.ActiveWorkbook.SaveAs ("E:\date\test.xls");;另存当前excel文件为C:\test.xls
EndWith
sleep(10000);;暂停10秒
Wend

lynfr8

#include <Excel.au3>
$sFilePath1 = @ScriptDir & "\Test1.xls" ;该文件应该已存在
$oExcel = _ExcelBookOpen($sFilePath1)
;显示打开文件时可能发生的任何错误
If @error = 1 Then
    MsgBox(0, "Error!", "Unable to Create the Excel Object")
    Exit
ElseIf @error = 2 Then
    MsgBox(0, "Error!", "File does not exist - Shame on you!")
    Exit
EndIf
While 1
Sleep(5000)
_ExcelBookSaveAs($oExcel, @ScriptDir & "\SaveAsExample2", "xls", 0, 1) ;保存文件为'SaveAsExample2.xls"
;If Not @error Then MsgBox(0, "Success", "File was Saved!", 3)
WEnd

opcbo

excel录制的宏，转为AU3有部分代码不知道如何用AU3代替，，感觉还没有学到位啊