|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能：
0 ~. H' b; v9 o* |; P点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。 4 D4 U2 D( s9 z
) s h, ~- a2 |+ B
. y4 c& ~5 L* k1 x7 K
vb和VBA不太一样
/ F2 p7 e- m! q# t a- h
( j3 `/ \ X- G$ e, Y
9 d2 z3 _( m0 y6 ^6 c' z! p以下是查到VB调用EXCEL的资料： 1 ^( R7 |+ m8 Y/ x
在通用对象的声明过程中定义EXCEL对象： : r0 x6 P( J5 ]5 B0 f* R. f/ k7 u
Dim xlApp As Excel.Application
! j5 E, X9 e5 K& `4 EDim xlBook As Excel.WorkBook
6 |/ `$ ?8 F2 t6 nDim xlSheet As Excel.Worksheet
# \; I0 f- z i! P( g- D在程序中操作EXCEL表常用命令：
1 Q9 e3 F) E# z, P4 e2 pSet xlApp = CreateObject("Excel.Application") '创建EXCEL对象 $ j( L g% q' S4 r
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
9 ?0 H+ C1 v$ p3 w0 g% h' ?# j( FxlApp.Visible = True '设置EXCEL对象可见（或不可见）
$ ~: a7 X; U0 {5 S0 `; g7 ISet xlSheet = xlBook.Worksheets("表名") '设置活动工作表 9 U/ z' S. o) `1 [$ {7 W: C
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
( W7 A- o6 U1 [+ M# v v" jxlSheet.PrintOut '打印工作表
0 b& a% B9 c% v- |" X; [' t1 AxlBook.Close (True) '关闭工作簿 * c4 V R8 Z$ `
xlApp.Quit '结束EXCEL对象
( H" F, I$ m- B7 CSet xlApp = Nothing '释放xlApp对象
# N! S1 [& p. N( {7 K1 jxlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 + R0 D4 F) b/ n6 D
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25