2015-10-07 62 views
0

尝试编写一个从只读Excel文件获取数据并将其粘贴到单独的Excel文件中的循环。这段代码中的所有内容都很好,除了不保存文件外。这里是我的所有代码:使用AHK保存文件

#q:: 
savefile := "path" 

loop 
{ 
    xl := ComObjActive("Excel.Application") ;Create handle 
    xl.Visible := true 
    xl.Range("A:I").Copy ;copy cell to clipboard 
    Sleep, 500 
    xl_Workbook := xl.Workbooks.Open("path") ;Open output workbook 
    Sleep, 500 
    xl.Range("A:I").Select ;Ensure proper area of worksheet is being used 
    Sleep, 500 
    xl.ActiveSheet.Paste ;Paste into output 
    Sleep, 3000 
    xl.ActiveWorkbook.SaveAs(savefile) 
    Sleep, 3500 
    xl.ActiveWorkbook.Close() ;Close workbook 
    Sleep, 60000 
} return 

我一直在使用只是尝试:

xl.ActiveWorkbook.Save() 

,但仍然没有运气。

+0

谷歌搜索[一篇文章](http://www.rondebruin.nl/win/s5/win001.htm),该格式应明确指定:'xl.ActiveWorkbook.SaveAs(savefile,51)' – wOxxOm

回答

0

重新启动的计算机和代码工作...很奇怪,但它的工作原理!