（3）获取WorkBook的数量：
|
'创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application") '设置为可见模式 excelApp.Visible = true '打开WorkBook excelapp.Workbooks.Open "d:\1.xls" '获取WorkBook的数量 MsgBox excelapp.Workbooks.Count '释放Excel对象 Set excelApp = nothing |
执行结果：
此脚本中的Count方法主要是获取WorkBook的数量，脚本执行过程；先打开对应路径的Excel后，获取对应的工作簿数量。这里需要注意的是，工作簿数量其实就是当前打开的Excel数量，相当于进程中的xls数量，也请读者不要搞混了。
2．WorkSheet操作。
（1）新增Sheet：
|
'创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application") '设置为可见模式 excelApp.Visible = true '打开WorkBook excelapp.Workbooks.Open "d:\1.xls" '为1.xls新增一个Sheet Set oSheet = excelapp.Sheets.Add '重命名Sheet为"helloworld" oSheet.name = "helloworld" '释放Excel对象 Set excelApp = nothing |
执行结果：
新增了一个名为“helloworld”的Sheet，运行完毕之后可以看到，当前的WorkBook一共有4个Sheet，其中一个就是刚才新建的名为“helloworld”的Sheet，其余3个Sheet是Excel默认存在的，这样最终结果是，自动生成了一个包含4个Sheet的WorkBook。
（2）获取Sheet对象并操作单元格：
|
'创建Excel自动化模型对象 Set excelApp = CreateObject("excel.application") '设置为可见模式 excelApp.Visible = true '打开WorkBook excelapp.Workbooks.Open "d:\1.xls" '为1.xls新增一个Sheet Set oSheet = excelapp.Sheets.Item(1) '重命名Sheet为"helloworld" oSheet.name = "helloworld" '为第一行第一列单元格赋值"QuickTest" oSheet.cells(1,1) = "QuickTest" '保存当前WorkBook excelApp.ActiveWorkbook.Save '释放Excel对象 Set excelApp = nothing |
执行结果：
还是一样打开1.xls文件之后，获取第一个Sheet对象，并对其第一行第一列的单元格进行赋值，并在最后进行WorkBook的保存操作，最终释放所有对象。
