按键精灵写入excel表: 求助:逐条读取excel 数据执行动作后并写入记录的代码

按键精灵如何调用Excel及按键精灵写入Excel数据的方法教程
时间:日来源:互联网
首先来建立一个新的Excel文档,在桌面上点击右键,选择【新建】-【Excel工作表】,命名为【新手学员】。
现在这个新Excel文档是空白的,我们接下来会通过按键精灵的脚本来打开并写入一些数据。
打开按键精灵软件,点击【新建】,进入我的脚本界面,再点击进入【全部命令】。
在【全部命令】中选择【插件命令】-【office办公文档插件】-【打开Excel文档】。
在命令的下面可以看到命令的详细设置,点击【路径】。
在弹出窗口中选择【新手学员】的Excel文档,点击打开。
可以在命令参数中看到引用的文档,点击插入就可以插入对应的命令脚本。
继续在文档中写入新的数据,选择命令【writeXls 写入Excel文档单元格】,选择对应的单元格的行和列,输入要写入单元格的内容【&序号&】,点击插入。
在脚本界面可以看到新插入的代码。
根据类似的格式,可以添加其它代码,一共写入3行4列的单元格内容。
最后选择【closeXls 关闭文档】,点击插入对应的代码。
修改脚本属性的描述和保存的脚本文件名。保存脚本后按【F10】进行脚本调试。
脚本执行完成后,再次打开这个Excel文档,可以看到刚才设置的数据已经成功写入了。
以上就是专题栏小编带来的按键精灵教程,更多教程请看&/&
按键精灵官网版是用于重复一样工作的人专门准备的,他可以记录您鼠标点过的位置移动过的路径还有键盘所有按过的按键等并完美的复…
页面地址:/xiazai/anjianjingling2014.html
看过这篇文章的人还看过下次自动登录
现在的位置:
& 综合 & 正文
按键精灵读取excel数据
Plugin lj=File.SelectFile()VBSCall x1=InputBox("行数")VBSCall y1=InputBox("列数")VBSBegin
Set xlApp = CreateObject("Excel.Application")
xlApp.visible = false
Set xlBook = xlApp.Workbooks.open(lj)
Set xlSheet = xlBook.ActiveSheetVBSEnd i=1j=1While i&y1+1
While j&x1+1
If xlSheet.cells(i,j).value=""
SayString "空"
SayString xlSheet.cells(i,j).value
i=i+1EndWhile
xlApp.quit
Set xlApp=NothingVBSEnd
&&&&推荐文章:
【上篇】【下篇】如何用按键精灵读取excel数据并输出?
如何用按键精灵读取excel数据并输出?
09-02-26 &
建一个excel表格,每个单元格里一个人名,想用按键精灵分别读每个单元格的内容并输出到指定位置。输出好说就是读单元格不会弄。
请登录后再发表评论!可对EXCEL进行任意操作的插件 _ 插件界面 - 按键精灵论坛
腾讯微博:
软件版本:2014.05软件大小:76.8M更新时间:2-21
软件版本:3.2.5软件大小:62.5M更新时间:06-06
软件版本:1.2.7软件大小:29.2M更新时间:06-19
软件版本:1.1.0软件大小:12.3M更新时间:12-29
查看: 9635|回复: 211
[插件源码]
按键精灵开发者6级(新浪V认证)通过新浪微博加V后自动发放,并替换普通的认证6级勋章。 微博达人(90天)完成新浪微博加V的奖励,结合活动不定期开放申请。学有所成学有所成勋章,新手步入按键学堂的第一枚勋章小编勋章感谢你为按键精灵教科书做出的贡献黄瓜勋章(永久)体验商业小精灵活动的奖励认证考霸(90天)参加考霸活动,对认证考了十次以上用户的鼓励
本帖最后由 xzbyw 于
09:06 编辑 该插件可对EXCEL的VBA中的 Application.xRunStr 的任意语句: xRunStr
执行.'参数: xRunStr 是要对当前EXCEL文件执行的语句,该语句只要能在EXCEL的VBA中前面加:Application.能够运行,通过此插件就可运行.'参数: optGetReturn_1 很关键,告诉RunCurrExcelAppStr是否有返回值,如果要返回值就赋值为 1,不返回值就赋为 0,0 则只对当前工作表进行操作。'下语句不返回值,只是将相应单元格值设为 20, 函数调用时 optGetReturn_1 赋值为 0 (或省略)xRunStr = ".Cells(1,1).Value = 20"Call Plugin.bmf.RunCurrExcelAppStr(xRunStr, 0)Call Plugin.bmf.RunCurrExcelAppStr(xRunStr)
'或省略参数: optGetReturn_1 '下语句要求返回相应单元格的值,并赋给变量 xVal,所以函数调用时 optGetReturn_1 要赋值为 1xRunStr = ".Cells(1,1).Value"xVal = Plugin.bmf.RunCurrExcelAppStr(xRunStr, 1)Msgbox xVal'如果引用句中有引号就改成两个引号,见下例xRunStr = ".Worksheets(""Sheet1"").Range(""A1"").Value = 3.14159"Plugin.bmf.RunCurrExcelAppStr xRunStr '下面将.Cells(1, 1), .Cells(5, 3)赋一个随机数xRunStr = ".Worksheets(""Sheet1"").Range(.Cells(1, 1), .Cells(5, 3)).Value = Rnd"Plugin.bmf.RunCurrExcelAppStr xRunStr'将字体设置为斜体xRunStr = ".Worksheets(""Sheet1"").Range(.Cells(1, 1), .Cells(5, 3)).Font.Italic = True"Plugin.bmf.RunCurrExcelAppStr xRunStr'重算工作簿Plugin.bmf.RunCurrExcelAppStr ".ActiveSheet.Calculate"
'重算工作簿'刷新工作簿'Plugin.bmf.RunCurrExcelAppStr ".ActiveWorkbook.RefreshAll"
'刷新工作簿'另存当前工作簿Plugin.bmf.RunCurrExcelAppStr ".ActiveWorkbook.SaveAs ""c:\1.xls"""'获取当前工作表的页数msgbox Plugin.bmf.RunCurrExcelAppStr(".ExecuteExcel4Macro(""GET.DOCUMENT(50)"")", 1)总之,只要你对VBA有一定了解,你就可以通过此插件对EXCEL进行任意操作了.***** 该内容需您才可浏览 *****
★承接:自动化办公、网页操作类脚本、VB程序设计、DLL插件制做等,点击QQ详谈★加QQ:
liuyunsong
接单各种游戏、办公脚本,需要请联系我 QQ
轉裑の失絡
马年勋章(360天) 马年纪念勋章(360天)黄瓜勋章(永久)体验商业小精灵活动的奖励按键卫士(90天)参与“打击山寨,维护按键”活动按键精灵开发者4级可通过提升认证等级来升级勋章:学有所成学有所成勋章,新手步入按键学堂的第一枚勋章
插件不是应该在插件区发布吗
庆双蛋,打火鸡赢iPhone6s、千元现金红包、红米note3,心动不如行动!快来围观:/showtopic-.aspx
鹰眼勋章鹰眼注册用户专属勋章按键图书勋章尊贵的按键图书用户双蛋勋章(30天)双蛋活动勋章(30天)按键精灵开发者4级可通过提升认证等级来升级勋章:
DouglasHsu
一个不喜欢打游戏的,还是喜欢这些,谢谢了。
の守々护々星
学有所成学有所成勋章,新手步入按键学堂的第一枚勋章按键会员(月)按键会员绑定账号后自动赠送按键精灵开发者6级可通过提升认证等级来升级勋章:黄瓜勋章(永久)体验商业小精灵活动的奖励幸运草勋章(永久)商业小精灵限时活动勋章。按键14周年庆纪念勋章按键14周年庆纪念勋章(360天)单身汪勋章单身贵族的专属勋章猴年勋章猴年专属“大圣”勋章
脚本订购 软件设计 请联系 QQ: 添加请注明原因! 脚本订购起步价:100 RMB 非诚勿扰
承接: 小型/中型
个人/工作室
项目脚本开发提示: 电脑版 / 安卓版[仅限图色脚本 外挂免谈]软件保障条约:【暂不收徒 不无偿指导 !谢谢支持】1:脚本维护与更新视情况收费一定的费用!2:所有定制均需订金,否则勿扰. 非诚勿扰 !3:天下没有白吃的午餐.所以别浪费彼此宝贵的时间.4:天道酬勤
,人道酬诚 .人无信则不立.
の守々护々星
学有所成学有所成勋章,新手步入按键学堂的第一枚勋章按键会员(月)按键会员绑定账号后自动赠送按键精灵开发者6级可通过提升认证等级来升级勋章:黄瓜勋章(永久)体验商业小精灵活动的奖励幸运草勋章(永久)商业小精灵限时活动勋章。按键14周年庆纪念勋章按键14周年庆纪念勋章(360天)单身汪勋章单身贵族的专属勋章猴年勋章猴年专属“大圣”勋章
脚本订购 软件设计 请联系 QQ: 添加请注明原因! 脚本订购起步价:100 RMB 非诚勿扰
承接: 小型/中型
个人/工作室
项目脚本开发提示: 电脑版 / 安卓版[仅限图色脚本 外挂免谈]软件保障条约:【暂不收徒 不无偿指导 !谢谢支持】1:脚本维护与更新视情况收费一定的费用!2:所有定制均需订金,否则勿扰. 非诚勿扰 !3:天下没有白吃的午餐.所以别浪费彼此宝贵的时间.4:天道酬勤
,人道酬诚 .人无信则不立.
の守々护々星
学有所成学有所成勋章,新手步入按键学堂的第一枚勋章按键会员(月)按键会员绑定账号后自动赠送按键精灵开发者6级可通过提升认证等级来升级勋章:黄瓜勋章(永久)体验商业小精灵活动的奖励幸运草勋章(永久)商业小精灵限时活动勋章。按键14周年庆纪念勋章按键14周年庆纪念勋章(360天)单身汪勋章单身贵族的专属勋章猴年勋章猴年专属“大圣”勋章
脚本订购 软件设计 请联系 QQ: 添加请注明原因! 脚本订购起步价:100 RMB 非诚勿扰
承接: 小型/中型
个人/工作室
项目脚本开发提示: 电脑版 / 安卓版[仅限图色脚本 外挂免谈]软件保障条约:【暂不收徒 不无偿指导 !谢谢支持】1:脚本维护与更新视情况收费一定的费用!2:所有定制均需订金,否则勿扰. 非诚勿扰 !3:天下没有白吃的午餐.所以别浪费彼此宝贵的时间.4:天道酬勤
,人道酬诚 .人无信则不立.
按键精灵开发者2级可通过提升认证等级来升级勋章:
好东西!!!!!!!!!!!!
如果觉对你有所帮助,请无私奉献一朵小花给我。
I can't thank you enough.
我对你感激不尽
感谢分享。。。。。。
按键精灵开发者2级可通过提升认证等级来升级勋章:
VBS是什么啊
hailong2012
学有所成学有所成勋章,新手步入按键学堂的第一枚勋章小红帽对论坛提出良好建议(可向管理员申请)骨灰级按键用户3年以上的按键论坛用户黄金之翼黄金之翼勋章按键图书勋章尊贵的按键图书用户黄瓜勋章(永久)体验商业小精灵活动的奖励微信达人(90天)微信签到活动(90天)鹰眼勋章鹰眼注册用户专属勋章认证考霸(90天)参加考霸活动,对认证考了十次以上用户的鼓励马年勋章(360天) 马年纪念勋章(360天)微博达人(90天)完成新浪微博加V的奖励,结合活动不定期开放申请。按键精灵开发者6级(新浪V认证)通过新浪微博加V后自动发放,并替换普通的认证6级勋章。 脚本作者商业小精灵作者绑定账号后自动赠送
看看,学习一下!
如果我的回复对你有帮助,记得给鲜花!
幸运草勋章(永久)商业小精灵限时活动勋章。鹰眼勋章鹰眼注册用户专属勋章认证考霸(90天)参加考霸活动,对认证考了十次以上用户的鼓励按键精灵开发者4级可通过提升认证等级来升级勋章:学有所成学有所成勋章,新手步入按键学堂的第一枚勋章论坛GG按键论坛男性用户勋章马年勋章(360天) 马年纪念勋章(360天)十周年勋章(360天)十周年纪念勋章按键卫士(90天)参与“打击山寨,维护按键”活动抢楼达人(30天)参与抢楼活动黄瓜勋章(永久)体验商业小精灵活动的奖励双蛋勋章(30天)双蛋活动勋章(30天)月全勤论坛自然月(如8.1-8.31)签到满勤,系统会在月底自动判断发放。
老规矩,先回后下!!!!!!!
ζ???????等待?
发违法未访问
EXCEL进行任意操作的插件 [修
很有用的插件,开发潜力很大!
对EXCEL进行任意操作的插

我要回帖

更多关于 按键精灵 读取excel 的文章

 

随机推荐