发布于 2009-10-28 15:57:51
2楼
OLE 打开一个Excel文件
OLE1.CreateEmbed "XLS文件路径"
OLE里插入Excel实际是插入的工作薄对象,操作这个工作簿即可
Dim xlbook
Dim xlsheet
set xlbook=OLE1.Object
set xlsheet=xlbook.Activesheet
xlsheet.Cells(1,1)=123 '第一行第一列写入数据
'xlsheet.Range("A1")=123
xlbook.SaveAs "保存文件名" '保存为Excel文件