|
|
我用CAD VBA做了一个窗体，现在我想实现以下功能：
5 H5 Q8 s* Q x4 O, X' `点击按钮commandbutton1时，textbox1中显示我的EXCEL(文件是D:\abc.xls)中sheet1中A1单元格的数值。哪位大侠可以帮我写段代码啊？急切盼望中。。。 , x- d" {( k# w$ Z/ F
: [& D0 L" c# w3 W. P; n& {; }# X7 f; A. \4 `3 N' E
vb和VBA不太一样; U( ?. r, ~* \1 q5 y" T
- W3 ?5 k! U* P+ C4 ^
7 k7 X$ D5 d5 S% _. }$ G$ F- d以下是查到VB调用EXCEL的资料：
: u" A0 F& G& x" \在通用对象的声明过程中定义EXCEL对象：
% Q2 \0 @( P* m$ m' aDim xlApp As Excel.Application 1 R! l& \. g; E& X
Dim xlBook As Excel.WorkBook
7 z' l- G. H. i' d& F$ DDim xlSheet As Excel.Worksheet 8 ]# h z7 q% n& g
在程序中操作EXCEL表常用命令：
( ?, F {; }1 {/ sSet xlApp = CreateObject("Excel.Application") '创建EXCEL对象 : q. f- m% B1 I+ F. x
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
8 m" l% E- D) b, `xlApp.Visible = True '设置EXCEL对象可见（或不可见） ! I: L0 P" B1 [5 O. m6 [! B5 S
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
9 H1 m2 n% L/ _xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
: d3 _, U1 a7 IxlSheet.PrintOut '打印工作表 " ~: m! M/ I& ~. r
xlBook.Close (True) '关闭工作簿 ! p" f9 o( k! Z w5 H. \2 J
xlApp.Quit '结束EXCEL对象
: W8 |. A# ]. j, r, m5 O$ }: oSet xlApp = Nothing '释放xlApp对象
- ^- P* Q1 D. x! Q2 DxlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 * W/ s2 q+ g, ]5 |; u) K' v/ H: }
xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏 |
|
发表于 2008-11-28 20:25