VBS操作Excel：读取与设置单元格值

"这篇内容是关于使用VBS（Visual Basic Scripting Edition）操作Excel的示例代码。通过创建Excel应用程序对象，打开或创建工作簿，激活工作表，并对单元格进行读取或设置值，以及调整列宽、行高和页面设置等操作。" 在VBS中与Excel交互是一种常见的自动化任务实现方式，以下将详细解释文中的知识点： 1. 创建Excel对象： `Set oExcel = CreateObject("Excel.Application")` 这一行代码用于在VBS中创建一个Excel应用程序对象，使得我们能够调用Excel的相关方法和属性。 2. 打开工作簿： `Set oWb = oExcel.Workbooks.Open("E:\其他\新装电话表.xls")` 使用`Workbooks.Open`方法打开指定路径的工作簿，这里的工作簿名为“新装电话表.xls”。 3. 选择工作表： `Set oSheet = oWb.Sheets("Sheet1")` 通过`Sheets`集合获取名为“Sheet1”的工作表对象，便于进一步操作。 4. 读取单元格值： `MsgBox oSheet.Range("B2").Value` 显示工作表中B2单元格的值，`MsgBox`函数用于弹出消息框。 5. 打开文件对话框： `Set objFileDlg = CreateObject("UserAccounts.CommonDialog")` 创建一个通用对话框对象，可以用来让用户选择文件。 6. 显示打开文件对话框： `objFileDlg.ShowOpen` 打开文件选择对话框，让用户选取Excel文件。 7. 设置Excel可见性： `oExcel.Visible = True` 使Excel窗口可见，方便用户查看操作过程。 8. 添加新工作簿： `oExcel.WorkBooks.Add` 添加一个新的空白工作簿到当前Excel实例。 9. 打开指定工作簿： `oExcel.WorkBooks.Open("C:\Excel\Demo.xls")` 打开指定路径的“Demo.xls”工作簿。 10. 激活工作表： `oExcel.WorkSheets(2).Activate` 或 `oExcel.Worksheets("Sheet2").Activate` 使第2个工作表（或名为“Sheet2”的工作表）成为活动工作表。 11. 设置单元格值： `oExcel.Cells(1, 4).Value = "һе"` 在当前活动工作表的A1单元格（行列索引从1开始）设置文本“һе”。 12. 调整列宽： `oExcel.ActiveSheet.Columns(1).ColumnsWidth = 5` 设置当前活动工作表的第一列宽度为5字符。 13. 调整行高： `oExcel.ActiveSheet.Rows(2).RowHeight = 1 / 0.035` 设置第二行的高度，这里的单位转换是将英寸转换为点数。 14. 设置页眉页脚： 文档中提到了设置页眉页脚的操作，但实际代码没有给出。通常，这可以通过`PageSetup`对象的属性来完成，如`oExcel.PageSetup.CenterHeader`或`oExcel.PageSetup.Footer`. 15. 设置分页符： `oExcel.WorkSheets(1).Rows(8).PageBreak = 1` 为第1个工作表的第8行插入页眉分页符。 `oExcel.ActiveSheet.Columns(4).PageBreak = 0` 取消当前活动工作表第四列的分页符。 16. 设置边框样式： `oExcel.ActiveSheet.Range("B3:D4").Borders(2).Weight` 为指定范围（B3到D4）的右侧边框设置线型和粗细，这里未给出具体设置值。 以上就是VBS操作Excel的关键步骤，通过这些方法，你可以实现自动化处理Excel数据，读取、修改、分析或生成Excel报告等任务。