[求助] 求助：通过VBA将EXCEL的数据复制至WORD的一些问题

陈伟权

我想通过VBA将EXCEL的数据复制至WORD，程序已经编写好了，我的电脑可以运行，但是别人的电脑就用不了，请问知道是怎么回事吗？？









代码如下：


Option Explicit



Sub 自动生成word版附注()

Dim myWord As Word.Application, myDoc As Word.Document
Dim h, l, k

Set myWord = New Word.Application

Documents.Open ThisWorkbook.Path & "\附注.doc"

myWord.Visible = True

'*********************************************************货币资金****************************************(h=行,l=列)************************

For l = 2 To 3
For h = 2 To 9

Documents("附注").Tables(1).Cell(h, l).Range = Format(Sheets("Nt#1").Cells(7 + h, l + 1), "#,##0.00")


Next
Next



'****************以公允价值计量且其变动计入当期损益的金融资产***************************************(h=行,l=列)************************


For l = 2 To 3
For h = 2 To 11

Documents("附注").Tables(2).Cell(h, l).Range = Format(Sheets("Nt#1").Cells(36 + h, l + 1), "#,##0.00")


Next
Next

MsgBox "已输出到 Word 文件！"

End Sub

xyxcc177

引用word，因你电脑与其他电脑中Word的路径不同。

陈伟权

xyxcc177 发表于 2018-10-16 05:32
引用word，因你电脑与其他电脑中Word的路径不同。

可以详细说明一下吗？我引用的路径是“Documents.Open ThisWorkbook.Path & "\附注.doc"”
请问哪里有问题呢？

xyxcc177

Tables(1).Cell(h, l).Range.Text = Format(Sheets("Nt#1").Cells(7 + h, l + 1), "#,##0.00")

陈伟权

xyxcc177 发表于 2018-10-16 09:47
Tables(1).Cell(h, l).Range.Text = Format(Sheets("Nt#1").Cells(7 + h, l + 1), "#,##0.00")

非常感谢！我再详细看看！