麻辣家族討論版版 - Powered by Discuz! Board

標題: 請問這個該怎麼修改??? [打印本頁]

作者: color790 時間: 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

作者: kimbal 時間: 2011-2-5 00:06

請問紅色的部份該怎麼修改?
主要是打開某個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

作者: color790 時間: 2011-2-5 00:13

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

作者: color790 時間: 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

作者: Hsieh 時間: 2011-2-9 16:40

回復 4# color790

xlApp.ActiveDocument.Tables(1).Cell(1, 1).Range.Text = ActiveSheet.Range("B2").Value

作者: color790 時間: 2011-2-9 16:48

感恩感恩~~~

作者: color790 時間: 2011-2-9 17:31

回復 6# color790

xlApp.activedocument.Tables(1).cell(3, 4) = Date
請問這邊的格式怎麼改成 yyyy-mm-dd

作者: Hsieh 時間: 2011-2-9 17:57

xlApp.ActiveDocument.Tables(1).Cell(3, 4).Range.Text = Format(Date, "yyyy-mm-dd")

作者: color790 時間: 2011-2-9 22:18

^^ 謝謝版主~

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)