Macro doesn't work any more


Joined
Aug 26, 2014
Messages
1
Reaction score
0
Hi,

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:="", _
SubType:=wdMergeSubTypeAccess
 
Ad

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. After that, you can post your question and our members will help you out.

Ask a Question

Top