以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表头拷贝  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=21601)
--  作者：wangjun
--  发布时间：2012/7/18 15:04:00
--  表头拷贝
我做了个分组统计，想将结果考到word中

此主题相关图片如下：tab.jpg
按此在新窗口浏览图片

但不包括表头
2007 5119 17738.98 4217.54 19417.35
2008 5300 16476.81 3473.05 16575.54
2009 3106 12411.19 2916.64 12522.32
2010 3966 20840.17 6100.42 21266.98
2011 5151 20923.28 5246.31 21920.03
有办法包括表头吗？
大多软件如ACCESS和EXCEL可以，最好能增加，比较常用，
因为存成EXCEL比较麻烦，有时要不断保存和打开Excel
另外
上面数据考到word中用文本转换成表格功能无法形成表格，一般软件都行
 

2007

5119

17738.98

4217.54

19417.35

2008

5300

16476.81

3473.05

16575.54

2009

3106

12411.19

2916.64

12522.32

2010

3966

20840.17

6100.42

21266.98

2011

5151

20923.28

5246.31

21920.03

 

 
--  作者：狐狸爸爸
--  发布时间：2012/7/18 15:21:00
--  

自己做个复制按钮，代码如下：

 

Dim s As String
For c As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
    If s > "" Then
        s = s & vbtab
    End If
    s  = s & CurrentTable.cols(c).name
Next
For r As Integer = CurrentTable.TopPosition To CurrentTable.BottomPosition
    s  = s & vbcrlf
    For c As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
        If c = CurrentTable.LeftCol Then
            s  = s &  CurrentTable(r,c)
        Else
            s = s & vbtab & CurrentTable(r,c)
        End If
    Next
Next
ClipBoard.SetText(s)

 

这样就包括表头了.

[此贴子已经被作者于2012-7-18 15:23:05编辑过]
--  作者：wangjun
--  发布时间：2012/7/18 15:29:00
--  感谢
谢谢！非常好，很有用。