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

color790

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

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

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

color790

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

回復 4# color790


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

color790

感恩感恩~~~

color790

回復 6# color790

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

Hsieh

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

color790

^^ 謝謝版主~