如何將excel Range(a1) 貼到 word 上
- 帖子
- 76
- 主題
- 33
- 精華
- 0
- 積分
- 116
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新竹
- 註冊時間
- 2011-9-29
- 最後登錄
- 2020-8-25
|
如何將excel Range(a1) 貼到 word 上
Private Sub CommandButton1_Click()
Dim myTmpFName As String
myTmpFName = ThisWorkbook.Path & Application.PathSeparator _
& "test文件.dot"
With New Word.Application
With .Documents.Add(myTmpFName)
.Unprotect
.Tables(2).Cell(1, 1).Range.Text = Worksheets("sheet1").Range(a1)
.Protect wdAllowOnlyFormFields
End With
.Visible = True
End With
End Sub
用 .Tables(2).Cell(1, 4).Range.Text = Worksheets("sheet1").Range(a1) 貼不上
要怎麼寫 請教各位高手 謝謝! |
|
|
max
|
|
|
|
|
- 帖子
- 76
- 主題
- 33
- 精華
- 0
- 積分
- 116
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 新竹
- 註冊時間
- 2011-9-29
- 最後登錄
- 2020-8-25
|
3#
發表於 2011-10-14 13:54
| 只看該作者
|
|
max
|
|
|
|
|
- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
2#
發表於 2011-10-13 23:24
| 只看該作者
試試把
.Tables(2).Cell(1, 1).Range.Text = Worksheets("sheet1").Range(a1)
改成
.Tables(2).Cell(1, 1).Range.Text = Worksheets("sheet1").Range("a1") |
|
|
|
|
|
|
|
