Avatar billede KenneyD71 Nybegynder
28. august 2015 - 15:48 Der er 7 kommentarer og
1 løsning

Træk data fra et bestemt felt i excel

Jeg har på mit skrivebord et word doc og en excel fil rapportA.xls.
I word doc ønsker jeg et tilfældigt sted i dokumentet (når det åbner) at hente værdien i rapportA.xls, Cellenavn "KPI32".

"KPI32" står oftest i sheet1, celle K32
Så alternativ er at hente det fra cellereference r1c1.

Er det muligt at gøre dette uden VBA?
Er det muligt at gøre dette med VBA?

På forhånd tak for hjælpen.
Avatar billede supertekst Ekspert
28. august 2015 - 16:18 #1
Uden: - f.eks. via Brevfletning
Med: - ja
Avatar billede KenneyD71 Nybegynder
28. august 2015 - 17:51 #2
Jeg bliver nok nødt til at omformere.

Uden VBA, hvis ja - hvordan
Med VBA, hvis ja - hvordan.

På forhånd tak.
Avatar billede supertekst Ekspert
28. august 2015 - 18:09 #3
Ved brevfletning (findes i Word) - dokumentet i Word - datakilde i Excel

Vender tilbage vedr. VBA
Avatar billede KenneyD71 Nybegynder
31. august 2015 - 09:28 #4
Tak for bidraget, supertekst.
Men kan ikke lige gennemskue, hvordan at brevfletningsmodulet (det har jeg en smule erfaring med - men ikke meget) skulle transportere data fra en specifik celle. Der er ingen poster som sådan. Ingen definerede kolonner.

Der er ikke tale om en aktiv fletning. Det jeg ønsker er reelt en "kæde-funktion", som vi kender det fra Excel - excel.
Avatar billede supertekst Ekspert
31. august 2015 - 10:15 #5
Så prøv i dokumentet: Indsæt /  Object / Opret fra fil / Udpeg filen via "gennemse" / Kæde til fil
Avatar billede supertekst Ekspert
31. august 2015 - 14:20 #6
Via VBA:

Rem Tilføjet reference: Microsoft Excel 15.0 Object Library
Rem VBA-koden indsættes i dokumentet under ThisDocument (Alt+F11)
Rem VBA-koden eksekveres f.eks. via Alt+F8 - Afspil
Dim xlsFil As Object, xlsVærdi
Public Sub indsætFraExcel()
    sti = ActiveDocument.Path & "\"                    '<-- skrivebordet
    Set xlsFil = CreateObject("Excel.Application")
    xlsFil.Workbooks.Open sti & "rapport.xlsx"          '<-- juster evt.
   
    xlsVærdi = xlsFil.ActiveWorkbook.Sheets(1).Range("K32")
    Selection.TypeText Text:=xlsVærdi
   
    xlsFil.Application.Quit
    Set xlsFil = Nothing
End Sub
Avatar billede KenneyD71 Nybegynder
31. august 2015 - 16:11 #7
Mange tak for hjælpen.!!
Avatar billede supertekst Ekspert
31. august 2015 - 16:45 #8
Selv tak
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester