Dim xx As New Microsoft.Office.Interop.Excel.Application '定义进程
Dim yy As Microsoft.Office.Interop.Excel.Workbook '定义工作簿
xx = CreateObject("Excel.Application") '创建Excel对象
yy = xx.Workbooks("sheet1")
yy.Worksheets("sheet1").range("A1")="sheet2!b2"
yy.Save()
yy.Close()
yy = Nothing
xx.Quit()
xx = Nothing '销毁组建释放资源
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024