使用AHK发出保存文件

时间:2015-10-07 15:33:12

标签: excel autohotkey

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

#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()  

但仍然没有运气。

1 个答案:

答案 0 :(得分:0)

重新启动计算机,代码工作......非常奇怪,但它确实有效!

相关问题