標題: 從Word文件中的表格資料轉移至Excel [打印本頁]

---

作者: FAlonso    時間: 2011-6-21 13:46     標題: 從Word文件中的表格資料轉移至Excel

這個程式是在麻辣論壇copy出來的

1. Sub copyfromword()
   
2. Dim wordapplication As Word.Application, worddocument As Object
   
3. Dim r, c As Integer
   
4. Set wordapplication = CreateObject("word.application")
   
5. Set worddocument = wordapplication.Documents.Open(ThisWorkbook.Path & "\myword.doc")
   
6. With worddocument.Tables(1)
   
7. For r = 1 To .Rows.Count
   
8. For c = 1 To .Columns.Count
   
9. Cells(r, c) = .Cell(r, c)
   
10. Next c
    
11. Next r
    
12. End With
    
13. worddocument.Close
    
14. wordapplication.Quit
    
15. Set wordapplication = Nothing
    
16. Set worddocument = Nothing
    
17. End Sub

複製代碼

Set wordapplication = CreateObject("word.application") 這行出現Error 13型態不符合的錯誤指示
應怎樣解決

---

作者: Hsieh    時間: 2011-6-21 14:14

回復 1# FAlonso


    [attach]6723[/attach]

---

作者: FAlonso    時間: 2011-6-21 17:36

選擇了word library,還是老樣子. 不知何解?
此檔案放在電腦一陣子,居然自己也忘了如何解決

---

作者: luhpro    時間: 2011-6-23 01:11

回復 3# FAlonso
我測試過結果是正常的喔,
另外有一行建議修正一下 :
Set worddocument = wordapplication.Documents.Open(Chr(34) & ThisWorkbook.Path & Chr(34) & "\myword.doc")
其一 原式似乎少一個 &
其二 原式若於該檔案是放在諸如 "我的文件" 這類目錄中間有 空格 的情形時會找不到那個Word檔.

---

作者: FAlonso    時間: 2011-6-23 10:46

我在declare中刪了word.application就行了,多謝各位解答

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)