Asigurați-vă că sintaxa comenzii de ștergere este clară utilizând comanda Ștergere. Deoarece rândul care conține celula activă, echipa va arata ca ActiveCell.EntireRow.Delete, și necesitatea de a elimina un anumit număr de linii se va schimba la rânduri ( „nomer_pervoy_stroki. Nomer_posledney_stroki“). Delete (pentru Excel).
Utilizați aceeași sintaxă pentru comanda de a șterge rândul selectat și în VBA, dar cu opțiuni avansate. Pentru a face acest lucru, în primul rând, să definească măsurile necesare: Private Sub Ștergerea stroki_Click Se specifică ea Dim Ca Excel.Application dorită de aplicare () și selectați registrul de lucru EWB Dim dorit Ca Excel.Workbook .. Apoi, specificați pagina de editat documente Dim EWS Ca Excel.Worksheet.
Treceți peste o linie și introduceți Set XLAp = CreateObject (Class: = "Excel.Application"). Specificați locația exactă pe următoarea linie: Setați XLWb = XLAp.Workbooks. Deschideți ("drive_name: 1.xls"). Utilizați următoarea valoare: Set XLWs = XLWb.ActiveSheet.
Treceți la o altă linie și introduceți valoarea lucrării selectate: XLWs.Rows (1). Ștergeți editarea documentului: XLWb.Save. Închideți aplicația software: XLAp.Quit.
Se trece următoarea linie și înlocuiți variabilele la obiecte în memorie: Set XLWs = Nothing.Povtorite aceeași comandă pentru fiecare variabilă deschisă: Set XLWb = Nothingi în cele din urmă ultimul: Set XLAp = Nothing.Zavershite introducerea echipa de standard End Sub.
Articole similare
Trimiteți-le prietenilor: