按键精灵读取TXT某一行(自己输入数字)，然后输入到某处，细节如下：
1、我在桌面建立了一个命名为"测试"的EXCEL表格2、如图所示，我在表格里面填了三对帐号、密码(后期更多)————————————————————————问题1：现在我...
1、我在桌面建立了一个命名为"测试"的EXCEL表格2、如图所示，我在表格里面填了三对帐号、密码(后期更多)————————————————————————问题1：现在我需要用按键精灵把某一行的帐号密码读取，然后帐号和密码分别输入到某个框里面。问题2：我希望可以做到在一个填充框里面用数字输入我要读取的那一行。求大神指导一下写法。
展开
2个回答
展开全部
下面是程序，你在界面添加一个输入框就行了
Y = 1
Event Form1.InputBox1.Change
Form1.InputBox1.Text = Left(Form1.InputBox1.Text,5)
End Event
Call Plugin.Office.OpenXls("C:\Users\huangwei\Desktop\新建 Microsoft Excel 工作表.xlsx")
If Form1.InputBox1.Text = "" Then
MsgBox "请输入行数"
Else
For i = 0 To 1
Text = Plugin.Office.ReadXls(1, Form1.InputBox1.Text, Y)
//MessageBox "读出内容为：" & Text
SayString Text
Delay 100
KeyPress "Tab", 1
Delay 100
Y = Y + 1
Next
End If
Call Plugin.Office.CloseXls()
Y = 1
Event Form1.InputBox1.Change
Form1.InputBox1.Text = Left(Form1.InputBox1.Text,5)
End Event
Call Plugin.Office.OpenXls("C:\Users\huangwei\Desktop\新建 Microsoft Excel 工作表.xlsx")
If Form1.InputBox1.Text = "" Then
MsgBox "请输入行数"
Else
For i = 0 To 1
Text = Plugin.Office.ReadXls(1, Form1.InputBox1.Text, Y)
//MessageBox "读出内容为：" & Text
SayString Text
Delay 100
KeyPress "Tab", 1
Delay 100
Y = Y + 1
Next
End If
Call Plugin.Office.CloseXls()
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
电脑在启动游戏或软件的时候，桌面弹出错误提示框“0xc0000094”，应该怎么办？电脑报错，很大可能是因为某些DLL文件出现了异常，比如感染了病毒、DLL文件丢失等。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的...
点击进入详情页
本回答由金山毒霸提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
