- ©«¤l
- 117
- ¥DÃD
- 34
- ºëµØ
- 0
- ¿n¤À
- 155
- ÂI¦W
- 0
- §@·~¨t²Î
- windows XP
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-19
- ³Ì«áµn¿ý
- 2024-8-29
|
½Ð°Ý......¤U±ªº¥¨¶°¬°¤°»òn¼g¦bÀɮ׸̪º¼Ò²Õ,¦Ó¤£¯à¼g¦bnormal¸Ìªº¼Ò²Õ???
Sub test()
Dim xlWkApp As Object, xlWk As Object
Set xlWkApp = CreateObject("excel.application")
With xlWkApp
.Visible = True
Set xlWk = .Workbooks.Open("C:\book2.xls")
xlWk.Sheets(1).Range("a1") = ThisDocument.Tables(2).Cell(2, 6)
End With
End Sub |
|