- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
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
|
|
發表於 2010-10-11 10:57
| 
發表於 2010-10-11 11:04
| 
