怎样使用vb创建excel文件

　　测试成功，原码：DimxlappAsExcel.Application'Excel对象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject(\"excel.application\")'第一层Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range(\"a1\")=\"新建成功\"xlbook.SaveAsApp.Path&\"/测试.xls\"xlbook.CloseEndSub