請問如何利用vb控件提取Excel里的屬性?急~~~~~~~~~~~~~~~
 懸賞分：50 - 解決時間：2009-4-27 12:59
我做的是Excel的自動閱卷系統(tǒng),，用vb或者vba，但是本人編程太差,，希望有人能夠接我困難,，感激不盡
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里面錄制一個宏,，這樣就可以看到對應(yīng)是對象了
然后在取數(shù)字
關(guān)閉excel
xlApp.ActiveWorkbook.Close
xlApp.Quit
提醒：個別電腦會出現(xiàn)關(guān)閉excel后，系統(tǒng)進(jìn)程里面依然會出現(xiàn)excel,。exe
解決方法不明
建議使用excel2002以上的版本會好一點
|
