引用EXCEL9.0
建立应用对象、工作簿对象、工作表对象后,在录制宏(代码老师!),
想做什么就能做什么。
Dim newapp As Excel.Application
Dim newbook As Excel.Workbook
Dim newsheet As Excel.Worksheet
Set newapp = CreateObject("excel.application")
Set newbook = newapp.Workbooks.Add
Set newsheet = newbook.ActiveSheet
newapp.Visible = True
....