Gegeven overnemen uit Word naar Excel

[eddy_v]

Hallo,

Is het mogelijk om gegeven automatisch uit word in Excel in te laten voeren?

Voor mijn werk moet ik regelmatig een service bon invoeren.
Daarbij moeten een aantal gegeven zoals bv klant naam en adres worden ingevoerd.
Deze heb ik in een word document.

Kan ik deze op een of andere manier makkelijk in Excel invoeren?

Als bijlage heb ik een word document met daar in een voorbeeld van een leeg gegeven overzicht en een lege service bon in Excel.

Het is dus de bedoeling dat de gegeven uit het word document in het Excel document komt. Gegevens zoals. Naam, Adres, Postcode en Woonplaats

Hoop dat iemand me op weg kan helpen

Bedankt!!!

 

[gast0225]

Geen idee of dat op een eenvoudige manier te realiseren is, (er "lezen" hier Excel deskundigen (mee) rond die dat veel beter weten dan ik) maar heb je al eens overwogen om het Word formulier in Excel te ontwerpen, dán is het een peuleschilletje om de gegevens direct te linken naar dat Excelbestand. Da's slechts het

=

teken invoeren in het Excelbestand op de plek waar de informatie moet komen en terwijl je het = teken hebt getypt, open je dat andere Excel bestand (het nieuwe dus) en klik je éénmaal op de plek waar de data staat die overgenomen moet worden, gevolgd door een Enter en voilá, in je (oude) Excelbestand zijn de overeenkomstige cellen gekoppeld.

 

[eddy_v]

Hallo,

Bedankt voor je reactie.
Maar het word document is een copy die ik maak uit een programma waar in mijn opdrachten aan mijn toegekent worden.

Dus dit is niet iets wat ik zelf heb opgebouwt

 

[gast0225]

Nee oké, maar als het een programma is dan gaat die overneem truuk sowieso niet op neem ik aan?
Maar áls je het kunt overnemen naar Word, is het dan ook niet mogelijk om het over te nemen naar Excel?

 

[trucker10]

Moet dit nadien nog bewerkbaar zijn dat word dokument ?
In excel 2007 kan je dat doen door op het lint " invoegen " te klikken daarna op "Object " en dan je word dokument gaan zoeken selecteren en hups

 

[trucker10]

Een jpeg bijgedaan

Vlug via excel 2003 gekeken en er is geen verschil qua werkwijze enkel invoegen en object staan anders

 

[eddy_v]

Ben nog even bezig geweest met het idee van beide gegeven in Excel te zetten.

Dit kan wel. Het knippen en plakken lukt ook naar Excel

Alleen het over nemen van mijn gegevens lukt niet
Kijk niet de tekst over genomen. Maar krijg de tekst verwijzing te zien

Zie het voorbeeld.

Misschien dat hiermij weer iemand verder kan helpen

Gr Eddy

 

[gast0225]

Geen idee waarom het niet werkte, maar ik heb het weer werkend gekregen. Ik heb even 'aapje' ingevoerd. (Kijk naar de bladen en de celformule) Verander desgewenst 'aapje' op blad 2 naar een andere naam en zie wat op blad 1 gebeurt.

 

[eddy_v]

Je hebt gelijk..

Dat van jou werkt..:thumb:

Maar uhh ja nu nog even er achter komen waarom het bij mij niet werkt

Iemand anders een idee hoe dat komt?

En is het ook mogelijk om in 1 cel de inhoud van 2 cellen te kopieren.

Wil bv de postcode en de woonplaats in een cel hebben.

Dus Blad2!D6 / Blad!D8 .

 

[gast0225]

Helaas weet ik op beide vragen geen antwoord te geven.

 

[eddy_v]

Heb nog even zitten proberen en kijken.

Ben het achter gekomen dat mijn cel op TEKST ingesteld stond
en daarom =blad!2D2 inplaats van de inhoud van de cel D2 op blad2 weer gaf.

Langzaam aan komen we er wel

Nu nog kijken hoe ik de waarde van 2 cellen achter elkaar in 1 cel krijg

 

[trucker10]

Bij mij werkt alles , ik heb het dokument eerst opgeslagen , mijn office cleaner laten werken en hups ik krijg alle cellen gevuld . Wat je eventueel kan doen is een werkende cel kopiëren en dan de gegevens aanpassen bv =Blad2!D6 dat je die dan opmaakt als =Blad2!D7 enz.

Antwoordje op je vraag 2 cellen bij elkaar krijgen A1&B1 stel in A1 staat post in B1 staat code > A1&B1 = dan in cel C1 post code
In U sheet is dat dan

=Blad2!D6&Blad2!D7

 

[snb]

Alternatief zonder knippen en plakken, en zonder hulpblad, maar volledig in VBA

Sub tst()
  sq = Split(GetObject("E:\OF\20-05-2009.doc").tables(2), vbCr & Chr(7))
  For j = 0 To UBound(sq)
    c0 = sq(j)
    Select Case sq(j)
    Case "Datum logging:"
      For jj = 1 To 6
        Cells(6, jj) = Mid(Format(sq(j + 1), "ddmmyy"), jj, 1)
      Next
      j = j + 2
    Case "Model:"
      For jj = 1 To Len(sq(j + 1))
        Cells(4, 20 + jj) = Mid(sq(j + 1), jj, 1)
      Next
       j = j + 2
    Case "Serienummer:"
      For jj = 1 To Len(sq(j + 1))
        Cells(6, 20 + jj) = Mid(sq(j + 1), jj, 1)
      Next
      j = j + 2
    Case "Contractnr:"
      For jj = 1 To Len(sq(j + 1))
        Cells(4, 30 + jj) = Mid(sq(j + 1), jj, 1)
      Next
      j = j + 2
    Case "Contract type:"
      For jj = 1 To Len(sq(j + 1))
        Cells(6, 32 + jj) = Mid(sq(j + 1), jj, 1)
      Next
       j = j + 2
    Case "Contract Einddatum:"
      For jj = 1 To 6
        Cells(6, jj) = Mid(Format(sq(j + 1), "ddmmyy"), jj, 1)
      Next
      j = j + 2
    End Select
  Next
End Sub

 

[eddy_v]

Zo dat zier er erg leuk uit..

Maar uhh hoe laat ik dit uitvoeren?

En waar zet hij wat neer?? Ben niet zo heel erg thuis in VBA

Momenteel heb ik het even op een andere manier opgelost.
Heb de gegevens ivm naar Word in Excel geplakt en daar gegeven uit gehaald.

Loop echt nog tegen een aantal dingen aan.
Had het model en het serie nummer graag zoveel mogelijk rechts staan.
Maar het serie nummer en het model hebben niet altijd een zelfde aantal tekens.

Misschien dat de VBA daar een oplossing voor heeft.

Trouwen voor de datum hem ik ook een hele instruktie moeten verzinnen.

Kijk maar eens in mijn voorbeeld