½Ð°Ý³o­Ó¸Ó«ç»ò­×§ï???

color790

½Ð°Ý¬õ¦âªº³¡¥÷¸Ó«ç»ò­×§ï?
¥D­n¬O¥´¶}¬Y­ÓWORDÀÉ,µM«á¦b²Ä¤@­Óªí®æªº²Ä¤@®æ¤º®e·|ª½±µ½Æ»sEXCELÀɪº[B2]Àx¦s®æ
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

½Ð°Ý¬õ¦âªº³¡¥÷¸Ó«ç»ò­×§ï?
¥D­n¬O¥´¶}¬Y­ÓWORDÀÉ,µM«á¦b²Ä¤@­Óªí®æªº²Ä¤@®æ¤º®e·|ª½±µ½Æ»sEXCELÀɪºÀx¦s®æ ...
color790 µoªí©ó 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

·P®¦·P®¦~¤U§«ô¨Ó¤½¥q¥Î¥Î¬Ý~

color790

Sub transform()
Dim xlApp As Object
Set xlApp = CreateObject("word.application")
With xlApp ...
kimbal µoªí©ó 2011-2-5 00:06

½Ð°Ý.....Typetext«á­±¬O§_¦³"=" ÁÙ¬O¨ä¥LªºªF¦è?,  ¦n¹³¸Õ¤£¤Ó¥X¨Ó: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

·P®¦·P®¦~~~

color790

¦^´_ 6# color790

xlApp.activedocument.Tables(1).cell(3, 4) = Date
½Ð°Ý³oÃ䪺®æ¦¡«ç»ò§ï¦¨ yyyy-mm-dd

Hsieh

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

color790

^^ ÁÂÁª©¥D~