20. december 2004 - 15:29Der er
2 kommentarer og 1 løsning
Gennemløbe Excelfil
Hejsa,
Jeg skal gennemløbe en excel fil både den ene og den anden vej.
Dvs. jeg vil først gennemløbe filen horisontalt og hente alt hvad det står i hver celle i første række ind i mit program (en listbox). Jeg mangler altså while-løkken og hvad jeg refererer til når jeg vil sige:
Private Sub Command1_Click() Set wkbObj = GetObject("C:\Mappe1.xls") Data = wkbObj.Sheets(1).Range("a1").CurrentRegion A = wkbObj.Sheets(1).Range("a1").CurrentRegion.Columns.Count For I = 1 To A List1.AddItem Data(1, I) ' første række Next For I = 1 To UBound(Data) List2.AddItem Data(I, 1) ' første kolonne Next
Jeg mener ikke du kan slette en række i et ark, uden at åbne filen først, og så gemme den igen bagefter.
Synes godt om
Ny brugerNybegynder
Din løsning...
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.
