Brevflet i word fra exceldata uden blanke/tomme poster

Du kan finde den nederste celle der er skrevet i kolonne A med

Sidste = range("A65536").End(xlUp).Row og sætte .LastRecord = Sidste

Ok, men kan du ikke lige prøve, at sætte det ind i min kode og vise, hvordan der peges på en bestemt kolonne, da der er flere kolonner med tekst, men en bestemt kolonne(hvor der skal være tekst), som bestemmer om en række skal med

Hvis det er kolonne B:

Sidste = range("B65536").End(xlUp).Row

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = Sidste
        End With
        .Execute Pause:=False
    End With
End Sub

Jeg har nok ikke forklaret mig rigtigt, men her er hele koden med din tilføjelse sat ind. Jeg fletter inde fra word.


Sub Åbnbrevfletdatabase()

' Åbnbrevfletdatabase Makro
'
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "C:\Kontrolmappe, elektriske maskiner og hjælpemidler\Kontrolmappe elektriske maskiner og hjælpemidler.xls" _
        , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
        AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _
        WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
        Format:=wdOpenFormatAuto, Connection:= _
        "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Kontrolmappe, elektriske maskiner og hjælpemidler\Kontrolmappe elektriske maskiner og hjælpemidler.xls;Mode=Read;Extended Propert" _
        , SQLStatement:="SELECT * FROM `Data$`", SQLStatement1:="", SubType:= _
        wdMergeSubTypeAccess
' Doctype Makro
'
'
    ActiveDocument.MailMerge.MainDocumentType = wdCatalog
'
' Nytdoc Makro
'
'
Sidste = Range("C65536").End(xlUp).Row

    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = 1
            .LastRecord = Sidste
        End With
        .Execute Pause:=False
    End With
End Sub

Fra Word, ja det var noget helt andet!

Hår du fundet ud af noget?

Jeg har ikke haft tid. Word VBA er ikke min stærke side. Hvorfor bruger du i øvrigt Word, og ikke Excel direkte?

Jae, men den excelfil jeg skriver i, bliver der lavet backup af på extern server, men jeg kunne selvfølgelig lave en excelmappe,som gik ind og læste på backupfilen.I øvrigt synes jeg, at det er nemmere og lave en tekstpræsentation i word.

Har løst problemet. Lukker.