按键精灵读取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()
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询