把二维数组转成可以直接粘贴到word表格中的内容

loquat

能直接通过Ctrl+V粘贴到word表格中的数据其实数据格式很简单

1	2	3
4	5	6
7	8	9

1 chr(9) 2 chr(9) 3 chr(13) chr(10)
4 chr(9) 5 chr(9) 6 chr(13) chr(10)
7 chr(9) 8 chr(9) 9 chr(13) chr(10)

然而，发现代码没用，接着玩

loquat

占个位，万一还可以继续装逼呢

zhanglei1371

获取和写入两个方向是不同的，获取时有chr(13)，写入时只需chr(10)就可以了。

1. Sub ffd()
   
2. Dim mydata As Object
   
3. Dim arr(2, 2) As String '测试用二维数组
   
4. On Error Resume Next
   
5.     Set mydata = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6.     ActiveDocument.Tables(1).Range.Select
   
7.     Selection.Delete '清空测试表格内容
   
8.     For i = 0 To 2
   
9.         For j = 0 To 2
   
10.             n = n + 1
    
11.             arr(i, j) = n
    
12.         Next
    
13.     Next
    
14.     For i = 0 To UBound(arr, 2)
    
15.         For j = 0 To 2
    
16.             strA = strA & arr(i, j) & Chr(9)
    
17.         Next
    
18.         strA = strA & Chr(10)
    
19.     Next
    
20.     mydata.SetText strA
    
21.     mydata.PutInClipboard
    
22.     MsgBox strA ’奇怪，这个若是去掉，粘贴会失败？
    
23.     ActiveDocument.Tables(1).Range.Paste
    
24. End Sub
    

复制代码

loquat

不知道是不是写剪贴板需要时间。。。

ming0018

有用过剪切板，好像真的需要时间，判断一下剪切板里面是否为空，不为空的时候再复制。