vbs excel 2

' ExcelApp - Workbooks_Workbook - Sheetes_Worksheet - Range_Value / Cells(x,y)_Value

Dim app, wbs, wb, ws, sts, st, path, s
path = "C:\test.xlsx"
' app Excel.Application excel对象，对应excel应用程序
Set app = CreateObject("Excel.Application") 
' wbs Workbooks, Workbook集合
Set wbs = app.Workbooks
' wb Workbook, 一个Workbook就是一个Excel文档
Set wb = wbs.Open(path) 
' sts Sheets, Worksheet集合
Set sts = wb.Sheets
' st Worksheet, 一个Worksheet就是一个工作表
Set st = sts(1) ' sts("Sheet3")
app.DisplayAlerts = false
app.Visible = True
' st.Select
s = st.Range("B1").Value ' get a value
st.Range("C3").Value = "adbc" ' set a value
s = st.Cells(1,2).Value
st.Cells(3,4).Value = "3,d4"
st.Delete ' delete the sheet
wb.Save ' save

sts.Add wb.Sheets(1)
app.ActiveSheet.Name = "new3"
app.Save
app.Quit
Set app = Nothing