Vervolg Excel Document Copy naar een Word document

Status
Niet open voor verdere reacties.
D

DutchOirs

Gebruiker
Lid geworden
30 sep 2009
Berichten
720
Goedenavond allen,

Weer een vervolg van vorige vraag betreffen een variabele overbrengen van een excel document naar een word document.

Ben in vorige vraag eruit hoe men een variabele overbrengt onder Excel-Word 2003.
Ook een array overbrengen is gelukt.
Nu zou ik graag iets wat ik gekopieerd heb in Excel, plakken in een bestaande (geopende) Word document.

Heb het volgende gedaan onder Excel VBA:
Code: 
  Application.ScreenUpdating = False                                ' tegen flikkeren van beeldscherm
  Run KasboekKolom()                                            ' leest de kolommen v-d maand in
  Worksheets("Kasboek").Visible = 1
  ActiveWorkbook.Worksheets("Kasboek").Activate                  ' wb "PrintXDoc" geactiveert om Document te printen
      
   With Worksheets("Kasboek")
     .Range(KBK1 & 46 & ":" & KBK6 & 81).Select:
     Selection.Copy                                                ' kopieert deze maand Kasboek
   End With     

   Set Word = CreateObject("word.basic")           ' Set Word
      Word.fileopen WrdBestand                        ' opent een Word document met het Path & Naam file & extensie
      Word.appshow                                    ' toont het document
          
      With GetObject(WrdBestand)                      ' Update variabelen van Excel --> Word doc.
 
      With GetObject(WrdBestand)                                                    ' Update variabelen van Excel --> Word doc.
        WrdBestand.Activate
 '        .PasteSpecial
 '        .PasteSpecial xlValues
     '   .Selection.Paste                                                 
      End With

Dit werkt dus niet.
Ben er niet achter wat ik precies moet neerzetten om het gekopieerde in Excel neer wordt gezet in het geopende Word document.

Heeft iemand hier een idee over?

Vr. Gr.

Dutch
 
Laatst bewerkt:
Goedemorgen allen,

Ben weer een stap verder, bij deze:

Code: 
  Dim objWord As Word.Application, sPath As String, sWrdName As String, WrdBestand As String

      Application.ScreenUpdating = False                      
      Run KasboekKolom()
      Worksheets("Kasboek").Visible = 1
      ActiveWorkbook.Worksheets("Kasboek").Activate                 
      With Worksheets("Kasboek")
        .Range(KBK1 & 46 & ":" & KBK6 & 81).Select:
        Selection.Copy ' kopieert deze maand Kasboek
      End With
      
Set objWord = CreateObject("word.application")  
      objWord.Application.ScreenUpdating = False
      objWord.Documents.Open WrdBestand
      objWord.Selection.Paste
      objWord.Documents.Save
      objWord.Documents.Close
      Word.Application.Quit

Dit werkt :)

Maar aan het eind v/h jaar moet dit document opgeschoond worden, maar hoe?
Heb het volgende wat (nog) niet werkt:

Code: 
      Set objWord = CreateObject("word.application")             
      objWord.Application.ScreenUpdating = False
      objWord.Documents.Open WrdBestand                    
      objWord.ActiveDocument.SelectAllEditableRanges
      objWord.ActiveDocument.Select
      objWord.Selection.Delete
  
  '    ActiveDocument.Content.Select
  '    objWord.Documents.Open WrdBestand.SelectAll
  '    objWord.Documents.Content.Select

Iemand een idee hierover?

Already many thanks.

Vr. Gr.

Dutch
 
Weer een stap verder.
Het werkt maar Word blijft in het geheugen hangen van de pc


Code: 
  Dim objWord As Word.Application, sPath As String, sWrdName As String, WrdBestand As String, wrdTabel As Table

      Set objWord = CreateObject("word.application")      
      objWord.Application.ScreenUpdating = False
      objWord.Documents.Open WrdBestand                           
      For Each wrdTabel In objWord.ActiveDocument.Tables               
        wrdTabel.Delete
      Next
      objWord.Documents.Save
      objWord.Documents.Close
      Word.Application.Quit

Gr.

Dutch

ps. oplossing gevonden:
Code: 
      objWord.Documents.Close
      objWord.Application.Quit 0
      Set objWord = Nothing
 
Laatst bewerkt:
@Dutch

Met deze slechte code (Word.Basic, Select, Activate) breng je onervaren VBA gebruikers op verkeerde gedachten.

Plaats die svp niet hier in het forum.

Welk VBA-boek gebruik jij ?
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan