+ -
当前位置:首页 → 问答吧 → 怎样把excel表格中的内容写入相应的word单元格中?谢谢

怎样把excel表格中的内容写入相应的word单元格中?谢谢

时间:2011-01-25

来源:互联网

怎样把excel表格中的内容写入相应的word单元格中?谢谢

附件

桌面.rar(7.29 KB)

2011-1-25 22:06, 下载次数: 5

作者: inadequate   发布时间: 2011-01-25

Sub T2()
,1、要同时打开你的两个文件。2、代码放在word运行,要引用ms excel 11.0。.
    Dim myApplication As Excel.Application
    Dim myWorkBook As Excel.WorkBook
    Set myApplication = GetObject(, "excel.application")
    Set myWorkBook = myApplication.ActiveWorkBook
    ActiveDocument.Tables(1).Cell(3, 2).Range.Text = myWorkBook.Application.ActiveSheet.Cells(1, 1) & myWorkBook.Application.ActiveSheet.Cells(2, 1) & myWorkBook.Application.ActiveSheet.Cells(3, 1)
End Sub


其他两个地方你自己改改即可。

[ 本帖最后由 sqhsqhli 于 2011-1-26 09:36 编辑 ]

作者: sqhsqhli   发布时间: 2011-01-26

兄弟,你的Tables(1).Cell(3, 2)是怎么算出来的,应该也可以是Cell(4, 2)吧。

作者: inadequate   发布时间: 2011-01-26

热门下载

更多