Мне нужно найти способ удалить строку в электронной таблице, используя VBScript

Question

Hello Fellow data warriors - мне нужно найти способ удалить строку в электронной таблице, используя VBScript.

Строка, которую я хочу удалить, находится в электронной таблице, содержащей результаты мягкого запроса сотрудников о данных сотрудников.У меня есть подпрограмма для загрузки данных eployee в таблицу базы данных SQL Server.Проблема в том, что в первой строке таблицы есть счетчик записей, который отбрасывает мою автоматическую загрузку.Я хотел бы найти скрипт, который я мог бы использовать для автоматического открытия электронной таблицы Excel, удаления строки, содержащей количество записей, и затем сохранения файла.Я работаю в среде Windows.

Спасибо за любую помощь в моей битве!

Answer 1

Использовать скрипт ниже, используя компонент Activex в пакете dts

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open("E:\Deepak\Test.xls")

i = 1

Do Until objExcel.Cells(2, 1).Value = ""

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

   objRange.Delete

Loop

objExcel.ActiveWorkbook.Save

objExcel.ActiveWorkbook.Close

Answer 2

ExcelBook.Worksheets(1).Rows("1:1").Delete

Answer 3

Для удаления строки из электронной таблицы это примерно так

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

Answer 4

Используйте библиотеки взаимодействия .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, когда закончите с ними.В противном случае они останутся в памяти.Хотя вы можете убить их из диспетчера задач, большую часть времени вы