按键精灵怎么复制多行内容逐行输出?
Excel有N行数据,需要逐行输出到另一个页面并进行一系列操作再输出下一行,应该用什么命令去写?我有两个思路:1、保存N个变量,分别把每行数据保存到独立的变量,然后再一个...
Excel有N行数据,需要逐行输出到另一个页面并进行一系列操作再输出下一行,应该用什么命令去写?
我有两个思路:1、保存N个变量,分别把每行数据保存到独立的变量,然后再一个个输出,但是这样每次需要保存的变量数量是不一样的,比较麻烦。2、直接把需要输出的内容整个复制,然后逐行输出剪切板里的内容,这样比较省事。 展开
我有两个思路:1、保存N个变量,分别把每行数据保存到独立的变量,然后再一个个输出,但是这样每次需要保存的变量数量是不一样的,比较麻烦。2、直接把需要输出的内容整个复制,然后逐行输出剪切板里的内容,这样比较省事。 展开
2个回答
展开全部
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
text = Plugin.File.ReadFileEx("C:\Users\lenovo\Desktop\1.txt")
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
这个不知道行不行。
dim MyArray
MyArray = Split(Text, "|")
If UBound(MyArray)>=0 Then
i=0
For UBound(MyArray)
//下面这句是得到文本内容
SayString Cstr(MyArray(i))
Delay 1000
Msgbox "成功输入第 " & i+1 &" 行文本内容为:"& Cstr(MyArray(i))
Delay 1000
i=i+1
Next
End If
这个不知道行不行。
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询