- ©«¤l
- 128
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 118
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXP
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥|¤t¦¨³£ÊT崃
- µù¥U®É¶¡
- 2010-9-13
- ³Ì«áµn¿ý
- 2017-5-12
|
¥N码¦bWord¨½运¦æ¡A将Wordªí®æ¤º1¦æ2¦CªºÈ¶Ç¨ìexcelªºA1:
Sub test()
Dim oExcelApp As Object, oWk As Object
Dim s
s = ThisDocument.Tables(1).Cell(1, 2)
Set oExcelApp = CreateObject("EXCEL.APPLICATION")
With oExcelApp
.Visible = True
Set oWk = .workbooks.Add
oWk.sheets(1).Range("a1") = Mid(s, 1, Len(s) - 2)
End With
End Sub |
|