excel陣列變數轉存至word

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

1^# 跳轉到 »

發表於 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

複製代碼

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。