使用vbs读写excel表格数据元素？

使用vbs读写excel表格数据元素？

dim xlApp,xlWorkBook,xlSheet
dim iRowCount,iLoop,numAdd
set xlApp = CreateObject("Excel.Application")
xlApp.Visible = false
set xlWorkBook = xlApp.Workbooks.Open("c:\data.xls")
set xlSheet = xlWorkBook.Sheets("Sheet1")
iRowCount = xlSheet.usedRange.Rows.Count
For iLoop = 2 to iRowCount
numAdd=xlSheet.Cells(iLoop,1)+numAdd
next
xlSheet.Range("e2").value=iLoop
For i=1 to 10
xlSheet.range("d" & i).value=int(rnd*1000)
next
xlApp.cells(9,9)=995
xlWorkBook.Save
xlWorkBook.Close
xlApp.Quit
set xlSheet = Nothing
set xlWorkBook = Nothing
set xlApp = Nothing

msgbox(numAdd)

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！