標題: excel陣列變數轉存至word [打印本頁]

---

作者: Alyssa    時間: 2010-10-11 10:57     標題: excel陣列變數轉存至word

想請教一下
我在excel裡把資料丟進一個陣列變數
在excel裡已經執行完後需要利用同樣的資料去製作word文件
要怎麼樣才能把這個陣列變數直接讓word使用呢?
目前的做法是先把所有的資料貼上word後再在word裡用別的陣列變數抓取
想問看看有沒有別的方式,謝謝~

---

作者: PD961A    時間: 2010-10-11 11:04

回復 1# Alyssa


    http://forum.twbts.com/viewthrea ... =pageD10&page=1


   http://forum.twbts.com/thread-1472-1-1.html

---

作者: GBKEE    時間: 2010-10-11 14:03

回復 1# Alyssa

   將Sheet1.Range("A1:E5") 範圍內的資料 傳送到在新開的WORD文件 之後存檔

1. Sub Ex()
   
2.     Dim Doc As Object, Rng As Range, r, c
   
3.     Set Rng = Sheet1.Range("A1:E5")
   
4.     Set Doc = CreateObject("WORD.APPLICATION")
   
5.     With Doc
   
6.         .Visible = True
   
7.         .Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
   
8.         .Documents(1).Tables.Add .ActiveDocument.Range, Rng.Rows.Count, Rng.Columns.Count
   
9.         For r = 1 To Rng.Rows.Count
   
10.             For c = 1 To Rng.Columns.Count
    
11.             .Documents(1).Tables(1).cell(r, c) = Rng(r, c)
    
12.             Next
    
13.         Next
    
14.         .Documents(1).SaveAs "d:\test\mydoc.doc"
    
15.         .Quit
    
16.     End With
    
17.     Set Doc = Nothing
    
18. End Sub

複製代碼

---

作者: Alyssa    時間: 2010-10-11 14:28

感謝PD961A的回復
不過我在word裡並不完全是表格
所以好像不太適用不過多一個參考方向也很好

感謝GBKEE的回復
這應該就是我需要的
我再來努力研究一下,因為剛從excel vba到word vba
有點轉不過來

再次感謝兩位的回復,感恩~~~

---

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