formular i word dokument der indrager excel

Det lyder ikke umiddelbart som noget du kan løse i en formular i Word.

Excel har en funktion til håndtering af opgaven - LOPSLAG()

jep - selvfølgeligt kan detlade sig gøre *S*

Du skal bare kunne programmere...

1 .Opret et Word dokument med et fomularfelt (rulleliste)

2. Lav en indgangsmakro til feltet, der henter alle kunderne fra din liste i Excel.

3. Lav en udgangsmakro, der finder den på listen valgte kunde i Excel og henter de andre kundedata (som sikkert står på samme række) ind i andre formularfelter (som du også har i Word dokumentet.

Jeg har prøvet ovenstående men uden held, er der en anden der kan forklare det??

Skriv din email her, så sender jeg et eksempel.

Her er et forslag til kode:

Opret et regneark med kundedata.
Skriv kundens navn i kolonne 1 og adressen i kolonne 2
Kald regnearket "Kunder"

Åben Word
Indsæt et formularfelt
Indsæt derefter et formularfelt af typen Rulleliste med bogmærket "Kunder"
Indsæt derefter et formularfelt af typen Tekst med bogmærket "Adresse"

Åben Words visual basic editor (Tryk Alt+F11)
Indsæt et modul

Kopier nedenstående kode ind i modulet:

Sub FyldRulleliste()
Dim ExcelObj As Excel.Application

Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks.Open FileName:= "C:\Kunder.xls"
       
WorkBookNavn = ExcelObj.ActiveWorkbook.Name

ActiveDocument.FormFields("Kunder").DropDown.ListEntries.Clear

n = 2
Do
    Kunde = ExcelObj.Cells(n, 1).Text
    ActiveDocument.FormFields("Kunder").DropDown.ListEntries.Add Name:=Kunde
    n = n + 1
Loop Until ExcelObj.Cells(n, 1).Text = ""

ExcelObj.Workbooks(WorkBookNavn).Close SaveChanges:=False

End Sub
Sub HentAdresse()

Dim ExcelObj As Excel.Application

Set ExcelObj = GetObject(, "Excel.Application")

ExcelObj.Workbooks.Open FileName:="C:Kunder.xls"

WorkBookNavn = ExcelObj.ActiveWorkbook.Name

Kunde = ActiveDocument.FormFields("Kunder").Result

n = 2
Do
    If Kunde = ExcelObj.Cells(n, 1).Text Then
        ActiveDocument.FormFields("Adresse").Result = ExcelObj.Cells(n, 2).Text
        Exit Do
    Else
        n = n + 1
    End If
Loop Until ExcelObj.Cells(n, 1).Text = ""

End Sub

Vælg Tools/references og sæt en referance til Excels object library

På rullelisten sætter du nu makroen "FyldRulleliste" som indgang og makroen "HentAdresse" som udgang.

Beskyt nu dit dokument og brug tabulatortasterne til at hoppe mellem formualrfelterne

Held og lykke *S*

Hej RVM
bo_olsenprivat@hotmail.com
Jeg har allerede en excel kundeliste som gerne skulle bruges.. Kan det lade sig gøre ?

Selvfølgelig *S*

Sender nu mit eksempel til dig. Du skal bare huske at ændre stivejen til excelfilen i koden. Min kode er forøvrigt bare et udkast - der mangler f.eks. fejlhåndtering *S*

Ser rigtigt ud, er det jeg ønsker men hvordan arbejder de sammen.... hvad mener du med at jeg skal ændre stivejen i koden ?

Hvis du har din Excelfil liggende i "C:\" så behøver du ikke at ændre stivejen.

De arbejder sammen på den måde at indgangsmakroen fylde rullelisten op med det der står i 1. kolonne i Excelfilen. Udgangsmakroen finder den række i kolonne 1 i Excefilen, hvor den valgte kunde (på rullelisten) står og skriver adressen der står i kolonne 2 i det næste fomularfelt i Word.

Fik du svar på dit spørgsmål?