11. oktober 2007 - 09:51Der er
11 kommentarer og 1 løsning
hente range fra lukket excel ark
Jeg skal hente et range i et lukket excel ark. Ranget starter i A7, men jeg ved ikke hvor mange rækker der er. Dette range skal kopieres over i et åbent excel ark, hvordan gør jeg det?? Jeg har prøvet med
Dim hentFra As Excel.Application Dim fso As Object StiNavn = "C:\xls_1"
Set fso = CreateObject("Scripting.FileSystemObject") With fso If .FileExists(StiNavn) = True Then Set hentFra = CreateObject("Excel.Application") hentFra.Workbooks.Open StiNavn
Set hentværdiRng = hentFra.Sheets(ArkNavn).Cells(7,1).CurrentRegion hentværdiRng = rngværdi.Offset(1).Resize(rng.Rows.Count - 1) ThisWorkbook.Sheets(ArkNavn).Range("A7").Value = hentværdiRng hentFra.Quit Set hentFra = Nothing end if End With Set fso = Nothing
Kommunerne har digitaliseret indgangen for borgerne. Men bag skærmen håndteres mange arbejdsgange stadig manuelt mellem systemer, mails og organisatoriske siloer.
Public Sub hent() Dim hentFra As Excel.Application Dim fso As Object Dim ArkNavn As String ArkNavn = "Ark1" StiNavn = "C:\test\Data.xls"
Set fso = CreateObject("Scripting.FileSystemObject") With fso If .FileExists(StiNavn) = True Then Set hentFra = CreateObject("Excel.Application") hentFra.Workbooks.Open StiNavn
hentværdiRng = hentFra.Sheets(ArkNavn).Cells(7, 1).CurrentRegion ThisWorkbook.Sheets(ArkNavn).Range("A7").Resize(UBound(hentværdiRng, 1), UBound(hentværdiRng, 2)) = hentværdiRng hentFra.Quit Set hentFra = Nothing End If End With Set fso = Nothing End Sub
jeg kan godt få det til at virke, jeg har bare et enkelt spørgsmål koden der vælger området: hentværdiRng = hentFra.Sheets(ArkNavn).Cells(7, 1).CurrentRegion, hvordan får jeg den til at tage området der hedder: minus den første række og ned til den sidste række med oplysninger i (en slags End(xlDown))?
Ret det sidste 1 tal til det kolonne nummer som der er data i længst til højre. hentværdiRng = hentFra.Sheets(ArkNavn).Range(Cells(7, 1), Cells(Range("A65536").End(xlUp).Row, 1))
jeg kan ikke få det til at virke, den kommer op med en Run-time error '1004' "Application-defined or objedt defined error" Kan det være fordi jeg ikke har dim'et hentværdiRng? den kunne nemlig godt finde ud af det med den første du gav mig: hentværdiRng = hentFra.Sheets(ArkNavn).Cells(7, 1).CurrentRegion
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.
