求一个自动另存excel文件的au3脚本
excel文件已经打开，现在想用脚本定时自动完成把excel文件的另存到e:\date文件夹里面希望这个保存过程能在后台自动处理。不在前台显示。
请高手帮忙看下如何实现！ 本帖最后由 ghl781258 于 2010-5-27 20:45 编辑
看看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 #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 excel录制的宏，转为AU3有部分代码不知道如何用AU3代替，，感觉还没有学到位啊
{:face (411):}
页:
[1]