13. januar 2005 - 16:01Der er
3 kommentarer og 1 løsning
Slette række i Excel fra Visual Basic
Hejsa,
Jeg skal slette en række (row) i Excel fra mit VB-program
Hvordan gør jeg?
Har følgende kode:
Set wkbObj = objExcel.Workbooks.Open(txtFile.Text) 'Åbner Excel i baggrunden Data = wkbObj.Sheets(1).Range("a1").CurrentRegion a = wkbObj.Sheets(1).Range("a1").CurrentRegion.Columns.Count
Dim prv As String Dim root As String Dim line As Integer root = Data(1, kol)
For I = 1 To UBound(Data) If Data(I, 2) = prv Then root = root & ", " & Data(I, kol) 'HER SKAL RÆKKEN SLETTES 'DET ER ALTSÅ RÆKKE NR. I
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Jeg ville nok køre løkken baglæns, da det ellers nemt går galt. Da Data er 2-dimensionel skal du i løkken lige fortælle at det er ubound af 1. dimension, den skal bruge
For I = UBound(Data, 1) to 1 If Data(I, 2) = prv Then root = root & ", " & Data(I, kol) Data(I,kol).EntireRow.Delete End If Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
