Forum AtoutFox : ODBC EXCEL SOUS FOX   

mer. 09 décembre 2015, 12h39
prince
France
atoutfox.public.association

ODBC EXCEL SOUS FOX

bonjour a tous

je me prends la tête avec cette ligne de code, je suis en Windows 7 avec word 2013
je voudrai faire une fusion via excel car odbc fox ne marche plus avec word2013 (pilote isam introuvable)
donc j'utilise ce bout de code mais je galère si quelqu'un peut m'aider, je pense que l'erreur et dans wconn.
attention ce n'est qu'un bout j'ai pas les les instructions pour fermer word

sinon si vous avez une autre solution

merci de votre aide

franck


vardocument = "I:\interrogation_produit\Fusion\ALDEHYDES\STATEMENT ALDEHYDE_FR.doc"
VarSourceDb = "C:\"
dsname="c:\contrat.xls"
VarBase = "contrat"

   oWord = CREATEOBJECT("Word.Application")
      WITH oWord
         wformat=0
         wconfirmconv=0
         wreadonly=0
         wlinktosource=0
         waddtofilelist=0
         wpassworddoc=""
         wpasswordtemp=""
         wrevert=0
         wprotectdoc=""
         wprotecttemp=""
         wconn= 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\contrat.xls Extended Properties="Excel 12.0 Xml;HDR=YES"'
         wsqlstatement="SQLStatement:= SELECT * FROM `contrat$`"

         .Visible=.F.      && Make Word visible.
         .WindowState = 1   && Minimize Word.


    .documents.open(VarDocument)
        .ActiveDocument.MailMerge.OpenDataSource;
            (dsname,wformat,wconfirmconv,wreadonly,wlinktosource,;
             waddtofilelist,wpassworddoc,wpasswordtemp,wrevert,;
             wprotectdoc,wprotecttemp,wconn,wsqlstatement)


        .ActiveDocument.MailMerge.Destination = 0 && new document.
        .ActiveDocument.MailMerge.Execute         && Run the merge.
ENDWITH


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000016957