欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

初学者的“复制excel单元格到剪贴板”程序遇到障碍,大侠帮忙看看

更新时间: 2014-01-05 01:52:49 责任编辑: Author_N1

 

菜鸟的“复制excel单元格到剪贴板”程序遇到障碍,大侠帮忙看看
开发背景:用键盘精灵来实现批量操作,其中一个步骤就是把excel表格中第一列的数据,逐个复制张贴到网页中。逐个复制张贴到网页中很简单,只要用录制就好了,问题就在如何复制excel单元格到剪贴板,就是模仿选中单元格,然后ctrl+C的操作。我的代码如下:

//引入函数库
Import "I:\Software\Excel.lib"
//X用于保存字符的ASCII码
dim x=48
//48是数字‘0’的ASCII
dim string="A"
//打开EXCEL工作簿
excOpenExcel "d:\new.xls",True

Rem ssssssss 

if x<1000

x=x+1
excRangeCopy("A"&Chr(x))
//该处代码省略,用键盘精灵的录制来搞定“张贴”
goto ssssssss

//关闭工作簿
excCloseBook
//退出excel程序
excQuit
EndScript 

以上代码的核心就是excRangeCopy(string)函数,string参数就是单元格的位置,比如"A1".
代码运行后发现,当x加到57,也就是10以后,程序就死循环了,因为出现了三个字符,"A10"

请问各位大侠,如何搞定两位数的字符串啊?最多到"A99"就够了。多谢啦!


--参考方法--
excRangeCopy("A" & CStr(x)) 吧
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 01:52:49
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/2457/
本文WWW.DOC100.NET DOC100.NET版权所有。