请问如何利用vb控件提取Excel里的属性?急~~~~~~~~~~~~~~~

a_cheng 2009-11-03

展开全文

悬赏分：50 - 解决时间：2009-4-27 12:59

我做的是Excel的自动阅卷系统，用vb或者vba，但是本人编程太差，希望有人能够接我困难，感激不尽

提问者： whomphy - 初入江湖四级

最佳答案

easy
添加引用   mircosoft excel （版本号）
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
CommonDialog1.InitDir = "桌面\"
CommonDialog1.Filter = "EXCEL工作表(*.xls)|*.xls"
CommonDialog1.ShowOpen
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(CommonDialog1.FileName)
xlBook.Sheets(1).Cells(1, 1).Value = 'aaa'
//这个是赋值
如果要获取属性的话，可以
定义变量取属性
xx = xlBook.Sheets(1).Cells(1, 1).Font.size
所以，如果你想知道某一个属性
就在excel里面录制一个宏，这样就可以看到对应是对象了
然后在取数字
关闭excel
xlApp.ActiveWorkbook.Close
xlApp.Quit
提醒：个别电脑会出现关闭excel后，系统进程里面依然会出现excel。exe
解决方法不明
建议使用excel2002以上的版本会好一点