|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能： $ \5 u, A1 s* U! ^0 \) i% ]
点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。
$ { w% ^# f4 k# E; K6 o/ H8 n- h% U0 g2 r
+ @4 C2 a/ ^" ivb和VBA不太一样7 K) `' | q/ T" j6 E3 h& X8 x% Q
: w- n* q' S. }5 A. D5 |" p! N6 l$ k: F |8 j( H
以下是查到VB调用EXCEL的资料：
% Q/ Q5 n2 v- l6 d在通用对象的声明过程中定义EXCEL对象：
0 j }# g; Z1 KDim xlApp As Excel.Application
1 P+ S0 c0 w, Z8 [Dim xlBook As Excel.WorkBook
$ v1 h: h# H* O, I* C% ~( w+ dDim xlSheet As Excel.Worksheet
; u& E; S ~6 R' S" z在程序中操作EXCEL表常用命令： 7 Y4 C1 H$ c. K. K
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 * Y. l; l: p% g0 s" r
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
9 \ t7 F+ j/ T1 _! [8 D$ QxlApp.Visible = True '设置EXCEL对象可见（或不可见） - s' s/ P4 E# u# f4 d; u
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
* e) e0 X7 d0 ^. D0 H( kxlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
! z i) \: O7 ?5 bxlSheet.PrintOut '打印工作表 ) f& U6 c7 f( h& }" u
xlBook.Close (True) '关闭工作簿 + p: _+ _5 X8 `+ D1 n; F" _1 j
xlApp.Quit '结束EXCEL对象 5 T. ?6 T# H2 ^ ~# F7 e6 E3 A% F
Set xlApp = Nothing '释放xlApp对象 . D. x1 m6 V. A% v3 c
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
, @+ M; N3 P; l/ j5 M) UxlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25