Scripting 我需要找到一种方法，使用VBScript删除电子表格中的一行

各位数据战士大家好- 我需要找到一种方法，使用VBScript删除电子表格中的一行

我要删除的行位于电子表格中，该电子表格包含员工数据的人员软查询结果。我编写了一个例程，用于将eployee数据加载到SQL Server数据库表中。问题是电子表格的第一行中有一个记录计数，这会使我自动加载。我想找到一个脚本，可以用来自动打开excel电子表格，删除包含记录计数的行，然后保存文件。我在Windows环境中工作

---

谢谢你对我战斗的帮助

要从电子表格中删除该行，请执行以下操作

objRange = objExcel.Cells($i, 1).EntireRow
objRange.Delete

---

使用.NET的互操作库创建excel实例，打开工作簿，并获取一系列要删除的单元格

 Dim excel As Excel.Application
 Dim wkbk As Excel.Workbook
 Dim wksht As Excel.Worksheet

 excel = New Excel.Application
 wkbk = excel.Workbooks.Open("workbookName.xls")
 wksht = wkbk.Worksheets(1)

 wksht.Rows("1:1").Delete()

此外，出于对一切美好事物的热爱，请记住在处理完excel实例后将其删除。否则，他们会留在记忆中。虽然您可以从任务管理器中杀死它们，但大多数情况下，您使用dts包中的Activex组件使用下面的脚本

Set-objExcel=CreateObject（“Excel.Application”）

Set objWorkbook=objExcel.Workbooks.Open（“E:\Deepak\Test.xls”）

i=1

Do-Until-objExcel.Cells（2,1）.Value=”“

循环

objExcel.ActiveWorkbook.Save

---

objExcel.ActiveWorkbook.Close

如果您发布加载例程的代码，那么调整代码以解决数据问题可能会更容易、更快。RIP MGZero“在2011年7月29日编写堆栈溢出问题的答案时死亡”是的，这是真的。我在坟墓里写这封信。

 Dim excel As Excel.Application
 Dim wkbk As Excel.Workbook
 Dim wksht As Excel.Worksheet

 excel = New Excel.Application
 wkbk = excel.Workbooks.Open("workbookName.xls")
 wksht = wkbk.Worksheets(1)

 wksht.Rows("1:1").Delete()

    Set objRange = objExcel.Cells(2, 1).EntireRow

   objRange.Delete