Board logo

標題: 請教有關EXCEL儲存格內資料連結至WORD [打印本頁]
作者: ianlcc    時間: 2010-7-7 11:35     標題: 請教有關EXCEL儲存格內資料連結至WORD

本帖最後由 ianlcc 於 2010-7-7 11:44 編輯

我有KEY一個EXCEL的文字（如附件：1JPG），然後我想要把這個EXCEL文字內的資料連結至WORD檔內的表格內（如附件：2.JPG）
譬如：
1.XLS：C儲存格連結到2.DOC第三欄
1.XLS：D＆E儲存格連結到2.DOC第二欄
1.XLS：F儲存格連結到2.DOC第一欄
請問有辦法做這方面的連結嗎？
謝謝請指導，感恩！
作者: Hsieh    時間: 2010-7-8 12:23

如果用連結檔案方式恐怕達不到樓主要求
解壓縮到電腦後執行excel檔案表格修改後存檔關閉
在去開啟word檔看表格內容是否跟著改變了[attach]1756[/attach]
作者: ianlcc    時間: 2010-7-8 23:04

TO:Hsieh大大
您好，謝謝您的指導及幫忙（真的是幫了一個大忙，感恩）
不過，再向您請教幾個問題：
一、如果我要指定WORD檔的檔名的話，是否是到「   Set Doc = .Documents.Open(ThisWorkbook.Path & "\類別.doc")」，將\類別.doc修改成自己指定的檔名呢？
二、另外，假設自己的EXCEL檔裡有SHEET1、SHEET2、SHEET3…共有三個的話，需要在VBA中指定我要連結的是哪一個SHEET內的資料嗎？
↑請教這些問題，請多多指教，謝謝您！
作者: Hsieh    時間: 2010-7-8 23:10

這是當然的ㄚ
來源跟目標都要指定清楚的
作者: ianlcc    時間: 2010-7-8 23:50

那請教一下，問題二中，我如果要指定SHEET2的話，要怎麼修改呢？
煩請指導一下，謝謝您！
作者: Hsieh    時間: 2010-7-9 00:04

本帖最後由 Hsieh 於 2010-7-9 00:08 編輯

回復 5# ianlcc
  1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  2. '請先設定引用項目Micrsoft Word 10.0 ObjectLibrary
  3. Dim Ar()
  4. Dim Wd As Word.Application, Doc As Document
  5. Application.ScreenUpdating = False
  6. Set Wd = CreateObject("Word.Application")
  7. With Sheet2
  8. For i = 1 To .[E65536].End(xlUp).Row
  9.    ReDim Preserve Ar(s)
  10.    Ar(s) = Array(.Cells(i, 5).Value, .Cells(i, 4).Value, .Cells(i, 3).Value)
  11.    s = s + 1
  12. Next
  13. End With
  14. With Wd
  15.    Set Doc = .Documents.Open(ThisWorkbook.Path & "\類別.doc") 'doc檔名自行更改
  16.    With Doc.Tables(1) '必須存在表格
  17.    r = s
  18.    Do Until .Rows.Count <= s
  19.       .Rows(r).Delete
  20.       r = r - 1
  21.    Loop
  22.    
  23.       For i = 0 To UBound(Ar)
  24.       If i = .Rows.Count Then .Rows.Add
  25.          For j = 0 To 2
  26.             .Cell(i + 1, j + 1).Range.Text = Ar(i)(j)
  27.          Next
  28.         Next
  29.    End With
  30. Doc.Save
  31.    .Quit
  32. End With
  33. Application.ScreenUpdating = True
  34. End Sub
複製代碼
作者: ianlcc    時間: 2010-7-9 09:26

TO：Hsieh
感謝您的協助，再次的謝謝您！
TO：老夏
謝謝您的指導，我又多學到一招了…
作者: Hsieh    時間: 2010-7-9 11:06

回復 7# 老夏
恕小弟駑鈍無知實在無法洞悉夏兄技巧
該如何在excel跟word之間
就算以ie開啟要讓2檔資料欄位互換並可同步更新資料
小弟試著在word以插入物件達到2檔能連結
但是欄位數量及欄位順序都將是同樣的
還請夏兄指導,您的方法該怎樣達成excel跟word互連
並可使word只有excel的部份資料,而非全表格資料
讓後輩們學習
謝謝!
作者: Hsieh    時間: 2010-7-9 16:01

回復 10# 老夏
呵!老夏兄我知道這就是用IE做操作介面來操作各類型檔案
而且可直接存檔
您有點誤解小弟的意思了
重點在於word跟excel的格式並不一樣
而且只是要部份excel資料傳給word的表格
請問有什麼好方法辦到呢?
還請指點迷津
謝謝!
作者: Hsieh    時間: 2010-7-9 19:21

回復 13# 老夏


   這樣瞭解了所以必須分坐2次作業才能擷取部分表格
我提供一個OLE手法另一個做法
插入/物件
插入要連結的EXCEL檔案
要在WORD修改EXCEL或EXCEL修改後再WORD更新連結都行
[attach]1784[/attach]
作者: Hsieh    時間: 2010-7-12 12:27

本帖最後由 Hsieh 於 2010-7-15 11:07 編輯

經過阿吉版主指導,終於找出比較正規的作法
將作法分享一下
如果表格大小固定做法比較簡單
將Excel須要連結的欄位一一複製
到word選擇性貼上勾選貼上連結即可
若範圍會隨時改變可依下列步驟進行
首先將excel要放到word的部份表格欄位定義名稱(這樣要指定位置比較容易)
然後依插入/物件/從檔案方法插入3個excel物件(此3物件檔案來源都是同一個)
此時3個物件顯示都是完整表格內容
再來物件上按右鍵呼叫出變更連結對話匡
[attach]1825[/attach]
[attach]1826[/attach]
[attach]1827[/attach]
如此就能變更來源
以後只要更新資料即可

[attach]1837[/attach]
作者: SunnyKen    時間: 2010-8-3 23:51

目前沒有全限與此文章做下載動作，這篇文章的確對公司的作業有相當大的幫助
作者: m121752332    時間: 2010-10-26 23:28

好方法 多學一點
作者: exzpip    時間: 2011-4-25 18:08

這個方法真的不錯
作者: ann    時間: 2011-4-25 23:18

經過阿吉版主指導,終於找出比較正規的作法
將作法分享一下
如果表格大小固定做法比較簡單
將Excel須要連 ...
Hsieh 發表於 2010-7-12 12:27



感謝分享
這樣的方法
:victory:
作者: xzonisy    時間: 2012-3-9 22:46

找了老半天，終於讓我找到需要的範例了！



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