返回列表下一主題上一主題發帖

請問這個該怎麼修改???

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-2-1 15:18 | 顯示全部帖子

請問這個該怎麼修改???

本帖最後由 color790 於 2011-2-1 23:21 編輯

請問紅色的部份該怎麼修改?
主要是打開某個WORD檔,然後在第一個表格的第一格內容會直接複製EXCEL檔的[B2]儲存格
Sub transform()
Dim xlApp As Object
Set xlApp = CreateObject("word.application")
With xlApp
xlApp.Visible = True
xlApp.Documents.Open "C:\Users\Desktop\Doc1.docx"
xlApp.ThisDocument.Table(1).cell(1, 1) = ActiveSheet.Range("B2").Value
End With
End Sub

樓主熱帖

初學者color

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

2^#

發表於 2011-2-5 00:13 | 顯示全部帖子

感恩感恩~下禮拜來公司用用看~

初學者color

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2024-8-29

3^#

發表於 2011-2-9 16:13 | 顯示全部帖子

Sub transform()
Dim xlApp As Object
Set xlApp = CreateObject("word.application")
With xlApp ...
kimbal 發表於 2011-2-5 00:06

請問.....Typetext後面是否有"=" 還是其他的東西?, 好像試不太出來:dizzy:
xlApp.activedocument.Tables(1).cell(1, 1).Select
xlApp.Selection.TypeText ActiveSheet.Range("B2").Value

初學者color

TOP

color790