按键精灵用VBS命令操控Excel怎么删除行？

Question

下面这段代码删除行那行不对，其他正确，请大侠们指点一下呀
'创建 Excel 对象
Set oExcel = CreateObject("Excel.Application")
‘设置保存不提示
oexcel.DisplayAlerts = false
'打开Excel文件
set objworkbook = oExcel.WorkBooks.Open("d:\1.xls")
'为单元格赋值
oExcel.Cells(2, 2).Value = "第2行第2列"
’删除行
oExcel.ActiveSheet.Rows(2).Delete '这行按键灵里不对
'保存文件
objworkbook.save
'退出工作薄
objworkbook.Close
'退出Excel对像
oExcel.Quit
上面就
’删除行
oExcel.ActiveSheet.Rows(2).Delete
这句不对，请问高手有怎么解决

Answer 1

'删除行
Set oSheet = objworkbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Rows(2)
oSheet.Activate
oSheet2.Delete
完整的方法：
Sub 删除表格指定一行(xls_path,line)
Set Excel = CreateObject("Excel.Application")
Set Workbook = Excel.Workbooks.Open(xls_path)
Set oSheet = Workbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Rows(line)
oSheet.Activate
Excel.DisplayAlerts=FALSE
oSheet2.Delete
Excel.save
Excel.Quit
Set Excel = Nothing
End Sub

Sub 删除表格指定一列(xls_path,col)
Set Excel = CreateObject("Excel.Application")
Set Workbook = Excel.Workbooks.Open(xls_path)
Set oSheet = Workbook.Sheets("Sheet1")
Set oSheet2 = oSheet.Columns(col)
oSheet.Activate
Excel.DisplayAlerts=FALSE
oSheet2.Delete
Excel.save
Excel.Quit
Set Excel = Nothing
End Sub

再或者你用懒人办公插件都可以

Answer 2

不知道嗯嗯嗯哪嗯嗯嗯额e7eg86rhe9t+4hj98+et4