請教有關WORD表格內資料連結至EXCEL

mgame168

請教各位先進:
     先前在論壇上爬文，找到了一篇由ianlcc大所提出的問題"有關EXCEL儲存格內資料連結至WORD"
  若反之，我想從WORD表格內資料連結至EXCEL，該如何做呢?

PD961A

請教各位先進:
     先前在論壇上爬文，找到了一篇由ianlcc大所提出的問題
  若反之，我想從WORD表格內資 ...
mgame168 發表於 2010-9-29 14:33

    http://gb.twbts.com/index.php?topic=5783.msg32244

mgame168

喔~ 感謝告知

onegirl0204

回復 2# PD961A


雖然利用超連結的觀念將WORD檔裡的資料複製到EXCEL裡資料會自動隨時更新非常方便，但是有一個問題～若是WORD檔裡有插入一列新資料，根據我的測試EXCEL檔不會自動跟著多增加一列資料，它只會往下遞延而已，最後的結果就是原有的最後一筆資料會被遺漏～無法自動連結複製到EXCEL檔裡！
是否有新增資料時，就得重新用人工方式再連結複製至EXCEL檔呢？

PD961A

回復 4# onegirl0204


    http://gb.twbts.com/index.php?topic=5783.0

« 回覆文章 #1 於: 2007-02-20, 00:53:33 »  

--------------------------------------------------------------------------------
你可嘗試先把Word內的表格公式的值，如你的例子是「1000」，選取後複製，然後到Excel內A2儲存格內，點選下拉式「工能表列」內的「編輯」「選擇性貼上」，「在貼上成為(A)」下選取「超連結」，還要點選左邊的「貼上連結(L)」，然後按「確定」貼上，那以後你在Word內的公式值如有更新，你開啟此Excel的File內A2的值也會自動更新。希望這能幫到你解決你的問題。

  已記錄   
jumky
高中生
離線
文章: 200


  Re: 請問如何讓WORD表格與EXCEL表格做連結?
« 回覆文章 #2 於: 2007-02-21, 10:33:58 »  
--------------------------------------------------------------------------------
bb_total 大大：
謝謝囉...有超連結真是方便呀...  
   已記錄  
jumky
高中生
離線
文章: 200
  Re: 請問如何讓WORD表格與EXCEL表格做連結?
« 回覆文章 #3 於: 2007-02-21, 10:47:47 »  
--------------------------------------------------------------------------------
bb_total 大大：
可是你那個是用word檔為基準..也就是word檔有變更..excel隨即變更

onegirl0204

回復 5# PD961A


附上檔案說明會較為清楚～ word轉貼excel.rar (7.86 KB)

下載次數: 24

2010-10-10 17:57

mgame168

感謝各位先進的回應

我想這個問題應該是一開始定義來源資料的問題吧!
一開始我們就定義OLE_LINK1為5x6的資料表
後來新增的自然也就不在者個範圍內, 同理, 若我在
Word插入一欄, 變成6x6的資料表, 則Excel顯示
還是停留在5x6的資料表!

我原始的想法是Word表格內資料連結至EXCEL
是否能像VLookUp一樣好用, 能讓我們使用的自由
度、與彈性高一點~

GBKEE

回復 7# mgame168
在word程式裡變更doc 後請將檔案 [另存為網頁]   例:文件1.mht
請在xls 檔案中 將下列程式複製於 ThisWorkbook物件裡
存檔後 每當 xls 開啟時 自動更新為 doc的最新資料

1. Private Sub Workbook_Open()
   
2. With Sheet1
   
3. If .QueryTables.Count = 0 Then
   
4. .QueryTables.Add "URL;file:///D:/TEST/文件1.mht", .[A1]
   
5. Else
   
6. .QueryTables(1).Connection = "URL;file:///D:/TEST/文件1.mht"
   
7. End If
   
8. .QueryTables(1).Refresh
   
9. End With
   
10. End Sub

複製代碼