以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何将表的行内容一键粘贴到其他程序?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=174830)

--  作者:ls93005
--  发布时间:2022/2/8 15:55:00
--  如何将表的行内容一键粘贴到其他程序?
类似于按键精灵的形式,因为要根据表格内容在浏览器中填写表格,并且数量巨大。
有办法实现将当前行作为数组或集合的形式,一键在其他程序中粘贴吗?(类似于在Excel中填写a+tab+b+tab+c+tab)这种形式,单个内容。

帮助中的代码不适合我

Dim Proc As New Process
Proc.File = "notepad"
Proc.Start
Proc.WaitForInputIdle() \'等程序自动结束并进入空闲状态
Sendkeys.Send("I Like Foxtable") \'发送按键信息




我并不需要proc来自动打开程序。我要录入的是当前已经激活的页面。

--  作者:有点蓝
--  发布时间:2022/2/8 16:08:00
--  
把当前行数据放入剪贴板,然后在其他程序里粘贴即可

Dim r As Row = Tables("表A").Current
Dim s As String
For Each c As Col In Tables("表A").Cols
s = s & vbtab & r(c.Name)
Next
ClipBoard.SetText(s)

--  作者:ls93005
--  发布时间:2022/2/8 16:11:00
--  你好
放入剪切板的方法我已经知晓 但是因为每列数据之间需要键入tab 或 enter 这个有办法实现吗
--  作者:ls93005
--  发布时间:2022/2/8 16:24:00
--  
图片点击可在新窗口打开查看
如果按照全部直接放入剪切板的形式,那么输出结果就会如上图,所有内容都在一个表单中。所以文本版的tab或enter是实现不了,需要sendkey的形式。

--  作者:爱好所有
--  发布时间:2022/2/8 16:35:00
--  
 你这种用UIBOT社区版就可以了,可以操作网页跟按键精灵一类的软件,可以做到全自动

--  作者:ls93005
--  发布时间:2022/2/8 16:41:00
--  
可以调用foxtable内的数据吗?
--  作者:爱好所有
--  发布时间:2022/2/8 16:45:00
--  
这类软件是操作鼠标键盘,理伦上都没问题