• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

In excel een wordbestand creeren en een naam geven uit een cel

Status
Niet open voor verdere reacties.

Thijsie88

Gebruiker
Lid geworden
2 jan 2016
Berichten
5
Hoi,
Ik heb een stuk vba dat super werkt.
Ik maak vanuit excel via een sjabloon in word een kloppend bestand. Nu wil ik graag bij het creeren van het wordbestand gelijk vanuit excel het wordbestand een naam geven uit 1 cel (C14) van sheet blad1.
Nu word het wordbestand standaard document1 genaamd.

Is dit ook te doen in het onderstaand stukje vba?


Code:
Sub Offerte()
    Dim iReply As Integer
    iReply = MsgBox(Prompt:="Weet je het zeker?", Buttons:=vbYesNo, Title:="Creëer offerte")
    
    If iReply = vbYes Then
    Data2Word
    Else
    End If
End Sub
Sub Data2Word()
    Dim WDApp               As Object 'a new instance of Word
    Dim WDDoc               As Object 'new Quote.doc
    Dim myWordFile          As String 'path to Word template
    
On Error GoTo errorHandler

        myWordFile = Range("Template").Text

    Set WDApp = CreateObject("Word.Application")
    Set WDDoc = WDApp.Documents.Add(Template:=myWordFile)
    WDApp.Visible = True
    WDDoc.ActiveWindow.WindowState = wdWindowStateMaximize
     
    Set nms = ActiveWorkbook.Names
    Set wks = Worksheets("Offerte Print")
    wks.Activate
    For r = 1 To nms.Count
    DoEvents
    If InStr(1, nms(r).Name, "!") > 0 Then GoTo 1
    If InStr(1, nms(r).Name, "Template") > 0 Then GoTo 2
        wks.Cells(r, 2).Value = nms(r).Name
        wks.Cells(r, 3).Value = nms(r).RefersToRange.Address
        If Range(wks.Cells(r, 2).Value).Text = Empty Then GoTo 3
    Range(wks.Cells(r, 2).Value).Select

hier na nog een heel stuk vba..
 
Die code verdient allerminst een schoonheidsprijs.
 
Hoi,
met zoiets?
Code:
Dim NewFileName As String
DocName = Range("C14").Value
NewFileName = DocName & ".docx"
Groet
 
Hoi,
Ja zoiets, alleen pakt hij niet de goeie sheet..
de Sheet heet "klant" en de cel is (G4).

Tussen welke regels of waar in de bovenstaande vba is dit te plakken?

Groeten
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan