本文共 665 字,大约阅读时间需要 2 分钟。
'VBS对Excel的基本使用
'创建Excel对象, 使用CreateObject()方法 Set oExcelApp = CreateObject("Excel.Application") '显示当前窗口 oExcelApp.Visible = True '更改Excel标题栏 oExcelApp.Caption = "Test Excel" '添加一个新的Excel,并赋值为oExcelXls,方便后面的操作 Set oExcelXls = oExcelApp.Workbooks.Add '如果打开已经存在的Excel, 则使用一下命令 'Set oExcelXls = oExcelApp.Workbooks.Open("d:/test.xls") ' 这里有两个方法 oExcelXls.WorkSheets(2).Activate '或者oExcel.WorksSheets( "Sheet2" ).Activate '给单元格赋值 oExcelXls.Cells(1,2).Value = "第一行第二列" '另存为testbbk.doc '问题:为什么不直接save, 而用saveas呢 oExcelXls.SaveAs "d:/testbbk.xls" msgbox "文件创建成功!" oExcelXls.Close oExcelApp.Quit Set oExcelXls = Nothing Set oExcelApp = Nothing
'还有很多关于Excel的操作, 主要是VBS的方法实现,
转载地址:http://trcci.baihongyu.com/