在VBS或VBA中读写EXCEL文件，只需要在代码中添加下面的语句即可实现：

Dim App, Book, Sheet

Set App = CreateObject("excel.application") '创建excel进程，VBS中为：Set App = Wscript.CreateObject("excel.application")

Set Book = App.workbooks.Open("D:\Users\123.xlsx") '打开指定路径的文件

Set Sheet = Book.Sheets("Sheet1") '设置活动的工作表

Dim Data

Data = sheet.cells(3,5) '读取第3行第5列单元格中的数据

Sheet.cells(6,9)=77 '向第6行第9列单元格中写入数据

Book.Close (True) '保存并关闭excel文件，如果参数为False则不保存文件

App.Quit '结束app进程

Set App = Nothing '释放app对象