|
|
发表于 2010-10-26 09:59:50
|
显示全部楼层
来自： 中国北京
本帖最后由 swabc 于 2010-10-26 10:01 编辑 - _% Q" @- `& {6 f2 h2 F; d
+ W% K$ J2 p' b# {+ o. q
如果你要插入完整的Excel表，不用宏就可以。
' m/ F6 x0 ~% F+ f7 c( O如果是部分，要创建Excel的ActiveX 对象。. b& K) g# C+ n8 G0 b3 E& R# k
2 E' ^$ ^% L6 V/ o7 t
在d盘存个excel文件，名字为Book1.xls4 ?5 q. I& G n" f# L; _$ T/ o
Dim xlapp As Excel.Application8 ]7 y% N1 }2 a
Dim xlbook As Excel.Workbook* X, @+ | I6 y0 B2 z
Dim xlsheet As Excel.Worksheet( w& a6 {$ }$ A2 \
Dim s As String
0 I% l1 X7 f; A- z& Z" M( M0 M$ S! FSet xlapp = CreateObject("excel.application")' T& s0 @, l. v+ k3 x9 C. c
xlapp.Visible = False4 A1 h+ T( {$ c1 B- i6 P
Set xlbook = xlapp.Workbooks.Open("d:\Book1.xls")# O8 P# m* W9 R8 J1 R" U# |
Set xlsheet = xlbook.Worksheets("sheet1")
: c& A& P# H9 m4 ms=xlsheet.Cells(2, 5) '读取第2行，第5列5 |7 l7 E0 l( k2 M, o
MsgBox (s) '现在可以用这个s了" M# T% S1 }$ R" m: `- s" W
xlbook.Close
3 R; L7 l, v& X1 C- c' g. sSet xlapp = Nothing |
评分
-
查看全部评分
|
楼主