尝试编写一个从只读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()
但仍然没有运气。
答案 0 :(得分:0)
重新启动计算机,代码工作......非常奇怪,但它确实有效!