|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能： ! n# h* Q3 ^* q# G
点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。 ! }* i" W5 @" b8 [9 F7 f3 i' z
! N8 ^: V4 X) R3 G7 }" _" O/ G1 Y! f9 s a e. Y- \* y" j
vb和VBA不太一样8 B, _( [* I. d6 a
% F# Y* m2 a( l1 q1 e, ?
& V% z; M( i+ s. D7 F$ V4 V$ c以下是查到VB调用EXCEL的资料：
; R7 k( n7 c2 E" K在通用对象的声明过程中定义EXCEL对象： 3 k$ g5 M/ ~2 `; ^) O6 H
Dim xlApp As Excel.Application / f/ A# t2 R/ M" _0 P( U! g+ W
Dim xlBook As Excel.WorkBook
* t3 T) j4 F8 SDim xlSheet As Excel.Worksheet
" O t/ P$ |& V$ ?$ D在程序中操作EXCEL表常用命令： & n3 q$ h: t$ B5 r4 g! D
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 ( _" ~) a6 } X* `0 ]
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
9 ?5 i0 i' ]6 I% I# xxlApp.Visible = True '设置EXCEL对象可见（或不可见）
5 K+ U& R! s7 l$ {Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
+ v: M7 y1 M2 l* exlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
2 N/ N6 O* {; P# LxlSheet.PrintOut '打印工作表
; \9 k9 E3 @/ w# v, c+ GxlBook.Close (True) '关闭工作簿 - Y- g/ d- y+ |
xlApp.Quit '结束EXCEL对象 ' D3 m% }; Q. _. g5 R Q( |9 Q5 C. F
Set xlApp = Nothing '释放xlApp对象 - _5 s# h1 [, k+ f ^, P& O3 j
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 8 ^, Q" O, S4 i. ]/ B7 M
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25