请问：WORD中的数据怎样链接到EXCEL中去（未解决）

szwlp

请问：WORD表格中的数据怎样链接到EXCEL中去。搜索了一下，好象都是EXCEL链接到WORD中。 Hpq8ZbbU.rar (6.28 KB, 下载次数: 22)

2006-1-19 12:46 上传

点击文件名下载附件
请问：WORD中的数据怎样链接到EXCEL中去

[此贴子已经被作者于2006-1-19 14:48:17编辑过]

konggs

同理啊。

szwlp

上传了附件，请大家看一下怎么才能链接，谢谢！！！

konggs

链接是什么概念？

把对应的数字转过去，还是插入一个超链接。等等，你不说。一直等，没人知道。

szwlp

对不起，我没有说清楚。附件中的Engineer Instruction-0009.doc有很多个类似的文件，不管用什么方法，我想把其中的有用的数据链接（或复制等）到EXCEL中的单元格。

hjzero777

怎么不直接在EXCEL中做那个表格呢？

szwlp

原始数据是别人提供的，有700多个WORD文件。

konggs

Sub 孤独一叶()
'工具、引用，microsoft excel 11.0 object library
'前提条件是表格格式统一，与你上传的一样。
Dim aexl As Excel.Application, axls As Excel.Workbook '定义excel程序
Dim acell As Cell, arang As Range, astr() As String, atal As Table
Dim i%, a%, b%, ata%, c%
ata = ActiveDocument.Tables.Count
ReDim astr(6 * ata - 1) '定义一个数组，包含6乘与表格数的字符串

i = 0 '设i＝0


For Each atal In ActiveDocument.Tables
astr(i) = "EI" & Right(atal.Range.Cells(2), 6)
'MsgBox astr(i)
i = i + 1
astr(i) = Right(atal.Range.Cells(4), 10)
' MsgBox astr(i)
i = i + 1
astr(i) = Mid(atal.Range.Cells(7), 5, Len(atal.Range.Cells(7).Range) - 1)
' MsgBox astr(i)
i = i + 1
astr(i) = Mid(atal.Range.Cells(13), 4, Len(atal.Range.Cells(13).Range) - 1)
' MsgBox astr(i)
i = i + 1
astr(i) = Mid(atal.Range.Cells(15), 6, Len(atal.Range.Cells(15).Range) - 1)
' MsgBox astr(i)
i = i + 1
astr(i) = Mid(atal.Range.Cells(17), 8, Len(atal.Range.Cells(17).Range) - 1)
'MsgBox astr(i)
i = i + 1
Next
'以下为控制excel部分
Set aexl = CreateObject("excel.application")

With aexl
.Visible = True
Set axls = aexl.Workbooks.Add


For b = 2 To ata + 1
For c = 1 To 6
axls.Sheets(1).Cells(b, c) = astr(a) '取得数
a = a + 1 '数组累加
Next
Next

End With
' axls.SaveAs FileName:="c:\孤.xls" '保存
' axls.Close '关闭
'Set aexl = Nothing '释放变量
End Sub

守柔

TO KONGGS：

这种程序设计时，应该以EXCEL中调用WORD更好一些，因为是WORD是多文档，而EXCEL是一个文件。

konggs

老大说的是。

主要有两点：

1、是当初，楼主想看Word引用Excel怎么做？所以我的思路定了位。

2.我上午看时，没看到有“700多文件”这一个，当我贴代码时，才看到，

没办法，楼主是个慢芯子，惜字如金。

让我浪费了这个长写代码的时间，又要重写？还是观望一段时间吧。