vbs剪切Excel某一行

set oExcel = CreateObject( "Excel.Application" )  '创建oExcel对象
oExcel.Visible = false
'4) 打开已存在的工作簿：
oExcel.WorkBooks.Open( "C:UsersDesktop123.xlsx" )
'5) 设置第1个工作表为活动工作表：
oExcel.WorkSheets(1).Activate
oExcel.ActiveSheet.Range("A1:D1").Cut   '设置剪切范围A1到D1
oExcel.ActiveSheet.Range("A300:D300").Insert   '设置剪切到目标行
oExcel.Quit