删除特定Excel工作表上的行X到Y.

Question

我正在编写一个VBScript，用于打开Excel文件，从特定工作表中删除行X到Y，然后保存并关闭文件。打开和关闭部分我已经失败但是删除部分是我正在努力的。 X和Y已修复，例如第6行到第10行。

Set objExcel=CreateObject("Excel.Application")

objExcel.Visible = True

Set wb = objExcel.Workbooks.open("FILE_ADDRESS")

Set ws = wb.Sheets(1)

ws.Rows(2).Delete

wb.Save
wb.Close

objExcel.Quit

Answer 1

使用：

ws.Rows("6:10").EntireRow.Delete

您还可以将6和10定义为变量，然后使用

ws.Rows(x & ":" & y).EntireRow.Delete

编辑：

如果这不起作用，请尝试：

wb.Sheets("sheet name").Range("A" & x & ":A" & y).EntireRow.Delete