|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能： . O; D/ ?+ J6 y# f3 [ F; ~
点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。
- d% x4 u5 a) i- `
5 ]8 `$ h5 d1 K3 {# N, Y% U; v) m
' X" g) w( v1 G( I8 L; j/ Cvb和VBA不太一样 \+ `6 l9 O3 h2 r8 Z( r1 X
- E4 A$ D# h7 j$ p
9 p! s* I, Y0 K% v' o以下是查到VB调用EXCEL的资料： 9 q+ T3 F/ y0 M& z
在通用对象的声明过程中定义EXCEL对象： " e% j: ]" Z m& h5 ?. B
Dim xlApp As Excel.Application
7 `6 Q4 R0 w6 }( T2 ^Dim xlBook As Excel.WorkBook # Z+ o7 F$ v$ z( T- X" c
Dim xlSheet As Excel.Worksheet % d! i2 f6 L: O4 ]- `! R, i3 v
在程序中操作EXCEL表常用命令： ' U1 H/ X0 n9 ]7 _" T; l; z2 u9 i# U" R. t
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
/ l* _2 ?1 f6 D& SSet xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 ! N: y% j+ V2 o0 c1 p& y
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
, W; E; \0 p, i# p; i5 a, u H3 HSet xlSheet = xlBook.Worksheets("表名") '设置活动工作表 6 `$ l* S& S3 n7 H- l
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
& c" V5 Y/ W% N/ P% ]# DxlSheet.PrintOut '打印工作表 - P: P- M |$ G1 U. |, |
xlBook.Close (True) '关闭工作簿
! E% `6 s8 T% `" Q2 M( t$ cxlApp.Quit '结束EXCEL对象 9 p- C Q1 d* b6 m
Set xlApp = Nothing '释放xlApp对象 ' W/ O4 |: d- u, [: }- v% H
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
( V, M& f$ W9 z& \- p. f3 X: kxlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25