VBScript读取 Excel 与 写入 Excel

Function  GetCellValue(excelSheet, row, column, path)
         on   error   resume   next
         Set  Wshshell  =   CreateObject ( " Wscript.shell " )
         Set  ExcelApp  =   CreateObject ( " excel.Application " )
        ExcelApp.Visible  =   True
         Set  newBook  =  ExcelApp.Workbooks.Open(path)
         If   Err  =   0   Then
                 Set  excelSheet  =  ExcelApp.ActiveSheet
                GetCellValue  =  excelSheet.Cells(row, column)
                ExcelApp.Quit
                Wshshell.Popup GetCellValue, 2 , " 获取的Excel单元格的值为： " , 0 + 64
          Else
                Wshshell.Popup  " 请确认文件是否已经创建 " , 3 , " 文件不存在 " , 0 + 64
                ExcelApp.Quit
          End   If
End Function
Call  GetCellValue( " excel " , 9 , 9 , " E:/excel.xls " )

写入：
Function  WExcel(row,col,value,path)
         Set  Wshshell  =   Createobject ( " Wscript.shell " )
        Err  =   0
         on   error   resume   next
     Dim  fso,f
     Set  fso  =   CreateObject ( " Scripting.FileSystemObject " )
     Set  f  =  fso.GetFile(path)
            Set  ExcelApp  =   CreateObject ( " Excel.Application " )
        ExcelApp.Visible  =   true
         If   Err  =   0   Then
                 Set  newBook  =  ExcelApp.Workbooks.Open(path)
                newBook.Worksheets( 1 ).Activate
                newBook.Worksheets( 1 ).Cells(row,col).value = value
                newBook.Worksheets( 1 ).Name = " excel "
                newBook.Save
                ExcelApp.Application.quit
                 set  newBook  =   nothing
                 Set  ExcelApp  =   nothing
          Elseif  Err  =   53   Then
                 Set  newBook  =  ExcelApp.Workbooks.Add
                newBook.Worksheets( 1 ).Activate
                newBook.Worksheets( 1 ).Cells(row,col).value = value                 
                newBook.Worksheets( 1 ).Name = " excel "
                newBook.SaveAs path
                ExcelApp.Application.quit
                 set  newBook  =   nothing
                 Set  ExcelApp  =   nothing
          Else
                Wshshell.Popup  " 发生未知错误 " ,  5 ,  " 无法继续 " , 0 + 32         
          End   If
End Function
Call  WExcel( 9 , 9 , " liuyi " , " E:/excel.xls " )