導入Excel數據到Word中

我有一些代碼，我寫了從單元格導出數據，並將其導入Word文檔。那我有麻煩導入Excel數據到Word中

我的兩個問題是爲隨後

現在它只是導入單元格數據到文檔的開始。我需要做的是將數據導入預定義的文本框
現在我可以在VBA編輯器中運行代碼，並進入代碼並通過它運行而不會出現問題，但是如果將代碼分配給按鈕它錯誤。問題是框出現，並在它裏面

這裏是我當前的代碼

Sub Invoice() 
Dim objWord As Object 
Dim objDoc As Object 
Set objWord = CreateObject("Word.Application") 
objWord.Visible = True 
objWord.Documents.Open "C:\Users\account\Desktop\Invoice.docx" 

Dim strValue1 As String 
Dim strValue2 As String 
Dim strValue3 As String 

objWord.Activate 

strValue1 = Cells(Selection.Row, 2) 
strValue2 = Cells(Selection.Row, 3) 
strValue3 = Cells(Selection.Row, 4) 
objWord.Selection.TypeText Text:=strValue1 
objWord.Selection.TypeText Text:=strValue2 
objWord.Selection.TypeText Text:=strValue3 
End Sub

任何幫助將是巨大的讚賞

乾杯沒有文字！

objWord.ActiveDocument.Shapes（1）.TextFrame.TextRange.Text = strValue1
objWord.ActiveDocument.Shapes（2）.TextFrame.TextRange.Text =： GreatSc0tt

來源

2017-03-01 GreatSc0tt

到目前爲止，將文本插入文檔的最簡單方法是使用書籤。 – Comintern

「...但如果我將代碼分配給按鈕，它會出現錯誤」您得到什麼錯誤，在哪一行？ – BruceWayne

所以我想出了按鈕問題。這是導致問題的'objWord.Activate'這一行。我仍然有問題的文本字段tho – GreatSc0tt

可以通過訪問文本框strValue2

希望這有助於！

來源

2017-03-02 02:32:03 LKW

導入Excel數據到Word中

回答

相關問題