将excel数据移至已有的word文档

这是我使用VBA的第三天。 我目前正在为这家公司工作一个为期三个月的合同，并且已经想出了如何自动将数据从excel传输到一个新的word文档（他们想要多年的过程）。 我还发现如何从Excel中打开现有的Word文档。

事情是，我还没有制定如何将数据从Excel转移到现有的Word文档。

以下是我正在为上述原因编写的代码。 任何人都可以指出我要去哪里错了吗？ 任何和所有的答案将不胜感激:)

Sub CopyRangeToWord() Dim objWord As Word.Application Dim objDoc As Word.Document Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx") Set objDoc = objWord.Documents objWord.Visible = True Range("A1:B10").Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .Paste .Font.Name = "broadway" .Font.Color = wdColorBlue .Font.Bold = True .Font.Italic = True .Font.Allcaps = True .Font.Size = 20 End With End Sub 

Answer 1

这对我来说是完美无缺的：如果我执行代码，它会将表格作为表格一遍又一遍地添加到文档中

 Dim objWord Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc =objWord.Documents.Open("C:\Users\schmidmath\Documents\test1.docx") Range("A1:B10").Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .Paste .Font.Name = "broadway" .Font.Color = wdColorBlue .Font.Bold = True .Font.Italic = True .Font.Allcaps = True .Font.Size = 20 End With objWord.Visible = True 

Answer 2

下面修改后的代码在我的最后工作，testing它，让我知道是否足以满足您的要求。

 Sub CopyRangeToWord() Dim objWord Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add Set wordApp = GetObject("C:\Users\CoffeeFuelsMeNow\Documents\Ladedadeda\Testplate.dotx") Set objDoc = objWord.Documents objWord.Visible = True Range("A1:B10").Copy With objDoc.Paragraphs(objDoc.Paragraphs.Count).Range 'All formatting goes here .Paste .Font.Name = "broadway" .Font.Color = wdColorBlue .Font.Bold = True .Font.Italic = True .Font.Allcaps = True .Font.Size = 10 End With End Sub