|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能：
* t0 n: a4 U. u点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。 + P, ^& z: h" A2 Y' n- J! \) N3 h7 q
, q% v, S$ I% U/ h( \
4 B& D9 V: V6 S: L' Xvb和VBA不太一样
6 n) m4 s% H+ r1 z/ t" g- x
/ Q* w, M9 z/ Q" g* n+ {. n0 f
8 C K6 k& t; O! H% e5 L以下是查到VB调用EXCEL的资料：
, g2 b. q6 B$ _5 p) b在通用对象的声明过程中定义EXCEL对象：
+ B- Y1 o* {$ m8 L& Y+ G; I+ Q% s/ jDim xlApp As Excel.Application 1 z& d8 ]& H A4 o6 {( M2 ~
Dim xlBook As Excel.WorkBook * |6 r. @$ M2 E* z' v' B
Dim xlSheet As Excel.Worksheet
4 r& Y- ]; W$ Z' \" w/ N在程序中操作EXCEL表常用命令：
5 N2 s$ }- H) Q: k- cSet xlApp = CreateObject("Excel.Application") '创建EXCEL对象
6 u, V5 Y) C+ Z& BSet xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
. j" f/ H7 G `: n& L! @. TxlApp.Visible = True '设置EXCEL对象可见（或不可见）
e1 U6 Z6 {: t) x$ i5 ASet xlSheet = xlBook.Worksheets("表名") '设置活动工作表
0 Y( ^1 i! \8 y# }/ K3 ~xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
- A, ~1 Q1 n5 p/ x ^: X: {xlSheet.PrintOut '打印工作表
6 i) [! i( Z) H! n- R+ VxlBook.Close (True) '关闭工作簿
' J& _( |8 w! LxlApp.Quit '结束EXCEL对象 ; G) O, E' N0 F/ j
Set xlApp = Nothing '释放xlApp对象 7 \; w2 p1 B, f$ o/ _1 L
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
2 Z# ~1 t9 b9 W" ], Y' BxlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25