二维数组大量数据如何快速插入word表格? (50分)

C

cnjzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #1

我用二维数组从数据库中读取了
1200条记录，利用vba插入到word表格中，我是采用循环方法，将数组数据一一插入单元
格中，共形成A4表格84页，耗时20分钟，我简直要晕倒，请问各位大侠，我如何能提高插
入的速度，我曾想将数组中的数据在表格相应单元格中同时同步插入，但不知如何实现.
实在对不起，虽然我并不小气，但因本人初出茅庐，只有一点点分了，不得不精打细算

 

S

SPYSKY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #2

可以設置一個標誌在表的最后一行,然後用查找的方法就可以啦!

 

Y

ysai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-13

• #3

'Tables(1)代表文档中的第一个表格
With ThisDocument.Tables(1)
.Rows.Item(.Rows.Count).Select
End With

 

C

cnjzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #4

谢谢楼上的朋友，这里我想再问一下，我用二维数组从数据库中读取了
1200条记录，利用vba插入到word表格中，我是采用循环方法，将数组数据一一插入单元
格中，共形成A4表格84页，耗时20分钟，我简直要晕倒，请问各位大侠，我如何能提高插
入的速度，我曾想将数组中的数据在表格相应单元格中同时同步插入，但不知如何实现.

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #5

将记录的内容组织成文本（有 Tab 和回车）
然后拷贝到剪切板
在word 中粘贴，然后套用表格格式

 

C

cnjzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-14

• #6

to:jsxjd
谢谢你的思路
我是想通过delphi结合vba编程实现，这两种工具我都不太熟悉，能稍详细一点吗？

 

C

cnjzy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-30

• #7

多人接受答案了。