|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能：
& {1 U0 o7 `5 l+ I) a/ j点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。 , g" X! f2 l, |; G
4 Z6 v; q$ j# k9 f3 b
0 g' m& K& V+ L( E1 gvb和VBA不太一样8 W8 S" b! X/ A. ]
- ?/ S5 v- F( l/ c6 f1 ^* S
. i6 _: b9 }$ r4 x# d2 O以下是查到VB调用EXCEL的资料： ' a8 W$ p9 }4 w) @& a
在通用对象的声明过程中定义EXCEL对象：
' x* V. `' E" e( Z- tDim xlApp As Excel.Application
x0 [- ?; v6 W3 A0 R) ?( _Dim xlBook As Excel.WorkBook ) ]$ E/ W' }& j6 @! T2 K9 N) i
Dim xlSheet As Excel.Worksheet
2 A" M5 N0 R4 x" R2 l在程序中操作EXCEL表常用命令： 5 I: j& ^( ^ s3 b; x9 k$ q
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
- ~3 `! L" a2 G/ l" E( r( OSet xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件 8 f% F% G% y3 B) a! f
xlApp.Visible = True '设置EXCEL对象可见（或不可见） : u% E# P n& U' M7 ~( W
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表 ! \& b( Z0 N' X0 ^* N" b
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值 # M* Z; p, A0 G: C' _
xlSheet.PrintOut '打印工作表 " t6 r9 P5 C u) R3 v8 p
xlBook.Close (True) '关闭工作簿
3 W5 E: T. P# X- a) w) v# qxlApp.Quit '结束EXCEL对象
$ Y" Z0 b( r0 h) v+ hSet xlApp = Nothing '释放xlApp对象
9 X2 O: D2 g$ w2 t4 X" [) C5 G2 zxlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏
3 n" x# F4 ]* t+ ~% \* ~8 ~' }xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25