查人人中国名人网厦门大学青年旅舍:Access数据库中插入的Excel工作表怎样在VB6中加载
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 06:40:05
数据库中有一个字段是OLE容器，我添加了Excel工作表。
现在问题是在VB6中怎样将这个Excel工作表读出，并编辑后导出到.xls文件
此外，如果能提供打开外部Excel文件并编辑的VB代码，在下将感激不尽！！
请注意，是Access中添加的作为一个字段值的Excel工作表需要导出和编辑，而不是本地文件。
现在问题是在VB6中怎样将这个Excel工作表读出，并编辑后导出到.xls文件
此外，如果能提供打开外部Excel文件并编辑的VB代码，在下将感激不尽！！
请注意，是Access中添加的作为一个字段值的Excel工作表需要导出和编辑，而不是本地文件。
Dim objApp As New Excel.Application 'Excel 应用程序对象
Dim objWB As New Excel.Workbook 'Excel 工作簿对象
Dim objWS As New Excel.Worksheet 'Excel 工作表对象
'打开Excel模板
Set objApp = CreateObject("Excel.Application")
objApp.Visible = False
Set objWB = objApp.Workbooks.Open(XXX.xls")
Set objWS = objWB.Sheets.Item("Main")
objWS.Activate
'编辑
objWS.Cells(x, y)=yyyyyy
'保存关闭
objWB.SaveAs
objWB.Close
Set objApp = Nothing
Set objWB = Nothing
Set objWS = Nothing
建议参考Visual Basic.NET精彩编程实例集锦
罗斌 等编著
中国水利水电出版社出版的
万水计算机技术实用大全系列
应该有帮助