Avatar billede fjeld Praktikant
26. august 2014 - 15:04

Makro virker ikke længere...

Hej alle,

Jeg har tidligere lavet følgende makro, og denne har fungeret perfekt, lige indtil sidste uge, hvor den ikke længere virker. Kort fortalt, så har den sørget for at forbindelse til et Excel ark (brevfletning) altid er der, også selvom man skulle kopiere til en anden destination.

Kan I sige hvad der er gået galt?

Private Sub Document_Open()
Dim Aktuelsti As String, Saldodata As String
   
    Aktuelsti = ActiveDocument.Path

    Saldodata = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "User ID=Admin;" & _
            "Data Source=" & Aktuelsti & "\data.xls;" & _
            "Mode=Read;" & _
            "Extended Properties=""HDR=YES;IMEX=1;"";" & _
                "Jet OLEDB:System database="""";" & _
                "Jet OLEDB:Registry Path="""";" & _
                "Jet OLEDB:Database Passw"
   
    ActiveDocument.MailMerge.OpenDataSource _
        Name:=Aktuelsti & "\data.xls", _
        LinkToSource:=True, _
        Format:=wdOpenFormatAuto, _
        SQLStatement:="SELECT * FROM `Dansk$`", _
        SQLStatement1:="", _
        SubType:=wdMergeSubTypeAccess

   
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Tag et kursus i Word og øg effektiviteten

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester