Take it easy~ | 【教學】Excel VBA - 從Word表格取回資料 如何從Word表格取回資料至Excel工作表? 我所知的方法有 DDE 和 OLE, 但我只會用 OLE 囉... Sub get_word_table( ) 1 Dim wrdApp As Object 2 Set wrdApp = CreateObject("Word.Application") 3 Set wrdDoc = wrdApp.Documents.Open("D:\Temp\ole_test.doc") 4 With wrdDoc.Tables(1) 5 For r = 1 To .Rows.Count 6 For c = 1 To .Columns.Count 7 Cells(r, c) = .Cell(r, c) 8 Next c 9 Next r 10 End With 11 wrdDoc.Close 'close the document 12 wrdApp.Quit 'close Word 13 Set wrdDoc = Nothing 14 Set wrdApp = Nothing End Sub 逐行說明
|
回覆 |
會員 | 大大謝謝囉~~ 受益無窮~~ 對囉~~ 我同事的電腦在執行mail merge的時候會出現無法建立DDE的訊息~~ 後來我有去看microsoft的文件~~ 都沒辦法解決~~ 我個人認為是os的問題~~ 不知道大大是否有遇過這種問題~~ |
回覆 |
Take it easy~ | 我沒遇過咧? 拍寫~ ^^ 嗯~ 回應是發表的一種動力.. 尤其是教學文章~ 如果大家能多回應一點, PCZONE的教學文章就不會越來越少了... |
回覆 |
|
類似的主題 | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
在EXCEL中如何判斷顏色取值?(VBA) | TPBUNNY | -- OFFICE 相 關 軟 體 討 論 版 | 7 | 2003-08-12 07:16 PM |
【教學】Excel - 玩玩亂數 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 2 | 2003-06-28 10:10 PM |
[VBA]月曆控制項亂碼問題 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2003-04-27 03:50 PM |
[VBA] 比對資料及設定格式 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2001-09-09 12:02 AM |
[VBA] 自動巨集與活頁薄事件 | leonchou | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2001-08-22 08:32 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。