|
|
发表于 2010-10-26 09:59:50
|
显示全部楼层
来自： 中国北京
本帖最后由 swabc 于 2010-10-26 10:01 编辑
4 {3 h. x0 }0 R( I I7 F
8 n3 h! B* J5 p$ \; _) k如果你要插入完整的Excel表，不用宏就可以。% N. K8 D, X$ O4 L% O
如果是部分，要创建Excel的ActiveX 对象。# r1 K5 T, |2 ^$ T
9 _ s2 W' D* b在d盘存个excel文件，名字为Book1.xls5 |# z% B* [: `/ d
Dim xlapp As Excel.Application
1 c. k/ d0 V: V. b5 M3 p+ TDim xlbook As Excel.Workbook8 ^8 F" p1 j+ H9 _
Dim xlsheet As Excel.Worksheet
* z; J0 n& o# A3 r0 g" f SDim s As String
1 H1 D1 [5 F4 N5 Z" v2 t% MSet xlapp = CreateObject("excel.application")
7 H$ K; J% X- R% _8 {9 F- ]; r5 kxlapp.Visible = False2 Q! f% ]2 n8 [( |' T
Set xlbook = xlapp.Workbooks.Open("d:\Book1.xls")$ m( j/ N5 s8 i: c0 M4 h
Set xlsheet = xlbook.Worksheets("sheet1")
) u) v, `& }; O/ T* s% ws=xlsheet.Cells(2, 5) '读取第2行，第5列
$ g' L( V8 V1 ^, pMsgBox (s) '现在可以用这个s了
0 z' }9 O% Q% w) f: [4 [xlbook.Close* x9 c( j! F/ _9 @+ z5 y
Set xlapp = Nothing |
评分
-
查看全部评分
|
楼主