- 帖子
- 472
- 主題
- 5
- 精華
- 0
- 積分
- 485
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- MS Office
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 香港
- 註冊時間
- 2010-7-4
- 最後登錄
- 2014-12-28
|
請問紅色的部份該怎麼修改?
主要是打開某個WORD檔,然後在第一個表格的第一格內容會直接複製EXCEL檔的儲存格 ...
color790 發表於 2011-2-1 15:18 
Sub transform()
Dim xlApp As Object
Set xlApp = CreateObject("word.application")
With xlApp
xlApp.Visible = True
xlApp.Documents.Open "C:\temp\Doc1.docx"
xlApp.activedocument.Tables(1).cell(1, 1).Select
xlApp.Selection.TypeText ActiveSheet.Range("B2").Value
End With
End Sub |
|
發表於 2011-2-5 00:06
| 