[求助]转换word中插入的电子表格

办公之星

以下是引用阿Q在2004-9-13 18:47:00的发言： 恩 就是啊 是连接的公式, 我试了 很多方法都不能一起转换过来 只有一个一个的输入.

是说您最好把电子表格传上来，大家好确实您的问题和解决方案。

压缩一下发上来，模拟表也行。

守柔

以下是引用阿Q在2004-9-13 18:47:00的发言：

恩 就是啊 是连接的公式,

我试了 很多方法都不能一起转换过来

只有一个一个的输入.

也许有更好的方法，我采用的是VBA自动完成法：

请将以下代码粘贴于活动文档的THISDOCUMENT的代码窗口中：（ALT+F11打开）

Sub GetExcelValue() Dim i As InlineShape, Ex As Excel.Application, Wb As Excel.Workbook On Error Resume Next Application.ScreenUpdating = False Selection.EndKey Unit:=wdStory For Each i In ActiveDocument.InlineShapes i.OLEFormat.DoVerb wdOLEVerbOpen Set Ex = GetObject(, "Excel.Application") Set Wb = Ex.ActiveWorkbook Wb.Sheets(1).UsedRange.Copy Selection.Collapse Direction:=wdCollapseEnd Selection.Paste Wb.Close False Next Application.ScreenUpdating = True End Sub

几个注意事项：

必须在VB编辑器中的引用中，引用“Microsoft Excel 10.0 Object Libiray"

必须将宏安全性设为低（如果不是在设置更改后需重新启动WORD程序）

运行前所有EXCEL程序或者工作薄必须全部退出。

阿Q

bWbd5lkQ.rar (8.11 KB, 下载次数: 15)

2004-9-13 21:20 上传

点击文件名下载附件

哥哥你的这段宏虽然可以,但是要这种格式就不行了.

[此贴子已经被作者于2004-9-13 21:20:11编辑过]

守柔

所以希望以后提问时一是带好附件，二是讲清目的和格式等其它要求，否则对大家都是浪费。

再试试以下代码：

Sub Rep() Dim i As InlineShape, Ex As Excel.Application, Eac As Excel.Range On Error Resume Next Application.ScreenUpdating = False For Each i In Activedocument.InlineShapes i.Select i.OLEFormat.DoVerb wdOLEVerbOpen Set Ex = GetObject(, "Excel.Application") Set Eac = Ex.ActiveCell Selection.Text = Eac.Value Next Application.ScreenUpdating = True End Sub

p123456789

用菜单中的转化不就可以了