Makro som henter data fra Excel over i Word med en dialogboks

1. Indsæt nedenstående makro i et modul i Word
2. I VBA miljøet vælges Tools/references og der sættes flueben/hak i referencen  Microsoft Excel xx object library
3. Opret et bogmærke i Wordfilen, der hedder "Data"
4. Opret en xls fil der ligger på "c:\FraExcel.xls"

Sub IndsætFraExcel()

Dim xlApp As Excel.Application

'Opretter Excelobjektet xlApp
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

'Her indtastes celle
svar = InputBox("Indtast celleref", "A1")

'Excelregnearket med åbnes
xlApp.workbooks.Open FileName:="C:\FraExcel.xls"

'Henter data fra Excel over i bogmærke i Word
ActiveDocument.Bookmarks("Data").Range.Text = xlApp.Range(svar).Value

xlApp.Quit
Set xlApp = Nothing

End Sub

Hey,

Det virker faktisk, super!! Men...

I og med det skal fungere på mellem 50-100 arbejdsstationer, skulle makro´en helst fungere uden jeg skal tilrette/tilføje funktioner som bogmærker.

Vedr. fluebenet i VBA, så håber jeg kan "force" det via group policy, eller dur løsningen ikke. Det vil giver mig alt for meget arbejde.

Kan man lave det på en andre måde eller bedre måde? :)

Forresten er det ikke muligt at hvis man kalder makro, så indsætter den bare cellen fra excel uden at man skal definere et bogmærke?

Mvh
Allan

Så makroen skal altså indsætte data det sted hvor cursoren er placeret?

Udskift nedenstående linie
ActiveDocument.Bookmarks("Data").Range.Text = xlApp.Range(svar).Value

med

selection.typetext xlApp.Range(svar).Value

Hvis det skal være en generel makro, så kan du placere den på et netværksdrev og så ændre alle brugeres opstartsbibliotek til denne placering. Husk at wordfilen så skal være en .dot fil.

Eller du kan kopiere den ud til brugernes nuværende opstartsbibliotek (hvis makroen også skal kunne virke på bærbare). Og måske lave en kopiering via logonscript, så der ikke skal tænkes over det med udkopiering.

Super, nu begynder det at spille :)

En ting til sidst, kan man undgå at Excel åbner i baggrunde eller? Eller evt. bare minimere sig selv?

Når jeg køre makro´en på min bærbar, så bliver Excel åbnet op, og jeg er derfor nød til at lukke den ned i proceslinjen, og tage word frem igen....? :/

Super arbejde indtil videre!!!!

Fjern linien:
xlApp.Visible = True

Super!!!! Kanon!!!

Det virker bare :)

Hmmm... hvorfor kan jeg ikke Accepter dit svar... :/

Du får et nyt svar at forsøge på :-)

prøver lige igen :)