VBS操作Excel实例教程

"这篇文档介绍了如何使用VBS（Visual Basic Script）来操作Excel，包括打开、读取和修改Excel文件的各种方法。文档中提供了一系列示例代码，适用于不同场景下的Excel自动化操作。" 在VBS中操作Excel，首先要创建Excel应用程序对象，这可以通过使用`CreateObject`函数来实现，例如： ```vbs Set oExcel = CreateObject("Excel.Application") ``` 创建对象后，可以设置其属性和执行各种操作。例如，要使Excel窗口可见，可以设置`Visible`属性为`True`： ```vbs oExcel.Visible = True ``` 若需打开一个特定的Excel文件，可以使用`Workbooks.Open`方法： ```vbs Set oWb = oExcel.Workbooks.Open("文件路径") ``` 获取单元格的值，例如B2单元格，可以这样写： ```vbs MsgBox oSheet.Range("B2").Value ``` 在XP系统下，如果需要通过文件对话框让用户选择Excel文件，可以使用`UserAccounts.CommonDialog`对象： ```vbs Dim objFileDlg Set objFileDlg = CreateObject("UserAccounts.CommonDialog") objFileDlg.Filter = "Excel文件(*.xls)|*.xls" If objFileDlg.ShowOpen Then MsgBox "您选择的文件是：" & objFileDlg.FileName & vbCrLf End If ``` 控制Excel的其他常见方法还包括： 1. 添加新工作簿： ```vbs oExcel.WorkBooks.Add ``` 2. 打开已存在工作簿： ```vbs oExcel.WorkBooks.Open("文件路径") ``` 3. 切换活动工作表： ```vbs oExcel.WorkSheets(2).Activate '按索引切换 oExcel.Worksheets("Sheet2").Activate '按名称切换 ``` 4. 给单元格赋值： ```vbs oExcel.Cells(1, 4).Value = "第一行第四列" ``` 5. 设置列宽（以字符数计）： ```vbs oExcel.ActiveSheet.Columns(1).ColumnWidth = 5 ``` 6. 设置行高（以磅计）： ```vbs oExcel.ActiveSheet.Rows(2).RowHeight = 15 '假设设置第二行高度为15磅 ``` 7. 保存工作簿： ```vbs oWb.Save ``` 8. 关闭工作簿并退出Excel应用： ```vbs oWb.Close SaveChanges:=False '不保存变更 oExcel.Quit ``` 以上是VBS操作Excel的基本技巧，这些方法能够帮助开发者实现Excel文件的读取、编辑和自动化处理。在实际应用中，可以根据具体需求组合使用这些方法，以实现更复杂的Excel操作逻辑。