06. januar 2006 - 10:40Der er
6 kommentarer og 1 løsning
VBA kode til knap i excel
Jeg har lavet en knap i excel der gerne skulle browse og derefter åbne en "txt"-fil. Derefter skal den kopier indholdet i txt-filen for til sidste at "paste values" i et ark der ligger i samme fil som knappen.
Indtil videre har jeg følgende:
Private Sub CommandButton2_Click() Dim FileToOpen As Variant FileToOpen = Application _ .GetOpenFilename("Text Files (*.Txt), *.Txt", , "Vælg Filer", , True) If FileToOpen(1) <> False Then For i = 1 To UBound(FileToOpen) Workbooks.Open FileToOpen(i) Cells.Select Selection.Copy Windows("ABC Gentofte.xls").Activate Sheets("GL").Select Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("A1").Select Application.CutCopyMode = False Calculate Next End If End Sub
Den fungerer indtil Cells.select, også går den i stå. Hvad er der galt?
Jeg har selv haft problemet, menc kan ikke huske præcis, hvordan jeg løste det. Jeg erinder at det var noget med at lade være med at selecte først, men bare sige noget a la:
Her er et svar. Og generelt er det en god ide at undgå select så nmeget som muligt, da det kræver en del ressourcer (og dermed kører langsommere). Næsten alle funktioner kan udføres uden at selecte først.
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.