返回列表 上一主題 發帖

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

請教有關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第一欄
請問有辦法做這方面的連結嗎?
謝謝請指導,感恩!

1.jpg (147.64 KB)

1.jpg

2.jpg (142.27 KB)

2.jpg

如果用連結檔案方式恐怕達不到樓主要求
解壓縮到電腦後執行excel檔案表格修改後存檔關閉
在去開啟word檔看表格內容是否跟著改變了 ExToWd.rar (10.51 KB)
學海無涯_不恥下問

TOP

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

TOP

這是當然的ㄚ
來源跟目標都要指定清楚的
學海無涯_不恥下問

TOP

那請教一下,問題二中,我如果要指定SHEET2的話,要怎麼修改呢?
煩請指導一下,謝謝您!

TOP

本帖最後由 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
複製代碼
學海無涯_不恥下問

TOP

TO:Hsieh
感謝您的協助,再次的謝謝您!
TO:老夏
謝謝您的指導,我又多學到一招了…

TOP

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

TOP

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

TOP

回復 13# 老夏


   這樣瞭解了所以必須分坐2次作業才能擷取部分表格
我提供一個OLE手法另一個做法
插入/物件
插入要連結的EXCEL檔案
要在WORD修改EXCEL或EXCEL修改後再WORD更新連結都行
學海無涯_不恥下問

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題