Уверете се, че ясно линия изтриване синтаксис на командите с командата за изтриване. От реда, който съдържа активната клетка, отборът ще изглежда като ActiveCell.EntireRow.Delete, както и необходимостта да се отстранят определен брой линии ще го промени към редове ( "nomer_pervoy_stroki. Nomer_posledney_stroki"). Изтриване (за Excel).
Използвайте командата изтриване синтаксис, подобен на избрания ред в VBA, но с разширени настройки. За да направите това, на първо място, се определят необходимите действия: Private Sub Изтриване stroki_Click Посочете Дим EA Като Excel.Application желаното приложение () и изберете желаната книга Дим EWB Както Excel.Workbook .. След това, уточни страницата, за да бъде редактиран документ Дим EWS Както Excel.Worksheet.
Прескачане на един ред и въведете Set XLAp = CreateObject (Class: = "Excel.Application"). Посочете точното разположение на следния ред: Задайте XLWb = XLAp.Workbooks. Open. ( "DRIVE_NAME: 1.xls") Използвайте следното значение: Задайте XLWs = XLWb.ActiveSheet.
Минете друга линия и въведете избраната задача: XLWs.Rows (1). редактиране Delete.Sohranite документ: XLWb.Save. Изключете отворено приложение: XLAp.Quit.
Минете на следния ред и да се замени променливи към обекти в паметта: Задайте XLWs = Nothing.Povtorite същата команда за всеки отворен променлива: Set XLWb = Nothingi накрая последната: Задайте XLAp = Nothing.Zavershite въвеждането екип от стандартната End Sub.
Свързани статии