Excel til Word og rapportgenerering

Det er der ingen ben i hvis du kan VBA programmering. Jeg kan desværre ikke lave det gratis pga. andre projekter. Vedt tilbage hvis du er interesseret i et godt tilbud.

Så meget for "gratisprincippet".....:-)kun interesseret i lidt hjælp til at komme igang. Resten vil jeg gerne lave selv. :-)
Men tak for tilbuddet!
Mvh

Måske kan du så finde lidt inspiration på en af nedenstående sider:

http://www.cpearson.com/excel/excelM.htm
http://www.exceltip.com/st/Control_Word_from_Excel_using_VBA_in_Microsoft_Excel/465.html
http://www.ozgrid.com/forum/showthread.php?t=14955

Hej Tak for kommentaren,
Er kommet lidt videre....men kan nogen se hvad der er galt i nedenstående kode? Jeg får den fejlmeddelelse sat ind nederst. Excelfil og worddokument ligger i samme mappe.
på forhånd tak

'***********************************************************************************
'              Opretter forbindelse mellem de 2 applikationer
'***********************************************************************************
channelNumber = Application.DDEInitiate(app:="WinWord", _
                topic:=ActiveWorkbook.Path & "C:\Documents and Settings\bruger\Skrivebord\Budget\Rapport.doc")



Filen, du forsøgte at åbne, blev ikke fundet. Mulige årsager til dette kan være, at den mangler, findes på en anden placering, er låst af et andet program eller ikke er tilgængelig på grund af begrænsede filtilladelser. Hvis du er sikker på, at filen findes, men ikke kan finde den ved hjælp af dialogboksen Åbn fil i Word, skal du starte Microsoft Windows Stifinder og foretage en søgning. Hvis søgedialogboksen returnerer en liste med filen, kan du dobbeltklikke på den for at åbne den. Hvis filen ikke åbnes, er den enten beskadiget, låst af et andet program eller beskyttet af filtilladelser.
Der er også en lille mulighed for, at filens filtypenavn ikke længere genkendes af operativsystemets funktion Åbn med. Du skal muligvis nulstille filtypenavnet til det program, filen skal åbnes med. Hvis du vil nulstille filtypenavnet, skal du finde filen ved hjælp af Windows Stifinder, højreklikke på filen og derefter vælge det program, der skal bruges til åbne filen, ved at klikke på Åbn med.
Du kan finde flere oplysninger om denne fejlmeddelelse online.

Ved ikke lige så meget om det her, men det ser ud til at du måske angiver en sti flere gange:

ActiveWorkbook.Path er vel en sti, og det er "C:\Documents and Settings\bruger\Skrivebord\Budget\Rapport.doc" også.

Måske skal du blot skrive

channelNumber = Application.DDEInitiate(app:="WinWord",              topic:=ActiveWorkbook.Path & "Rapport.doc")

Hej sjap,
Tak for forslaget, men det er ikke det. Det var lidt i panik jeg satte den fulde sti ind. Jeg har testet dit forslag....virker ikke.
Kan man checke de flettede formler i word? Hvordan? Åbner godt nok word, men ikke dokumentet.
Mvh

Der manglede vist lige en \ i ovenstående:

channelNumber = Application.DDEInitiate(app:="WinWord", topic:=ActiveWorkbook.Path & \" & "Rapport.doc")

Jeg forstår ikke lige dit spørgsmål. Hvad mener du med at "checke de flettede formler i Word"? Vil du læse de formler du har overført direkte i Word? Eller vil du læse formlerne bag de resultater, du har overført? Det kan man vist ikke, for det er netop kun resultatet af formlen, der er overført - medmindre du også vælger at overføre formlen.

Ja jeg forstår nu heller ikke en brik af det her....Jeg lagde filerne over i en delt mappe på mit netværk, og åbnede og opdaterede wordfilen....bingo det virkede????
Så skulle jeg lige prøve engang mere....og nu kan den ikke igen????
Meget mystisk.
Hvad gør jeg galt?

Må jeg sende den til dig?
Jeg opgiver...
mvh

Har du prøvet med en tom fil?

Hvis det altid virker første gang, men ikke anden, så skyldes det nok at du skriver noget i filen, som du ikke har rettigheder til at ændre på næste gang du åbner filen.

Hvis du bruger Excel 97 og Word 97 (jeg har desværre ikke nyere versioner), kan du godt sende filen til mig, men det her område, er ikke lige min stærke side, og jeg har ikke adgang til et netværk, så jeg vil kun kunne prøve det lokalt.

Hej sjap,
læg venligst et svar, så jeg kan give dig lidt for ulejligheden selvom jeg ikke fik det løst. Jeg prøver vba kategorien istedet, eller finder en anden mulighed for at finde en der kan hjælpe. Er kørt HELT fast.
Men tak for forsøget.

OK. :0)
Det er også ok, hvis du selv snupper point, når du ikke fik løst problemet :0(

:-)

Hej sjap,
Jeg "Ringer" lige en gang mere.....:-) Til din orientering så virker det upåklageligt, når bare rapporten er åben inden opdatering fra regnearket.
Er der ikke en måde at sørge for at åbne dokumentet - det bestemte dokument, inden jeg klikker på opdater?
Mvh.

Nu bliver det min tur til at spørge: "åbne dokumentet" - er det ikke det sætningen

channelNumber = Application.DDEInitiate osv. osv.

gør?

Du kan dog åbne Word, med følgende lille program:

Function OpenWord(docNavn As String)
Dim taskId, Str

Str = "WINWORD.EXE """ & docNavn & """"
taskId = Shell(Str, 0)

End Function

Du kan lave programmet for åbningen af Word lidt anderledes - så kan du også lukke programmet igen - MEN det virker kun hvis du åbner 1(!) Word-dokument. Åbner du flere ad gangen er det kun den sidste, der lukkes igen.

Option Compare Database
Global taskId

Function OpenWord(docNavn As String)
Dim Str

Str = "WINWORD.EXE """ & docNavn & """"
taskId = Shell(Str, 6)

End Function

Function CloseWord()

AppActivate taskId
SendKeys "%{F4}", True

End Function

Laver kun forbindelsen mellem de to programmer, som jeg ser det nu!
Og tak for forslaget...jeg tester lidt senere på dagen.
Mvh