将VBA 2-Dim字符串数组粘贴到Word表中

我有一个表的抽象概念，它是Word VBA中的一个二维字符串数组。将VBA 2-Dim字符串数组粘贴到Word表中

现在我想将这个数组保存在word文档的表格中，而不需要通过两个维度的迭代... afaik有一种方法可以从excel中获取Range（...）内容作为数组...

如：

Dim rng As Excel.Range 
Set rng = excelTabelle.Range("A4:F" + CStr(lastRow)) 
arrData = rng.Value

是有粘贴到Word表格此类似的解决方案？

迭代需要太多的执行时间，所以我正在寻找一个更有效的方法来做到这一点。

映入眼帘，poeschlorn

来源

2010-11-28 poeschlorn

我不认为在Word中有类似的方法（至少，我不知道一个），但也许你可以告诉我们你的迭代解决方案，为什么它太慢，那么你可能会得到一些提示锄头来改善这一点。 – 2010-11-28 15:33:31

一种解决方案可能是利用您的需求剪贴板。这不像Excel中那么容易，但对你而言可能足够快。下面是一些示例代码如何打通剪贴板一些文本2×3字表（添加到微软引用窗体2.0对象库到您的VBA DOC）：

Dim oData As New DataObject 
Dim sText As String 

' Navigate to the top-left cell of your table (just an example) 
Selection.HomeKey Unit:=wdStory 

' Put text to the clipboard 
sText = "X1" & vbTab & "B1" & vbTab & "C1" & vbCrLf 
sText = sText & "A2" & vbTab & "B2" & vbTab & "C2" & vbCrLf 

On Error Resume Next 
oData.SetText sText 
oData.PutInClipboard 
On Error GoTo 0 

' Select the needed rows and columns of the table' 
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend 
Selection.MoveRight Unit:=wdCharacter, Count:=2, Extend:=wdExtend 

' Paste the clipboard to the table ' 
Selection.Paste

我建议你适应这个放的任意的二维数组放入一个字符串中并以类似的方式粘贴。如果你需要更多的帮助，请回来给我们更多的细节。

来源

2010-11-28 15:57:37

将VBA 2-Dim字符串数组粘贴到Word表中

回答

相关问题