'先在工作－引用中添加Excel
'再在模块中定义变量，也可以在窗体里定义
Public exlApp As Excel.Application
Public exlBook As Excel.Workbook, exlSheet As Excel.Worksheet
Set exlApp = New Excel.Application
exlApp.Workbooks.Open ModelFile 'Excel文件路径及文件名，如D:\EX1.xls
'向Excel表中写入数据，Sheets(3)为第3个工作薄，Cells(行号,列号)是单元格
exlApp.Sheets(3).Cells(3, i + 3) = "aa"
'从Excel表中读数据，Sheets(3)为第3个工作薄，Cells(行号,列号)是单元格
'aa是保存Excel表中对应单元格内容的变量
aa=exlApp.Sheets(3).Cells(3, i + 3)
如果还不懂的话，给我邮箱地址，我给你发一个
内容全部来源于网络收集，如有侵权，请联系网站删除!