|
|
发表于 2010-10-26 09:59:50
|
显示全部楼层
来自： 中国北京
本帖最后由 swabc 于 2010-10-26 10:01 编辑
* M$ E9 \) r4 l) S- N. _6 a: {2 O3 }$ y2 g. e5 S
如果你要插入完整的Excel表，不用宏就可以。4 b N( V7 R- l" i
如果是部分，要创建Excel的ActiveX 对象。3 p2 ?2 ~- B" M3 w
9 M! }8 \' U2 @% V% ~: X在d盘存个excel文件，名字为Book1.xls. _! [4 v% p4 ?, \. P
Dim xlapp As Excel.Application
" V: c1 S8 u& w3 f/ s# j' F L! yDim xlbook As Excel.Workbook
3 u: Z$ i" ~/ h4 _% Z2 w2 q- X- wDim xlsheet As Excel.Worksheet; q) ~6 V/ L+ r2 [8 j' z; n
Dim s As String
' J! |6 F1 ?1 [; B' WSet xlapp = CreateObject("excel.application")% e2 Q/ l3 B% t8 M! L
xlapp.Visible = False- u( R& b- B* s* o! M
Set xlbook = xlapp.Workbooks.Open("d:\Book1.xls")
6 ]8 [, K/ i( U5 V; ?Set xlsheet = xlbook.Worksheets("sheet1")
' C7 |* h% X G! |6 Us=xlsheet.Cells(2, 5) '读取第2行，第5列
5 m3 n; ^$ K, c7 A' {" L# TMsgBox (s) '现在可以用这个s了
6 M3 U' W, D& m6 uxlbook.Close* C( V% ^* G9 @3 n$ y2 @
Set xlapp = Nothing |
评分
-
查看全部评分
|
楼主