|
|
发表于 2010-10-26 09:59:50
|
显示全部楼层
来自： 中国北京
本帖最后由 swabc 于 2010-10-26 10:01 编辑 6 U$ z3 W- v# [3 q; b/ A
0 c/ j! Y2 y! Q8 X3 d* O* `如果你要插入完整的Excel表，不用宏就可以。5 V. a" [* H( k" y* T9 N
如果是部分，要创建Excel的ActiveX 对象。
9 F& h# n# z/ i* _4 {& s( A) V0 S# C5 _) n, z. x' u U3 A/ ^
在d盘存个excel文件，名字为Book1.xls- t+ B8 ]8 B8 `' h S& m
Dim xlapp As Excel.Application
+ f; C% f/ }8 X& ^Dim xlbook As Excel.Workbook
9 Q' o* [! V2 j: y/ {6 a' A6 mDim xlsheet As Excel.Worksheet
; }, H5 p" Z% r5 nDim s As String 2 x3 C1 y6 f3 `% Z0 U
Set xlapp = CreateObject("excel.application")" {: N" ]5 E1 t* i
xlapp.Visible = False Z, H5 r+ }" H1 V
Set xlbook = xlapp.Workbooks.Open("d:\Book1.xls")/ s& ^" O, A2 `" e
Set xlsheet = xlbook.Worksheets("sheet1") * a' L: S' d+ Y# c; F
s=xlsheet.Cells(2, 5) '读取第2行，第5列
, m) F' S* ^5 q/ p# SMsgBox (s) '现在可以用这个s了7 q6 U$ c A/ |% A$ E
xlbook.Close/ E' B( u% u: S* ^- ?- d) q
Set xlapp = Nothing |
评分
-
查看全部评分
|
楼主