大家好,今日怡怡来为大家解答以上的问题。懒人excel,懒人Excel办公必学软件很多人还不知道,现在让我们一起来看看吧!

1、Application.CutCopyMode = False这是我写的类似可参考的代码: Call Plugin.Off.OpenXls("D:1.xls")Dim a()ReDim a(7)//rem beginFor s=10 to 189For i=0 to 6Text = Plugin.Off.ReadXls(1, s, i+1)a(i)=TextNext//Hwnd = Plugin.Window.MousePoint()//Call Plugin.Window.Active(Hwnd)'按Ctrl+NKeyPress 78, 1KeyUp 17, 1KeyPress "Tab", 1SayString a(1)KeyPress "Tab", 1SayString a(1)KeyPress "Tab", 1KeyPress "UpDelay 200", 1KeyPress "Tab", 3KeyPress "Space", 1Delay 1000KeyPress "Tab", 1KeyUp 17, 1Delay 1000SayString a(2)'Full nameKeyPress "Tab", 1SayString a(3)'descriptionKeyPress "Tab", 1//Goto begiDelay 200nNext//close Excel fileCall Plugin.Off.CloseXls()MsgBox "Total created" & s & " users."用的按键精灵9.6写的。

本文到这结束,希望上面文章对大家有所帮助。