| 关键词: nbsp ExcelSheet ExcelBook ExcelApp nothingset 工作 xls Set Excel test |
vbs创建xls表,并写入内容 2008-11-06 14:12 Set ExcelApp = CreateObject("Excel.Application") '创建EXCEL对象 Set ExcelBook = ExcelApp.Workbooks.Add Set ExcelSheet = ExcelBook.Worksheets(1) '添加工作页ExcelSheet.Activate ExcelApp.DisplayAlerts = False ExcelSheet.Name="sheet1"ExcelSheet.Range("A1").Value = 100 '设置A1的值为100ExcelBook.SaveAs "d:\test.xls" '保存工作表msgbox "d:\test.xls创建成功!"ExcelBook.closeset excelApp=nothingset ExcelBook=nothingset ExcelSheet=nothing |
|
声明:文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|