按键精灵 可以在excel表格。里中。连续10个单元格吗？ 麻烦告诉告诉一下脚本

Question

如题所述

Answer 1

连续选择10个单元格吗？ 模拟下键盘动作按 按住SHIFT然后向下键盘10次然后弹起SHIFT追问

我试过了。不行。。他不会选择。哎。。

高手求解：
在一个excel表格里面
我要读取：
第一次： 读取A1到A15的内容复制，黏贴到 一个txt文档里面
第二次： 读取A16到A30的内容复制，黏贴到 一个txt文档里面
第三次： 读取A31到A45的内容复制，黏贴到 一个txt文档里面
。
。
。
第N次： 读取A 15X（N—1）+1 到 A 15*N 的内容复制，黏贴到 一个txt文档里面

可以做到不？ 求高手。。指点。。

追答

这是可以的。试试硬件模拟方式！但是按键精灵操作很慢喔！你在按键精灵里设置是把SHIFT按住，而不是按键一次，然后再按 方向键↓自行修改运行多少次 也就是 你把A最后那一项除以15

UserVar b=5 "循环多少次"
MessageBox "请在D盘根目录下建立一个文件夹名为OK"
MessageBox "请把无关窗口关闭保留EXCLE"
MessageBox "然后取消 office的剪切面板功能！"
MessageBox "激活EXCLE窗口 选中A1!2秒后自动运行"
Delay 2000
Dim a

a=1
SetSimMode 1
For b
Delay 100
KeyDown "Shift", 1
Delay 50
KeyPress "Down", 14
Delay 50
KeyUp "Shift", 1
Delay 50
KeyDown "Ctrl", 1
Delay 100
KeyPress "C", 1
Delay 800
KeyUp "Ctrl", 1
Delay 100
RunApp "notepad.exe"
Delay 800
KeyDown "Ctrl", 1
Delay 100
KeyPress "V", 1
Delay 800
KeyUp "Ctrl", 1
Delay 100
KeyDown "Ctrl", 1
Delay 100
KeyPress "S", 1
Delay 800
KeyUp "Ctrl", 1
Delay 100
SayString "d:\OK\"
Delay 50
SayString a
Delay 50
SayString ".txt"
Delay 100
KeyDown "Alt", 1
Delay 100
KeyPress "S", 1
Delay 800
KeyUp "Alt", 1
Delay 100
KeyDown "Alt", 1
Delay 100
KeyPress "F4", 1
Delay 800
KeyUp "Alt", 1
Delay 100
KeyPress "Delete", 1
Delay 100
KeyDown "Ctrl", 1
Delay 100
KeyPress "Down", 1
Delay 100
KeyUp "Ctrl", 1
Delay 100
a=a+1
Next

有需要可以连接我扣抠2350723692 白天在线，没“前途”的可以免加