按键精灵如何逐行复制excel?如何设置会自动切换下一行复制? 30
就是将EXCEL里面固定一列的数据,逐行复制到网页里面的固定位置,怎么实现,我需要具体的操作教程...
就是将EXCEL里面固定一列的数据,逐行复制到网页里面的固定位置,怎么实现,我需要具体的操作教程
展开
3个回答
展开全部
你需要了解数组,和一个语句,先全选,然后用vbcrlf作为分隔符(字符串常数,代表回车),分成一行一行的数据,然后再用TAB(就是大一点的空格)分成一个单元格一个单元格的,就行了.
主意vbcrlf是常数,代表回车,vbTab也是常数,代表TAB
全选,复制
剪切板 = Plugin.Sys.GetCLB()'得到剪切板内容
行=Split(剪切板,vbcrlf)
MessageBox 行(0) '剪切板第一行
详细数据=Split(行(0),vbTab) //用vbTab分割每行的数据
MessageBox 详细数据(1) //结合上一行就是现实第一行第二格的单元格内容
主意vbcrlf是常数,代表回车,vbTab也是常数,代表TAB
全选,复制
剪切板 = Plugin.Sys.GetCLB()'得到剪切板内容
行=Split(剪切板,vbcrlf)
MessageBox 行(0) '剪切板第一行
详细数据=Split(行(0),vbTab) //用vbTab分割每行的数据
MessageBox 详细数据(1) //结合上一行就是现实第一行第二格的单元格内容
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
//复制之后下一行会覆盖上一行的复制,这点你没想到吧
文档路径 = "E:\亿方云同步\FangCloudV2\个人文件\亿方云 同步文件夹\游戏\超级精灵球 宝石和命格.xlsx"'"d:\a.xls"
Call Plugin.Office.OpenXls(文档路径)
For i = 1 To 999
Text = Plugin.Office.ReadXls(1, i, 1)
Call Plugin.Sys.SetCLB(Text)
MessageBox "已经复制第 " & i & " 行的内容为: " & vbcr & Text & vbcr & vbcr & "关闭本窗口将复制下一行内容"
Delay 100
Next
Sub OnScriptExit()
MessageBox "脚本已经停止!"
Call Plugin.Office.CloseXls()
End Sub
文档路径 = "E:\亿方云同步\FangCloudV2\个人文件\亿方云 同步文件夹\游戏\超级精灵球 宝石和命格.xlsx"'"d:\a.xls"
Call Plugin.Office.OpenXls(文档路径)
For i = 1 To 999
Text = Plugin.Office.ReadXls(1, i, 1)
Call Plugin.Sys.SetCLB(Text)
MessageBox "已经复制第 " & i & " 行的内容为: " & vbcr & Text & vbcr & vbcr & "关闭本窗口将复制下一行内容"
Delay 100
Next
Sub OnScriptExit()
MessageBox "脚本已经停止!"
Call Plugin.Office.CloseXls()
End Sub
更多追问追答
追问
我想要的是,复制之后,自动粘贴到网页的固定位置,然后确定,再重复这个步骤
追答
粘贴到网页需要提取网页中的每个元素特征,也就是说有多少个需要粘贴的就需要依次提取多少次,这个不是批量能搞定的,工程量很大
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询