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
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.