作者：乔山办公网日期：
返回目录：excel表格制作
On error resume next
'读取excel数据
'创建来excel对象
Set oe=CreateObject("excel.application")
'excel可见模式
'oe.Visible=true
'打开资源并将内源容复制到百新工作簿中后关闭源文档度
Set oss=oe.workbooks.open(testpath & filename & ".xls")
Set os=oe.Workbooks.Add
oss.Worksheets(1).cells.copy
os.Worksheets(1).range("a1").PasteSpecial
oss.Worksheets(1).range("a1").copy
oss.Close
Set oss=nothing
这段代码是创建一知个新的道excel并将制定excel文档的内容复制到新excel中。 其中Set os=oe.Workbooks.Add就是创建新的excel文档