Springen naar inhoud


- - - - -

Word Bestand Openen En Daarna Opslaan Als


  • Log in a.u.b. om te beantwoorden
Geen reacties in dit onderwerp

#1 domkotsky

domkotsky

    Junior Developer

  • Leden
  • PipPip
  • 62 berichten
    Laatst bezocht 10 aug 2021 14:42

Geplaatst op 23 juni 2021 - 09:44

Beste,

Ik probeer in excel een 'word' bestand te openen en daarna opslaan als  maar ik krijg telkens een foutmelding  'fout 424 tijdens uitvoering, Object vereist'
Bestand openen werkt prima, naam gaat ook prima, alleen opslaan niet.
Mijn kennis van VBA houd hier op, wat zou ik kunnen verbeteren?
Alvast bedankt



Visual Basic Code:
Sub OpenNCform()

	Dim objWord
	Dim objDoc

	Dim rijmummer As Integer
	Dim datum As Date
	Dim unit
	Dim charge
	Dim omschrijving

	 rijnummer = ActiveCell.Row
	 ncnummer = Range("D" & rijnummer & "").Value
	 datum = Range("E" & rijnummer & "").Value
	 unit = Range("F" & rijnummer & "").Value
	 omschrijving = Range("G" & rijnummer & "").Value
	 charge = Range("H" & rijnummer & "").Value

	Set objWord = CreateObject("Word.Application")
	Set objDoc = objWord.Documents.Open("c:\Operations Formulier.docx")

	objWord.Visible = True

	Activedocument.SaveAs2 Filename:="c:\Operations\keten\" & "NC-" & ncnummer & " " & datum & " " & unit & " " & omschrijving & " " & charge & ".docx"


End Sub






0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan Jürgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)