vbs剪切Excel某一行

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

 

posted @ 2017-08-24 13:24  LLSix  阅读(244)  评论(0编辑  收藏  举报