想用按键精灵编写一段可以自动截图的代码，调试过了，但没有效果，excel可以打开，却无法完成截图

Dim ExlApp, ExlBook, ExlSheet,CapturePic
Set ExlApp = CreateObject("Excel.Application")
Set ExlBook = ExlApp.WorkBooks.Open("C:\Documents and Settings\Administrator\桌面\jietu.xls")
Set ExlSheet = ExlBook.WorkSheets(1)
ExlApp.DisplayAlerts = false
ExlApp.Visible = True
Rem R1
CapturePic = "C:\Documents and Settings\Administrator\桌面\jietu\" &time& ".jpg"
delay 100
Call Plugin.Pic.PrintScreen(394, 168, 814, 502, CapturePic)
delay 2000
goto R1
EndScript

希望朋友们可以帮我看看 非常感谢

Time中是有冒号的,不能作为图片的文件名字
你先用固定名字命名图片,调试下试试
其他没仔细看

在sheet2里，在a列输入所有的省份，在b列输入对应的数值。 在这个工作表中，在e2输入 =if(b2<1.2,1*vlookup(c2,sheet2!a:b,2,0),"") 回车后再选中e2，鼠标移到其右下角，双击那个”+“。 其实公式中1*可以删除的。