excel陣列變數轉存至word

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

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

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

Alyssa

4^#

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

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

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

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

Alyssa

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