|
|
发表于 2010-10-26 09:59:50
|
显示全部楼层
来自： 中国北京
本帖最后由 swabc 于 2010-10-26 10:01 编辑 # ^% D( j% W8 |# B/ A
2 q9 s5 o7 H4 i7 a+ q, ]& N; ]/ i
如果你要插入完整的Excel表，不用宏就可以。5 e1 e. u' Z( K! h
如果是部分，要创建Excel的ActiveX 对象。
1 G- D9 s% y5 m% b3 S, @4 @5 R+ B f, {' ~
在d盘存个excel文件，名字为Book1.xls! A# w- s# H" \& k/ x7 r0 K. A% t
Dim xlapp As Excel.Application5 p0 M" U v; x/ l+ [; x
Dim xlbook As Excel.Workbook5 z3 c' t0 y1 ^/ c
Dim xlsheet As Excel.Worksheet7 F8 J" x: o4 i. \
Dim s As String ( c, o' C3 \3 |' U9 T! x
Set xlapp = CreateObject("excel.application")8 P9 G( l% n5 g- H8 B i
xlapp.Visible = False
( ?+ {- K$ [6 g& T; bSet xlbook = xlapp.Workbooks.Open("d:\Book1.xls")
9 v7 Z% {0 S9 F' Q+ S- w4 jSet xlsheet = xlbook.Worksheets("sheet1")
! f" E! J# t' ]& t; Y3 d6 {: Ks=xlsheet.Cells(2, 5) '读取第2行，第5列
+ [* l5 K) ~1 i* G0 @) ?) OMsgBox (s) '现在可以用这个s了1 R* ^0 {! |* i* y2 q
xlbook.Close) F3 U0 ?8 X/ Z! S6 F3 p
Set xlapp = Nothing |
评分
-
查看全部评分
|
楼主