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以上的版本会好一点