2017-04-18 70 views
0

我是Excel VBA的新手。我需要使用Excel VBA完成一項重要的自動化任務。它需要從Word文件中提取特定的數據/文本到Excel工作表。請參閱附加的示例文件。需要如何從Word中將特定的數據/文本拖到Excel中的特定單元格?

Excel File

Word File

高亮顯示的日期和Word文件,其下每個日期將被提取並投入Excel中第一頁的「PO發行日期」一欄。同樣,文字文件中的每個零件編號(突出顯示)都需要放入「Funai零件編號」欄中。

同樣,'TOTAL'下的word文件中的數量需要放入'Required Qty'列中,並且Word文件中的PO號碼(Lastrow最終值 - 70525003)需要放入'PO Number'列。此採購訂單編號在所有其他日期以及在Excel中輸入時都相似。

+0

我懷疑這個問題將被判斷爲堆棧溢出的主題,原因有幾個。首先,沒有任何代碼,它可能太寬泛。其次,問題需要自成一體,或者至少合理如此,以便打破外部鏈接不會使問題無法理解。如果您可以編輯帖子來解決這些問題,那就太好了。 – halfer

回答

0

您可以將書籤添加到Word,並運行下面的腳本?

Sub PushToWord() 

Dim objWord As New Word.Application 
Dim doc As Word.Document 
Dim bkmk As Word.Bookmark 
sWdFileName = Application.GetOpenFilename(, , , , False) 
Set doc = objWord.Documents.Open(sWdFileName) 
On Error Resume Next 

    Range("B1").Value = ActiveDocument.Variables("BrokerFirstName").Value 
    Range("B2").Value = ActiveDocument.Variables("BrokerLastName").Value 
    ActiveDocument.Fields.Update 

On Error Resume Next 
objWord.Visible = True 

End Sub 

這應該給你想要的東西。

相關問題