按键精灵，如何把选定的数值（如：工具2）赋予变量1

来源：百度知道 编辑：UC知道 时间：2024/05/26 01:22:39
需要在一个系统里面，每次复制3个数据，然后一次性粘贴三个到表格里面，

我想选定值1把它赋予变量1，选定2赋予变量2，选定3赋予变量3，
然后到电子表格里面分别粘贴变量1、2、3 ，这样一次性取3个值。

不知道主要命令怎么写，或者有更好的办法来？

什么表格？？excel??如果是的话可以用vbs命令直接操作！？不是的话就要具体问题具体分析了！！

给你部分代码！如果不够的话百度下很多的！！
VBS控制Excel的一些常见方法：
(一) 使用动态创建的方法

首先创建 Excel 对象，使用ComObj:

oExcel = CreateObject( "Excel.Application" )

1) 显示当前窗口：
oExcel.Visible = True

2) 更改 Excel 标题栏：
oExcel.Caption = "应用程序调用 Microsoft Excel"

3) 添加新工作簿：
oExcel.WorkBooks.Add

4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:\Excel\Demo.xls" )

5) 设置第2个工作表为活动工作表：
oExcel.WorkSheets(2).Activate
或
oExcel.WorksSheets( "Sheet2" ).Activate

6) 给单元格赋值：
oExcel.Cells(1,4).Value = "第一行第四列"

7) 设置指定列的宽度（单位：字符个数），以第一列为例：
oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
oExcel.ActiveSheet.Rows(2).RowHeight = 1/0.035 ' 1厘米

9) 在第8行之前插入分页符：
oExcel.WorkSheets(1).Rows(8).PageBreak = 1

10) 在第8