Macro doesn't work any more

Discussion in 'Word VBA' started by Peter, Aug 26, 2014.

  1. Peter


    Aug 26, 2014
    Likes Received:

    I have made a macro in word which have worked perfectly until last week. It is a macro which ensure that the word document is connected to an excel spreadsheet, regardless of whether the files are copied to another folder in a mail merge.

    Do you know what is wrong with the following macro?

    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:="", _
    Peter, Aug 26, 2014
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.