首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 网站开发 > vbScript >

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

2012-03-18 
菜鸟的“复制excel单元格到剪贴板”程序遇到障碍,大侠帮忙看看开发背景:用键盘精灵来实现批量操作,其中一个

菜鸟的“复制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)) 吧

热点排行