excel陣列變數轉存至word

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-10-11 10:57 | 只看該作者

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

Alyssa

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-10-11 11:04 | 只看該作者

學如逆水行舟不進則退

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-10-11 14:03 | 只看該作者

回復 1# Alyssa

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

Sub Ex()
Dim Doc As Object, Rng As Range, r, c
Set Rng = Sheet1.Range("A1:E5")
Set Doc = CreateObject("WORD.APPLICATION")
With Doc
.Visible = True
.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
.Documents(1).Tables.Add .ActiveDocument.Range, Rng.Rows.Count, Rng.Columns.Count
For r = 1 To Rng.Rows.Count
For c = 1 To Rng.Columns.Count
.Documents(1).Tables(1).cell(r, c) = Rng(r, c)
Next
Next
.Documents(1).SaveAs "d:\test\mydoc.doc"
.Quit
End With
Set Doc = Nothing
End Sub

複製代碼

4^#

發表於 2010-10-11 14:28 | 只看該作者

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

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

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

Alyssa

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。