|
  
- UID
- 7
- 帖子
- 218
- 精华
- 0
- 积分
- 4001
- 威望
- 1244
- 体力
- 1161
- 性别
- 男
 
|
首先在VB中引用microsoft excel object library
假设c盘根目录下有个1.xls的文件
Private Sub Form_Load()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\1.xls")
Set xlSheet = xlBook.Worksheets(1)'引用第1张工作表
剩下的就和用VBA一样了，通过excel的各种对象来取得值或者完成某个功能。
或者：
先引用对应的库,再使用com访问技术访问即可 |
|
发表于 2008-11-12 16:05
|