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

liulichao 2009-08-11 06:10:13
开发背景:用键盘精灵来实现批量操作,其中一个步骤就是把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"就够了。多谢啦!
...全文
90 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
liulichao 2009-08-12
还是自己动脑筋吧。

我用mod和\ 搞定了,加一个判断而已。
回复
hookee 2009-08-11
excRangeCopy("A" & CStr(x)) 吧
回复
发动态
发帖子
vbScript
创建于2007-09-28

3999

社区成员

它是一种微软环境下的轻量级的解释型语言,它使用COM组件、WMI、WSH、ADSI访问系统中的元素,对系统进行管理。
申请成为版主
社区公告
暂无公告