標題:
請教有關WORD表格內資料連結至EXCEL
[打印本頁]
作者:
mgame168
時間:
2010-9-29 14:33
標題:
請教有關WORD表格內資料連結至EXCEL
本帖最後由 mgame168 於 2010-10-1 08:05 編輯
請教各位先進:
先前在論壇上爬文，找到了一篇由ianlcc大所提出的問題
"
有關EXCEL儲存格內資料連結至WORD
"
若反之，我想從WORD表格內資料連結至EXCEL，該如何做呢?
作者:
PD961A
時間:
2010-9-29 15:25
請教各位先進:
先前在論壇上爬文，找到了一篇由ianlcc大所提出的問題
若反之，我想從WORD表格內資 ...
mgame168 發表於 2010-9-29 14:33
http://gb.twbts.com/index.php?topic=5783.msg32244
作者:
mgame168
時間:
2010-10-1 08:03
喔~ 感謝告知
作者:
onegirl0204
時間:
2010-10-10 13:31
回復
2#
PD961A
雖然利用超連結的觀念將WORD檔裡的資料複製到EXCEL裡資料會自動隨時更新非常方便，但是有一個問題∼若是WORD檔裡有插入一列新資料，根據我的測試EXCEL檔不會自動跟著多增加一列資料，它只會往下遞延而已，最後的結果就是原有的最後一筆資料會被遺漏∼無法自動連結複製到EXCEL檔裡！
是否有新增資料時，就得重新用人工方式再連結複製至EXCEL檔呢？
作者:
PD961A
時間:
2010-10-10 13:49
回復
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
時間:
2010-10-10 17:57
回復
5#
PD961A
附上檔案說明會較為清楚∼[attach]3112[/attach]
作者:
mgame168
時間:
2010-10-13 08:17
感謝各位先進的回應
我想這個問題應該是一開始定義來源資料的問題吧!
一開始我們就定義OLE_LINK1為5x6的資料表
後來新增的自然也就不在者個範圍內, 同理, 若我在
Word插入一欄, 變成6x6的資料表, 則Excel顯示
還是停留在5x6的資料表!
我原始的想法是Word表格內資料連結至EXCEL
是否能像VLookUp一樣好用, 能讓我們使用的自由
度、與彈性高一點~
作者:
GBKEE
時間:
2010-10-13 09:45
標題:
RE: EXCEL 的匯入外部資料
回復
7#
mgame168
在word程式裡變更doc 後請將檔案 [另存為網頁] 例:文件1.
mht
請在xls 檔案中 將下列程式複製於 ThisWorkbook物件裡
存檔後 每當 xls 開啟時 自動更新為 doc的最新資料
Private Sub Workbook_Open()
With Sheet1
If .QueryTables.Count = 0 Then
.QueryTables.Add "URL;file:///D:/TEST/文件1.mht", .[A1]
Else
.QueryTables(1).Connection = "URL;file:///D:/TEST/文件1.mht"
End If
.QueryTables(1).Refresh
End With
End Sub
複製代碼
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
