用Excel打印Word中的數據與VBA Makro

Question

我試圖從我的Excelsheet打印數據到已經存在的已存在的文件中的表格。

我在Excel中的數據是一個簡單的問題，如：「天氣怎麼樣？」

現在我想打印這個問題在word中的表。 Word文件和表格已經存在。

首先，我從我的excel makro打開word文件。

Dim AppWD As Object 

Set AppWD = CreateObject("Word.Application") 'Word als Objekt starten 

AppWD.Visible = True 
AppWD.documents.Open "file location" 

doc.Unprotect 

這工作完全正常，但後來我首先嚐試在該表中刪除行作爲測試的，我是這樣做的：

AppWD.Tables.Item(1).Rows(2).Delete 

但這裏有一個問題，這沒有用。 我總是得到運行時錯誤「424」： 所需的對象

我認爲這個問題是我的萬客隆不知道它在寫的字，而不是到我excelsheet。

Answer 1

這是因爲你沒有正確創建和使用你的對象。這是你正在嘗試的嗎？ （UNTESTED）

Dim AppWD As Object, doc As Object 

Set AppWD = CreateObject("Word.Application") 

AppWD.Visible = True 

Set doc = AppWD.documents.Open("file location") 

doc.Unprotect 

doc.Tables.Item(1).Rows(2).Delete