作者:乔山办公网日期:
返回目录:excel表格制作
建一个excel表格,每个单元格里一个人名,想用按键精灵分别读每个单元格的内容并输出到指定位置。输出好说就是读单元格不会弄。
按键精灵里的插百件命令:
//定义度变量//
dim a,text
Call Plugin.Office.OpenXls("C:\AA.xls")
a = 1
x = 1
y = 2
//读取表格,括号内第2个是行,第3个是列//
Text = Plugin.Office.ReadXls(1, a, 1)
a = a + 1
//写入指知定位道置//
Call Plugin.Office.WriteXls(2, x, 1, text)
x = x + 1
Call Plugin.Office.WriteXls(2, y, 1, text)
y = y + 1
如果需要读取B列,C列,就专定义多几个变量,最后写个循环命令属就行了。
Dim a(99)//先要设定抄一个数组,下标是数据的最大行数
Call Plugin.Office.OpenXls("C:\测试袭.xls")
For i = 1 To 99
a(i) = Plugin.Office.ReadXls(1, 1, a)
TracePrint "读出内容为:" & a(i)
Next
Call Plugin.Office.CloseXls()
上面的只能读取一列zhidao数据.如果有多列就用多维数组.
按键精灵里zhidao的插件命令:
//定义变量//
dim a,text
Call Plugin.Office.OpenXls("C:\AA.xls")
a = 1
x = 1
y = 2
//读取表格,括号内第2个是行,第3个是列//
Text = Plugin.Office.ReadXls(1, a, 1)
a = a + 1
//写入指定位置//
Call Plugin.Office.WriteXls(2, x, 1, text)
x = x + 1
Call Plugin.Office.WriteXls(2, y, 1, text)
y = y + 1
如果需要读回取B列,C列,就定义多几个变量,最后写个循环答命令就行了。